[Sbcl-help] logical pathname translations while compiling...

[Pascal J.B. <pj...@in...>]

* (lisp-implementation-version)
"0.pre8.104"


When running interactively, there's no problem:

* (load "init.lisp")
T
* (logical-pathname-translations "PACKAGE")
(("COM;INFORMATIMAGO;COMMON-LISP;*" "/home/pascal/src/common/common-lisp/*")
 ("COM;INFORMATIMAGO;COMMON-LISP;*.*"
  "/home/pascal/src/common/common-lisp/*.*")
 ("COM;INFORMATIMAGO;COMMON-LISP;*.*.*"
  "/home/pascal/src/common/common-lisp/*.*.*")
 ("DE;HBEDV;**;*" "/home/pascal/firms/hbedv/src-HEAD/avmailgate/**/*")
 ("DE;HBEDV;**;*.*" "/home/pascal/firms/hbedv/src-HEAD/avmailgate/**/*.*")
 ("DE;HBEDV;**;*.*.*" "/home/pascal/firms/hbedv/src-HEAD/avmailgate/**/*.*.*")
 ("**;*" "/local/share/lisp/packages/**/*")
 ("**;*.*" "/local/share/lisp/packages/**/*.*")
 ("**;*.*.*" "/local/share/lisp/packages/**/*.*.*"))
