Hello!
I have some troubles with the wildcards.
I created a simple lisp file with the line:
(print "hello world!")
The file is test.lisp
Now, I wanted to load it but first I created a logical-pathname:
* (setf (logical-pathname-translations "agnula") (quote (("**;*.*.*"
"/u/agnula/sarria/tmp/**/*.*.*"))))
(("**;*.*.*" "/u/agnula/sarria/tmp/**/*.*.*"))
And then I tried to load it but I had an error:
* (load "agnula:test.lisp")
Error in function LISP::SUBSTITUTE-INTO:
Not enough wildcards in FROM pattern to match TO pattern:
#<LISP::PATTERN :MULTI-CHAR-WILD "." :MULTI-CHAR-WILD>
[Condition of type SIMPLE-ERROR]
Restarts:
0: [CONTINUE] Return NIL from load of "agnula:test.lisp".
1: [ABORT ] Return to Top-Level.
Debug (type H for help)
(LISP::SUBSTITUTE-INTO #<LISP::PATTERN :MULTI-CHAR-WILD "."
:MULTI-CHAR-WILD>
NIL
T)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer
exists:
target:code/pathname.lisp.
0] ba
0: (LISP::SUBSTITUTE-INTO
#<LISP::PATTERN :MULTI-CHAR-WILD "." :MULTI-CHAR-WILD>
NIL
T)
1: (LISP::TRANSLATE-COMPONENT "TEST"
:WILD
#<LISP::PATTERN
:MULTI-CHAR-WILD "." :MULTI-CHAR-WILD>
T)
2: (TRANSLATE-PATHNAME #.(logical-pathname "AGNULA:TEST.LISP")
#.(logical-pathname "AGNULA:**;*.*.*")
#p"/u/agnula/sarria/tmp/**/*.*.*")
3: (TRANSLATE-LOGICAL-PATHNAME #.(logical-pathname "AGNULA:TEST.LISP"))
4: (UNIX-NAMESTRING #.(logical-pathname "AGNULA:TEST.LISP") T NIL)
5: (PROBE-FILE #.(logical-pathname "AGNULA:TEST.LISP"))
6: (LOAD "agnula:test.lisp" :VERBOSE NIL :PRINT ...)
7: (INTERACTIVE-EVAL (LOAD "agnula:test.lisp"))
8: (LISP::%TOP-LEVEL)
9: ((LABELS LISP::RESTART-LISP
SAVE-LISP))
--------------------------------------------------
Does anyone can help me with this?
Gerardo
