From: Barry F. <bar...@ac...> - 2008-07-29 22:21:20
|
I'm not sure when it happened but between my June 5 and July 27 builds, #'LOAD no longer can handle wildcards in *LOAD-PATHS*. I assume this is due to the code in #'SYSTEM::SEARCH-FILE which now just does #'PROBE-FILE on constructed pathnames. [1]> (probe-file "/home/foo/**/bar.lisp") *** - PROBE-FILE: wildcards are not allowed here: #P"/home/foo/**/bar.lisp" -- Barry Fishman |
From: Sam S. <sd...@gn...> - 2008-07-30 03:19:15
|
> * Barry Fishman <one...@np...t> [2008-07-29 18:20:55 -0400]: > > I'm not sure when it happened but between my June 5 and July 27 builds, > #'LOAD no longer can handle wildcards in *LOAD-PATHS*. I assume > this is due to the code in #'SYSTEM::SEARCH-FILE which now just does > #'PROBE-FILE on constructed pathnames. > > [1]> (probe-file "/home/foo/**/bar.lisp") > > *** - PROBE-FILE: wildcards are not allowed here: #P"/home/foo/**/bar.lisp" works for me. could you please provide a self-contained test case? thanks! -- Sam Steingold (http://sds.podval.org/) on Fedora release 9 (Sulphur) http://thereligionofpeace.com http://palestinefacts.org http://ffii.org http://israelunderattack.slide.com http://openvotingconsortium.org My inferiority complex is not as good as yours. |
From: Barry F. <bar...@ac...> - 2008-07-30 14:53:41
|
Sam Steingold <sd...@gn...> writes: >> * Barry Fishman <one...@np...t> [2008-07-29 18:20:55 -0400]: >> >> I'm not sure when it happened but between my June 5 and July 27 builds, >> #'LOAD no longer can handle wildcards in *LOAD-PATHS*. I assume >> this is due to the code in #'SYSTEM::SEARCH-FILE which now just does >> #'PROBE-FILE on constructed pathnames. >> >> [1]> (probe-file "/home/foo/**/bar.lisp") >> >> *** - PROBE-FILE: wildcards are not allowed here: #P"/home/foo/**/bar.lisp" > > works for me. > could you please provide a self-contained test case? > thanks! $ clisp --version GNU CLISP 2.46+ (2008-07-08) (built 3426240579) (memory 3426241342) Software: GNU C 4.3.1 20080507 (prerelease) [gcc-4_3-branch revision 135036] gcc -I/usr/include/pgsql -I/usr/local/include -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -O -falign-functions=4 -DUNICODE -DDYNAMIC_FFI -I. -x none -lreadline -lncurses -ldl -lavcall -lcallback -lsigsegv -L/usr/lib64 SAFETY=0 TYPECODES WIDE_HARD GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY libsigsegv 2.4 libreadline 5.2 Features: (READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI GETTEXT UNICODE BASE-CHAR=CHARACTER WORD-SIZE=64 PC386 UNIX) C Modules: (clisp i18n syscalls regexp readline) Installation directory: /home/util64/clisp/lib/clisp-2.46+/ User language: ENGLISH Machine: X86_64 (X86_64) ecube [127.0.0.2] $ mkdir /tmp/clisp $ touch /tmp/clisp/foo.lisp $ clisp -norc i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.46+ (2008-07-08) <http://clisp.cons.org/> Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2008 Type :h and hit Enter for context help. [1]> (let ((*load-paths* (list "/tmp/clisp/**/"))) (load "foo")) *** - LOAD: A file with name foo does not exist The following restarts are available: ABORT :R1 Abort main loop Break 1 [2]> ^D [3]> (let ((*load-paths* (list "/tmp/clisp/"))) (load "foo")) ;; Loading file /tmp/clisp/foo.lisp ... ;; Loaded file /tmp/clisp/foo.lisp T [4]> (directory "/tmp/clisp/**/foo.lisp") (#P"/tmp/clisp/foo.lisp") [5]> I had thought this was due to changes to the implementation of SYSTEM::SEACH-FILE in src/init.lisp. My initial code inspection indicated that #'LOAD calls #'OPEN-FOR-LOAD, and its call to SYSTEM::SEARCH-FILE seemed to be the only place that *LOAD-PATHS* was consulted. [5]> (let ((*load-paths* (list #p"/tmp/clisp/"))) (system::search-file "foo" (list "lisp"))) (#P"/tmp/clisp/foo.lisp") [6]> (let ((*load-paths* (list #p"/tmp/clisp/**/"))) (system::search-file "foo" (list "lisp"))) NIL [7]> (wild-pathname-p "/home/clisp/**/") T [8]> (directory "/tmp/clisp/**/foo.lisp" :full t :circle t :if-does-not-exist :ignore) ((#P"/tmp/clisp/foo.lisp" #P"/tmp/clisp/foo.lisp" (10 0 10 30 7 2008) 0)) [9]> -- Barry Fishman |
From: Sam S. <sd...@gn...> - 2008-07-30 15:34:37
|
Barry Fishman wrote: > [5]> (let ((*load-paths* (list #p"/tmp/clisp/"))) > (system::search-file "foo" (list "lisp"))) > (#P"/tmp/clisp/foo.lisp") > [6]> (let ((*load-paths* (list #p"/tmp/clisp/**/"))) > (system::search-file "foo" (list "lisp"))) > NIL yes, I fixed this bug yestereve. thanks for reporting it. please try the cvs head. |
From: Barry F. <bar...@ac...> - 2008-07-30 22:51:29
|
Sam Steingold <sd...@gn...> writes: > Barry Fishman wrote: >> [5]> (let ((*load-paths* (list #p"/tmp/clisp/"))) >> (system::search-file "foo" (list "lisp"))) >> (#P"/tmp/clisp/foo.lisp") >> [6]> (let ((*load-paths* (list #p"/tmp/clisp/**/"))) >> (system::search-file "foo" (list "lisp"))) >> NIL > > yes, I fixed this bug yestereve. > thanks for reporting it. > > please try the cvs head. Works now. Thanks. -- Barry Fishman |