[Ecls-list] More fixes to DIRECTORY

[Juan Jose Garcia-Ripoll]

2006/9/22, Goffioul Michael <goffioul at imec.be>:
> BTW, did you also have a look at the following problem (missing
> "file.lsp" in the directory listing):
>
> $ ls *.lsp
> file.lsp  file1.lsp  file2.lsp
>
> $ ecl.exe
> ECL (Embeddable Common-Lisp) 0.9i
> Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
> Copyright (C) 1993 Giuseppe Attardi
> Copyright (C) 2000 Juan J. Garcia-Ripoll
> ECL is free software, and you are welcome to redistribute it
> under certain conditions; see file 'Copyright' for details.
> Type :h for Help.  Broken at EVAL.
> > (directory "file*")
> (#P"d:/Sources/MixDT/playground/c/file2.lsp"
>  #P"d:/Sources/MixDT/playground/c/file1.lsp")
> > (directory "file*.*")
> (#P"d:/Sources/MixDT/playground/c/file2.lsp"
>  #P"d:/Sources/MixDT/playground/c/file1.lsp")

This should also be fixed now. There were two problems: first of all,
"file*" would also match filenames with a nonempty extension. This is
no longer true. Second, the regexp "file*" would not match "file1".
Also fixed.

> (pathname-match-p "file1" "file*")
T
> (pathname-match-p "file" "file*")
T
> (pathname-match-p "file1" "file*.*")
T
> (pathname-match-p "file1.lsp" "file*")
NIL
> (pathname-match-p "file.lsp" "file*")
NIL

Juanjo

-- 
Max-Planck-Institut für Quantenoptik
Hans-Kopfermann-Str. 1, Garching, D-85748, Germany
Phone: +49 89 32905 345   Fax: +49 89 32905 336
http://www.mpq.mpg.de/Theorygroup/CIRAC/