Changeset 11364
- Timestamp:
- 10/26/08 13:21:32 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/directory.lisp
r11304 r11364 70 70 (dolist (entry entries) 71 71 (cond ((file-directory-p entry) 72 (when (pathname-match-p ( pathname-as-file entry) pathname)72 (when (pathname-match-p (file-namestring (pathname-as-file entry)) (file-namestring pathname)) 73 73 (push entry matching-entries))) 74 ((pathname-match-p entry pathname)74 ((pathname-match-p (file-namestring entry) (file-namestring pathname)) 75 75 (push entry matching-entries)))) 76 76 matching-entries)))
Note: See TracChangeset
for help on using the changeset viewer.