[armedbear-cvs] r11364 - trunk/j/src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Sun Oct 26 13:21:32 2008
New Revision: 11364

Log:
Fix behaviour with symbolic links.


Modified:
   trunk/j/src/org/armedbear/lisp/directory.lisp

Modified: trunk/j/src/org/armedbear/lisp/directory.lisp
==============================================================================
--- trunk/j/src/org/armedbear/lisp/directory.lisp	(original)
+++ trunk/j/src/org/armedbear/lisp/directory.lisp	Sun Oct 26 13:21:32 2008
@@ -69,9 +69,9 @@
                   (matching-entries ()))
               (dolist (entry entries)
                 (cond ((file-directory-p entry)
-                       (when (pathname-match-p (pathname-as-file entry) pathname)
+                       (when (pathname-match-p (file-namestring (pathname-as-file entry)) (file-namestring pathname))
                          (push entry matching-entries)))
-                      ((pathname-match-p entry pathname)
+                      ((pathname-match-p (file-namestring entry) (file-namestring pathname))
                        (push entry matching-entries))))
               matching-entries)))
         ;; Not wild.