As usual something is messed up with case. On Aug 12, 2005, at 3:52 AM, Pascal Bourguignon wrote:
> > > * (setf path-ext (MAKE-PATHNAME :TYPE EXT :defaults path)) > Warning: Declaring PATH-EXT special. > > #.(logical-pathname > "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;UTILITY.lisp") > * (probe-file *) > > NIL > * (probe-file path-ext) > > NIL (pathname-type path-ext) ==> "lisp" (pathname-type (logical-pathname "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;UTILITY.lisp")) ==> "LISP" I do not have any answer about this, but a lot of curses for the people who gave us this case-issues nightmare! Also, I do not have a 19[ab] handy to test it. The result is for 18e. Just by eyeballing it, I think that the problem may be located in the merging routines. The type in the MAKE-PATHNAME should have been "logicized" (i.e. uppercased) when merging with the logical pathname. In any case, Logical Pathnames are rather broken when you have filenames with mixed case. Cheers -- Marco > > Why the above probe-file calls return NIL when the following return > the expected result? > Is this bug corrected in the experimental 19b version? > > * (probe-file (logical-pathname > "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;UTILITY.lisp")) > > #p"/local/share/lisp/packages/com/informatimago/common-lisp/ > utility.lisp" > * (probe-file #.(logical-pathname > "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;UTILITY.lisp")) > > #p"/local/share/lisp/packages/com/informatimago/common-lisp/ > utility.lisp" > * (probe-file "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;UTILITY.lisp") > > #p"/local/share/lisp/packages/com/informatimago/common-lisp/ > utility.lisp" > * (probe-file #p"PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;UTILITY.lisp") > > #p"/local/share/lisp/packages/com/informatimago/common-lisp/ > utility.lisp" > > * (com.informatimago.pjb:print-bug-report-info) > > > LISP-IMPLEMENTATION-TYPE "CMU Common Lisp" > LISP-IMPLEMENTATION-VERSION "18e-pre2 2003-03-25-003" > SOFTWARE-TYPE "Linux" > SOFTWARE-VERSION "Linux version 2.4.26 (root@(none)) (gcc > version 3.3 20030226 (prerelease) (SuSE Linux)) #18 Fri Dec 31 > 15:47:02 CET 2004" > MACHINE-INSTANCE "thalassa" > MACHINE-TYPE "X86" > MACHINE-VERSION "X86" > *FEATURES* (:ASDF :COM.INFORMATIMAGO.PJB > :PCL-STRUCTURES > :PORTABLE-COMMONLOOPS :PCL :PYTHON > :PENTIUM :I486 > :LINKAGE-TABLE :MP :GENCGC :GLIBC2.1 > :CMU18 > :CMU18E :RELATIVE-PACKAGE-NAMES > :CONSERVATIVE-FLOAT-TYPE :RANDOM-MT19937 > :HASH-NEW :X86 :LINUX :GLIBC2 :UNIX > :COMMON :CMU > :NEW-COMPILER :COMMON-LISP :ANSI-CL > :IEEE-FLOATING-POINT) > > > > -- > __Pascal Bourguignon__ > http://www.informatimago.com/ > > There is no worse tyranny than to force a man to pay for what he does > not > want merely because you think it would be good for him. -- Robert > Heinlein > > -- Marco Antoniotti http://bioinformatics.nyu.edu NYU Courant Bioinformatics Group tel. +1 - 212 - 998 3488 715 Broadway 10th FL fax. +1 - 212 - 998 3484 New York, NY, 10003, U.S.A.
