Menu
▾
▴
[clisp-list] Re: pathname translation with 2.33.83 ?
|
From: Pascal J.B. <pj...@in...> - 2005-04-22 18:31:27
|
Sam Steingold writes:
> > * Pascal J.Bourguignon <cwo@vasbezngvzntb.pbz> [2005-04-22 17:06:18 +0200]:
> > With clisp fetched from cvs yesterday:
> > [12]> (translate-logical-pathname "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;PACKAGE.LISP")
> >
> > *** - TRANSLATE-PATHNAME: replacement pieces
> > ((:DIRECTORY "com" "informatimago" "common-lisp") "package" "lisp" NIL)
> > do not fit into
> > #P"/local/users/pjb/src/lisp/encours/bellerophon/install/packages/**/*.*"
> WFM:
> [2]> (translate-logical-pathname "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;PACKAGE.LISP")
>
> #P"\\local\\users\\pjb\\src\\lisp\\encours\\bellerophon\\install\\packages\\com\\informatimago\\common-lisp\\package.lisp"
> [3]> (lisp-implementation-version)
I've updated to today CVS, and recompiled (this time 'make check' ran
better, ended as follow), but I still have the same problem.
(echo *.erg | grep '*' >/dev/null) || (echo "Test failed:" ; ls -l *erg; echo "To see which tests failed, type" ; echo " cat "`pwd`"/*.erg" ; exit 1)
echo "Test passed."
Test passed.
make[1]: Leaving directory `/local/users/pjb/src/lisp/encours/bellerophon/clisp-2.33.83/src/tests'
cd sacla-tests && ../lisp.run -B .. -M ../lispinit.mem -N ../locale -Efile UTF-8 -Eterminal UTF-8 -norc -i tests.lisp -x '(ext:exit (> (nth-value 1 (run-all-tests)) 0))'
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
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-2005
*** - LOAD: A file with name tests.lisp does not exist
Bye.
make: *** [check-sacla-tests] Error 1
$ export BASE=/home/pjb/src/lisp/encours/bellerophon/install
$ cat init.lisp
(IN-PACKAGE "COM.INFORMATIMAGO.INIT")
;; We only add logical pathname translations. This can be done from any package.
(LET ((BASE
(MAKE-PATHNAME
:DIRECTORY (PATHNAME-DIRECTORY
(if (ext:getenv "BASE")
(CONCATENATE 'STRING (EXT:GETENV "BASE") "/")
*LOAD-PATHNAME*)))))
(FLET ((MP (SUB) (MERGE-PATHNAMES SUB BASE)))
((LAMBDA (&REST SPECS)
(DOLIST (SPEC SPECS)
(SETF (LOGICAL-PATHNAME-TRANSLATIONS (FIRST SPEC))
(NCONC (HANDLER-CASE (LOGICAL-PATHNAME-TRANSLATIONS (FIRST SPEC))
(ERROR () NIL))
(MAPCAR
(LAMBDA (REST)
(LIST (CONCATENATE 'STRING (SECOND SPEC) REST)
(MP (CONCATENATE 'STRING (THIRD SPEC) REST))))
#-(OR CLISP SBCL) '("*" "*.*" "*.*.*")
#+(OR CLISP SBCL) '("*.*" "*")
)))))
'("BELLEROPHON" "BELLEROPHON:**;" "**/")
'("PACKAGES" "PACKAGES:**;" "install/packages/**/")
'("PACKAGES" "PACKAGES:NET;COMON-LISP;UCW;**;"
"install/packages/net/common-lisp/ucw-0.3.7/**/"))))
(IN-PACKAGE "COMMON-LISP-USER")
(DELETE-PACKAGE "COM.INFORMATIMAGO.INIT")
$ cat lisp.sh
cat lisp.sh
#!/bin/bash
ulimit -s $(( 128 * 1024 ))
base="$(dirname "$0")/install"
# We launch without ~/.clisprc
exec "$base/bin/clisp" \
-norc -ansi -q -K full -m 32M -I -E ISO-8859-1 -Eterminal UTF-8
$ ./lisp.sh
./lisp.sh
[1]> (load "init.lisp")
;; Loading file init.lisp ...
;; Loaded file init.lisp
T
[2]> (logical-pathname-translations "PACKAGES")
((#P"PACKAGES:**;*.*"
#P"/home/pjb/src/lisp/encours/bellerophon/install/install/packages/**/*.*")
(#P"PACKAGES:**;*"
#P"/home/pjb/src/lisp/encours/bellerophon/install/install/packages/**/*")
(#P"PACKAGES:NET;COMON-LISP;UCW;**;*.*"
#P"/home/pjb/src/lisp/encours/bellerophon/install/install/packages/net/common-lisp/ucw-0.3.7/**/*.*")
(#P"PACKAGES:NET;COMON-LISP;UCW;**;*"
#P"/home/pjb/src/lisp/encours/bellerophon/install/install/packages/net/common-lisp/ucw-0.3.7/**/*"))
[3]> (translate-logical-pathname "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;PACKAGE.LISP")
*** - TRANSLATE-PATHNAME: replacement pieces
((:DIRECTORY "com" "informatimago" "common-lisp") "package" "lisp" NIL)
do not fit into
#P"/home/pjb/src/lisp/encours/bellerophon/install/install/packages/**/*.*"
The following restarts are available:
ABORT :R1 ABORT
Break 1 [4]> (pathname-directory #P"/home/pjb/src/lisp/encours/bellerophon/install/install/packages/**/*.*")
(:ABSOLUTE "home" "pjb" "src" "lisp" "encours" "bellerophon" "install" "install"
"packages" :WILD-INFERIORS)
Break 1 [4]> (pathname-name #P"/home/pjb/src/lisp/encours/bellerophon/install/install/packages/**/*.*")
:WILD
Break 1 [4]> (pathname-type #P"/home/pjb/src/lisp/encours/bellerophon/install/install/packages/**/*.*")
:WILD
Break 1 [4]> (defun print-bug-report-info ()
(format t "~2%~{~28A ~S~%~}~2%"
(list "LISP-IMPLEMENTATION-TYPE" (lisp-implementation-type)
"LISP-IMPLEMENTATION-VERSION" (lisp-implementation-version)
"SOFTWARE-TYPE" (software-type)
"SOFTWARE-VERSION" (software-version)
"MACHINE-INSTANCE" (machine-instance)
"MACHINE-TYPE" (machine-type)
"MACHINE-VERSION" (machine-version))))
Break 1 [4]> (PRINT-BUG-REPORT-INFO)
LISP-IMPLEMENTATION-TYPE "CLISP"
LISP-IMPLEMENTATION-VERSION "2.33.83 (2005-03-14) (built 3323179092) (memory 3323180084)"
SOFTWARE-TYPE
"gcc -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wno-sign-compare -O2 -fexpensive-optimizations -DUNICODE -DDYNAMIC_FFI -DNO_SIGSEGV -I. -x none libcharset.a libavcall.a libcallback.a -lreadline -lncurses -ldl -L/usr/X11R6/lib -lX11
SAFETY=0 HEAPCODES LINUX_NOEXEC_HEAPCODES SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY"
SOFTWARE-VERSION "GNU C 3.3 20030226 (prerelease) (SuSE Linux)"
MACHINE-INSTANCE "thalassa.informatimago.com [62.93.174.79]"
MACHINE-TYPE "I686"
MACHINE-VERSION "I686"
NIL
Break 1 [4]>
--
__Pascal Bourguignon__ http://www.informatimago.com/
Nobody can fix the economy. Nobody can be trusted with their finger
on the button. Nobody's perfect. VOTE FOR NOBODY.
|