[armedbear-cvs] r13244 - trunk/abcl/src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Sat Mar 12 14:57:48 2011
New Revision: 13244

Log:
Fix directory listings for files that have funny names
like File::Spec::VMS.3perl.gz. The wildcard filtering
is broken atm, working on that.


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

Modified: trunk/abcl/src/org/armedbear/lisp/directory.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/directory.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/directory.lisp	Sat Mar 12 14:57:48 2011
@@ -116,9 +116,9 @@
                       (matching-entries ()))
                   (dolist (entry entries)
                     (cond ((file-directory-p entry)
-                           (when (pathname-match-p (file-namestring (pathname-as-file entry)) (file-namestring pathname))
+                           (when (pathname-match-p (make-pathname :name (file-namestring (pathname-as-file entry))) (make-pathname :name (file-namestring pathname)))
                              (push entry matching-entries)))
-                          ((pathname-match-p (or (file-namestring entry) "") (file-namestring pathname))
+                          ((pathname-match-p (make-pathname :name (or (file-namestring entry) "")) (make-pathname :name (file-namestring pathname)))
                            (push entry matching-entries))))
                   matching-entries))))
         ;; Not wild.