[Openmcl-cvs-notifications] r10668 - /trunk/source/level-1/linux-files.lisp

[gb at clozure.com]

Author: gb
Date: Mon Sep  8 13:33:10 2008
New Revision: 10668

Log:
fix typo in %READDIR

Modified:
    trunk/source/level-1/linux-files.lisp

Modified: trunk/source/level-1/linux-files.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/linux-files.lisp (original)
+++ trunk/source/level-1/linux-files.lisp Mon Sep  8 13:33:10 2008
@@ -672,7 +672,7 @@
            :int))
 =

 (defun %read-dir (dir)
-  (let* ((res (ff-call (%kernel-import target::kernel-import-lisp-closedir)
+  (let* ((res (ff-call (%kernel-import target::kernel-import-lisp-readdir)
                        :address dir
                        :address)))
     (unless (%null-ptr-p res)