Home / Browse / Steel Bank Common Lisp / Mail / Archive

Steel Bank Common Lisp

Email Archive: sbcl-help (read-only)

2000:	_Jan	_Feb	_Mar	_Apr	_May (1)	_Jun (2)	_Jul (2)	_Aug	_Sep	_Oct	_Nov	_Dec (3)
2001:	_Jan	_Feb	_Mar	_Apr (1)	_May (8)	_Jun	_Jul (2)	_Aug (3)	_Sep	_Oct	_Nov	_Dec
2002:	_Jan	_Feb (2)	_Mar (3)	_Apr	_May (5)	_Jun	_Jul	_Aug (2)	_Sep (3)	_Oct	_Nov	_Dec (8)
2003:	_Jan (5)	_Feb (4)	_Mar (14)	_Apr	_May (27)	_Jun (10)	_Jul (3)	_Aug (28)	_Sep (27)	_Oct (3)	_Nov (14)	_Dec (19)
2004:	_Jan (32)	_Feb (15)	_Mar (21)	_Apr (69)	_May (18)	_Jun (15)	_Jul (23)	_Aug (14)	_Sep (38)	_Oct (20)	_Nov (76)	_Dec (27)
2005:	_Jan (24)	_Feb (32)	_Mar (39)	_Apr (65)	_May (69)	_Jun (37)	_Jul (32)	_Aug (28)	_Sep (28)	_Oct (17)	_Nov (30)	_Dec (24)
2006:	_Jan (45)	_Feb (38)	_Mar (19)	_Apr (26)	_May (19)	_Jun (29)	_Jul (13)	_Aug (26)	_Sep (53)	_Oct (46)	_Nov (40)	_Dec (85)
2007:	_Jan (45)	_Feb (51)	_Mar (69)	_Apr (48)	_May (75)	_Jun (35)	_Jul (35)	_Aug (25)	_Sep (11)	_Oct (16)	_Nov (9)	_Dec (59)
2008:	_Jan (36)	_Feb (17)	_Mar (28)	_Apr (13)	_May (1)	_Jun (25)	_Jul (24)	_Aug (52)	_Sep (19)	_Oct (52)	_Nov (43)	_Dec (80)
2009:	_Jan (33)	_Feb (30)	_Mar (18)	_Apr (15)	_May (29)	_Jun (58)	_Jul (48)	_Aug (35)	_Sep (52)	_Oct (59)	_Nov (46)	_Dec (31)
2010:	_Jan (26)	_Feb (45)	_Mar (55)	_Apr (59)	_May (8)	_Jun (24)	_Jul (43)	_Aug (31)	_Sep (43)	_Oct (33)	_Nov (41)	_Dec (19)
2011:	_Jan (17)	_Feb (31)	_Mar (5)	_Apr (31)	_May (17)	_Jun (28)	_Jul (15)	_Aug (38)	_Sep (21)	_Oct (25)	_Nov (21)	_Dec (21)
2012:	_Jan (9)	_Feb (22)	_Mar (17)	_Apr (16)	_May (58)	_Jun (13)	_Jul (40)	_Aug (12)	_Sep (10)	_Oct (10)	_Nov (14)	_Dec (4)
2013:	_Jan (9)	_Feb (8)	_Mar (17)	_Apr (10)	_May	_Jun (8)	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec

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

From: Pascal J.Bourguignon <pjb@in...> - 2004-01-19 03:44

* (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/

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

From: Christophe Rhodes <csr21@ca...> - 2004-01-19 09:26

Pascal J.Bourguignon <pjb@...> writes:

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

Wow, that's old :-) 

> * (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)))))

You are aware, are you not, that this form is defined to do nothing
and return NIL when evaluated by the interactor?

> unhandled condition (of type SIMPLE-ERROR):
>   Pathname components from SOURCE and FROM args to TRANSLATE-PATHNAME
> did not match:
>   :NEWEST NIL

Yeah, this is a problem.  The good news is that Paul Dietz has
finished (or maybe "given up" is a better phrase) testing
implementations' pathname compliance with the ANSI specification, so
there's a little more of a safety net when it comes to making pathname
modifications.

What I would like to see, I think, is a pathname implementation that
is almost completely version-agnostic.  Certainly, :newest and nil
versions ought to match, but I think probably also numbered versions
should be canonicalized to one or the other as soon as possible, since
supporting them is otherwise ludicrous on a Unix or Windows base.  The
possibility of losing versions when interfacing with filesystems such
as reiser4 or clearcase does not bother me overmuch, since it's
unlikely that purely-integral versions will map to these things
anyway.

Cheers,

Christophe
-- 
http://www-jcsu.jesus.cam.ac.uk/~csr21/       +44 1223 510 299/+44 7729 383 757
(set-pprint-dispatch 'number (lambda (s o) (declare (special b)) (format s b)))
(defvar b "~&Just another Lisp hacker~%")    (pprint #36rJesusCollegeCambridge)