Ignore:
Timestamp:
Sep 8, 2008, 3:41:56 PM (11 years ago)
Author:
gb
Message:

target::kernel-import*, not target::kernel-global*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r10662 r10664  
    661661(defun %open-dir (namestring)
    662662  (with-filename-cstrs ((name namestring))
    663     (let* ((DIR (ff-call (%kernel-import target::kernel-global-lisp-opendir)
     663    (let* ((DIR (ff-call (%kernel-import target::kernel-import-lisp-opendir)
    664664                         :address name
    665665                         :address)))
     
    668668
    669669(defun close-dir (dir)
    670   (ff-call (%kernel-import target::kernel-global-lisp-closedir)
     670  (ff-call (%kernel-import target::kernel-import-lisp-closedir)
    671671           :address dir
    672672           :int))
    673673
    674674(defun %read-dir (dir)
    675   (let* ((res (ff-call (%kernel-import target::kernel-global-lisp-closedir)
     675  (let* ((res (ff-call (%kernel-import target::kernel-import-lisp-closedir)
    676676                       :address dir
    677677                       :address)))
Note: See TracChangeset for help on using the changeset viewer.