From: Alexey D. <ade...@co...> - 2001-09-21 08:36:40
|
src/code/filesys.lisp: (defun directory (pathname &key) ... (sort (delete-duplicates truenames :test #'string= :key #'pathname-name) #'string< :key #'pathname-name))) If I have a directory with `a.c', `a.h' and `b.c', then (directory #p"dir/*") gives only `a.c' and `b.c'. I think it is better to replace PATHNAME-NAMEs to NAMESTRINGs in the above code. Regards, Alexey Dejneka |