* (TRANSLATE-PATHNAME
    #.(CL:LOGICAL-PATHNAME "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP")
    #.(CL:LOGICAL-PATHNAME "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;*")
    #P"/home/pascal/src/common/common-lisp/*")
#P"/home/pascal/src/common/common-lisp/html401.lisp"
* (TRANSLATE-LOGICAL-PATHNAME
    #.(CL:LOGICAL-PATHNAME "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP"))
#P"/home/pascal/src/common/common-lisp/html401.lisp"
* (eval-when (:compile-toplevel)
  (format t "~S~%" (logical-pathname-translations "PACKAGE"))
  (with-open-file  (file "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP"
                         :direction :input)
    (with-open-file (out "test.out" :direction :output
                         :if-does-not-exist :create
                         :if-exists :supersede)
      (format out "~S~%" (read file nil nil)))))
NIL


But when compiling:

(eval-when (:compile-toplevel)
  (format t "~S~%" (logical-pathname-translations "PACKAGE"))
  (with-open-file  (file "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP"
                         :direction :input)
    (with-open-file (out "test.out" :direction :output
                         :if-does-not-exist :create
                         :if-exists :supersede)
      (format out "~S~%" (read file nil nil)))))


invoked with:

    sbcl --noinform --eval "(SB-EXT:DISABLE-DEBUGGER)" \
         --eval "(DECLAIM (OPTIMIZE (SAFETY 3)))" \
         --eval "(DECLAIM (OPTIMIZE (SB-EXT::INHIBIT-WARNINGS 3)))" \
         --load init.lisp \
         --eval '(COMPILE-FILE "'"test.lisp"'")' \
         --eval '(SB-EXT:QUIT)'


it gives this error:

; in: LAMBDA NIL
;     (SB-KERNEL:FLOAT-WAIT)
; 
; note: deleting unreachable code
; compilation unit finished
;   printed 1 note
; compiling file "/local/users/pascal/src/common/common-lisp/test.lisp" (written 19 JAN 2004 04:38:14 AM):
(("COM;INFORMATIMAGO;COMMON-LISP;*" "/home/pascal/src/common/common-lisp/*")
 ("COM;INFORMATIMAGO;COMMON-LISP;*.*"
  "/home/pascal/src/common/common-lisp/*.*")
 ("COM;INFORMATIMAGO;COMMON-LISP;*.*.*"
  "/home/pascal/src/common/common-lisp/*.*.*")
 ("DE;HBEDV;**;*" "/home/pascal/firms/hbedv/src-HEAD/avmailgate/**/*")
 ("DE;HBEDV;**;*.*" "/home/pascal/firms/hbedv/src-HEAD/avmailgate/**/*.*")
 ("DE;HBEDV;**;*.*.*" "/home/pascal/firms/hbedv/src-HEAD/avmailgate/**/*.*.*")
 ("**;*" "/local/share/lisp/packages/**/*")
 ("**;*.*" "/local/share/lisp/packages/**/*.*")
 ("**;*.*.*" "/local/share/lisp/packages/**/*.*.*"))
unhandled condition (of type SIMPLE-ERROR):
  Pathname components from SOURCE and FROM args to TRANSLATE-PATHNAME
did not match:
  :NEWEST NIL

0: ("hairy arg processor for top level local call SB!DEBUG:BACKTRACE"
    128
    #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {505B9B9}>)
1: (SB-IMPL::NOPROGRAMMER-DEBUGGER-HOOK-FUN
    2
    #<SIMPLE-ERROR {94107B1}>
    #<unavailable argument>)[:EXTERNAL]
2: (INVOKE-DEBUGGER 1 #<SIMPLE-ERROR {94107B1}>)[:EXTERNAL]
3: (ERROR
    3
    "Pathname components from SOURCE and FROM args to TRANSLATE-PATHNAME~@
	  did not match:~%  ~S ~S")[:EXTERNAL]
4: (SB-IMPL::DIDNT-MATCH-ERROR 2 :NEWEST NIL)[:EXTERNAL]
5: (TRANSLATE-PATHNAME
    3
    #.(CL:LOGICAL-PATHNAME "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP")
    #.(CL:LOGICAL-PATHNAME "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;*")
    #P"/home/pascal/src/common/common-lisp/*")[:EXTERNAL]
6: (TRANSLATE-LOGICAL-PATHNAME
    1
    #.(CL:LOGICAL-PATHNAME "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP"))[:EXTERNAL]
7: ("hairy arg processor for top level local call SB!INT:UNIX-NAMESTRING"
    #.(CL:LOGICAL-PATHNAME "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP")
    T)
8: (OPEN 3 "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP")[:EXTERNAL]
9: (#:EVAL-TMPFUN-1 0)[:EXTERNAL]
10: (SB-C::PROCESS-TOPLEVEL-FORM
     3
     (EVAL-WHEN (:COMPILE-TOPLEVEL)
       (FORMAT T "~S~%" (LOGICAL-PATHNAME-TRANSLATIONS "PACKAGE"))
       (WITH-OPEN-FILE
           (FILE "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP"
                 :DIRECTION
                 :INPUT)
         (WITH-OPEN-FILE
             (OUT "test.out"
                  :DIRECTION
                  :OUTPUT
                  :IF-DOES-NOT-EXIST
                  :CREATE
                  :IF-EXISTS
                  :SUPERSEDE)
           (FORMAT OUT "~S~%" (READ FILE NIL NIL)))))
     (SB-C::ORIGINAL-SOURCE-START 0 0)
     NIL)[:EXTERNAL]
11: (SB-C::SUB-SUB-COMPILE-FILE
     1
     #S(SB-C::SOURCE-INFO
        :START-TIME 3283472333
        :FILE-INFO #S(SB-C::FILE-INFO
                      :NAME #P"/local/users/pascal/src/common/common-lisp/test.lisp"
                      :UNTRUENAME #P"test.lisp"
                      :WRITE-DATE 3283472294
                      :SOURCE-ROOT 0
                      :FORMS #((EVAL-WHEN (:COMPILE-TOPLEVEL)
                                 (FORMAT T
                                         "~S~%"
                                         (LOGICAL-PATHNAME-TRANSLATIONS
                                          "PACKAGE"))
                                 (WITH-OPEN-FILE
                                     (FILE
                                      "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP"
                                      :DIRECTION
                                      :INPUT)
                                   (WITH-OPEN-FILE
                                       (OUT "test.out"
                                            :DIRECTION
                                            :OUTPUT
                                            :IF-DOES-NOT-EXIST
                                            :CREATE
                                            :IF-EXISTS
                                            :SUPERSEDE)
                                     (FORMAT OUT
                                             "~S~%"
                                             (READ FILE NIL NIL))))))
                      :POSITIONS #(0))
        :STREAM #<FILE-STREAM
                  for "file \"/local/users/pascal/src/common/common-lisp/test.lisp\""
                  {93D29C1}>))[:EXTERNAL]
12: ("#'(LAMBDA NIL (SB!C::CLEAR-STUFF) ...)")
13: (SB-C::%WITH-COMPILATION-UNIT 1 #<FUNCTION "CLOSURE" {93D2225}>)[:EXTERNAL]
14: (SB-C::SUB-COMPILE-FILE
     1
     #S(SB-C::SOURCE-INFO
        :START-TIME 3283472333
        :FILE-INFO #S(SB-C::FILE-INFO
                      :NAME #P"/local/users/pascal/src/common/common-lisp/test.lisp"
                      :UNTRUENAME #P"test.lisp"
                      :WRITE-DATE 3283472294
                      :SOURCE-ROOT 0
                      :FORMS #((EVAL-WHEN (:COMPILE-TOPLEVEL)
                                 (FORMAT T
                                         "~S~%"
                                         (LOGICAL-PATHNAME-TRANSLATIONS
                                          "PACKAGE"))
                                 (WITH-OPEN-FILE
                                     (FILE
                                      "PACKAGE:COM;INFORMATIMAGO;COMMON-LISP;HTML401.LISP"
                                      :DIRECTION
                                      :INPUT)
                                   (WITH-OPEN-FILE
                                       (OUT "test.out"
                                            :DIRECTION
                                            :OUTPUT
                                            :IF-DOES-NOT-EXIST
                                            :CREATE
                                            :IF-EXISTS
                                            :SUPERSEDE)
                                     (FORMAT OUT
                                             "~S~%"
                                             (READ FILE NIL NIL))))))
                      :POSITIONS #(0))
        :STREAM #<FILE-STREAM
                  for "file \"/local/users/pascal/src/common/common-lisp/test.lisp\""
                  {93D29C1}>))[:EXTERNAL]
15: (COMPILE-FILE 1 "test.lisp")[:EXTERNAL]
16: (SB-IMPL::TOPLEVEL-INIT 0)[:EXTERNAL]
17: ("FLET SB!IMPL::RESTART-LISP")

unhandled condition in --disable-debugger mode, quitting
; compilation unit aborted
;   caught 1 fatal ERROR condition
; compilation aborted after 0:00:01


-- 
__Pascal_Bourguignon__                     http://www.informatimago.com/
There is no worse tyranny than to force a man to pay for what he doesn't
want merely because you think it would be good for him.--Robert Heinlein
http://www.theadvocates.org/