quicklisp/asdf breaks in sbcl

[Pascal J. Bourguignon]

quicklisp doesn't work in sbcl:


[pjb@kuiper :0 ~]$ sbcl
This is SBCL 1.0.55, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
STYLE-WARNING: redefining ASDF::LISP-VERSION-STRING in DEFUN

#<PACKAGE "COMMON-LISP-USER">
; loading #P"/home/pjb/rc/common.lisp"
;; loading #P"/home/pjb/quicklisp/setup.lisp"

debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "initial thread" RUNNING {1002998CE3}>:
ASDF 2 is not compatible with ASDF-BINARY-LOCATIONS, which you are using.
ASDF 2 now achieves the same purpose with its builtin ASDF-OUTPUT-TRANSLATIONS,
which should be easier to configure. Please stop using ASDF-BINARY-LOCATIONS,
and instead use ASDF-OUTPUT-TRANSLATIONS. See the ASDF manual for details.
In case you insist on preserving your previous A-B-L configuration, but
do not know how to achieve the same effect with A-O-T, you may use function
ASDF:ENABLE-ASDF-BINARY-LOCATIONS-COMPATIBILITY as documented in the manual;
call that function where you would otherwise have loaded and configured A-B-L.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
0: [RETRY ] Retry EVAL of current toplevel form.
1: [CONTINUE] Ignore error and continue loading file "/home/pjb/quicklisp/setup.lisp".
2: [ABORT ] Abort loading file "/home/pjb/quicklisp/setup.lisp".
3: Retry EVAL of current toplevel form.
4: Ignore error and continue loading file "/home/pjb/rc/common.lisp".
5: Abort loading file "/home/pjb/rc/common.lisp".
6: Retry EVAL of current toplevel form.
7: Ignore error and continue userinit file "/home/pjb/.sbclrc".
8: Abort userinit file "/home/pjb/.sbclrc".
9: Skip to toplevel READ/EVAL/PRINT loop.
10: [QUIT ] Quit SBCL (calling #'QUIT, killing the process).

((SB-PCL::FAST-METHOD ASDF:OPERATE :BEFORE (T T))
#<unused argument>
#<unused argument>
#<unused argument>
#<unused argument>)
0] backtrace

0: ((SB-PCL::FAST-METHOD ASDF:OPERATE :BEFORE (T T))
#<unused argument>
#<unused argument>
#<unused argument>
#<unused argument>)
1: ((SB-PCL::EMF ASDF:OPERATE)
#<unused argument>
#<unused argument>
ASDF:LOAD-OP
"quicklisp"
:VERBOSE
NIL)
2: (#:EVAL-THUNK)
3: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LET ((*COMPILE-PRINT* NIL)
(*COMPILE-VERBOSE* NIL)
(*LOAD-VERBOSE* NIL)
(*LOAD-PRINT* NIL))
(ASDF:OOS 'ASDF:LOAD-OP "quicklisp" :VERBOSE NIL))
#<NULL-LEXENV>)
4: (SB-EXT:EVAL-TLF
(LET ((*COMPILE-PRINT* NIL)
(*COMPILE-VERBOSE* NIL)
(*LOAD-VERBOSE* NIL)
(*LOAD-PRINT* NIL))
(ASDF:OOS 'ASDF:LOAD-OP "quicklisp" :VERBOSE NIL))
14
#<NULL-LEXENV>)
5: ((FLET SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE)
(LET ((*COMPILE-PRINT* NIL)
(*COMPILE-VERBOSE* NIL)
(*LOAD-VERBOSE* NIL)
(*LOAD-PRINT* NIL))
(ASDF:OOS 'ASDF:LOAD-OP "quicklisp" :VERBOSE NIL))
14)
6: (SB-INT:LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for "file /home/pjb/quicklisp/setup.lisp" {10058F78E3}>
:VERBOSE
T
:PRINT
NIL
:CONTEXT
"loading")
7: ((FLET SB-FASL::LOAD-STREAM :IN LOAD)
#<SB-SYS:FD-STREAM for "file /home/pjb/quicklisp/setup.lisp" {10058F78E3}>
NIL)
8: (LOAD
#P"/home/pjb/quicklisp/setup.lisp"
:VERBOSE
NIL
:PRINT
NIL
:IF-DOES-NOT-EXIST
T
:EXTERNAL-FORMAT
:DEFAULT)
9: (#:EVAL-THUNK)
10: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LET ((COM.INFORMATIMAGO.PJB::QUICKLISP
(MERGE-PATHNAMES
(COM.INFORMATIMAGO.PJB::MAKE-PATHNAME* :DIRECTORY '# :NAME "SETUP"
:TYPE "LISP" :VERSION
:NEWEST :CASE :COMMON
:DEFAULTS ...)
(COM.INFORMATIMAGO.PJB::USER-PATHNAME) NIL)))
(IF (PROBE-FILE COM.INFORMATIMAGO.PJB::QUICKLISP)
(LOAD COM.INFORMATIMAGO.PJB::QUICKLISP)
(ERROR "Please install quicklisp. I expect it in ~S"
COM.INFORMATIMAGO.PJB::QUICKLISP)))
#<NULL-LEXENV>)
11: (SB-EXT:EVAL-TLF
(LET ((COM.INFORMATIMAGO.PJB::QUICKLISP
(MERGE-PATHNAMES
(COM.INFORMATIMAGO.PJB::MAKE-PATHNAME* :DIRECTORY '# :NAME "SETUP"
:TYPE "LISP" :VERSION
:NEWEST :CASE :COMMON
:DEFAULTS ...)
(COM.INFORMATIMAGO.PJB::USER-PATHNAME) NIL)))
(IF (PROBE-FILE COM.INFORMATIMAGO.PJB::QUICKLISP)
(LOAD COM.INFORMATIMAGO.PJB::QUICKLISP)
(ERROR "Please install quicklisp. I expect it in ~S"
COM.INFORMATIMAGO.PJB::QUICKLISP)))
16
#<NULL-LEXENV>)
12: ((FLET SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE)
(LET ((COM.INFORMATIMAGO.PJB::QUICKLISP
(MERGE-PATHNAMES
(COM.INFORMATIMAGO.PJB::MAKE-PATHNAME* :DIRECTORY '# :NAME "SETUP"
:TYPE "LISP" :VERSION
:NEWEST :CASE :COMMON
:DEFAULTS ...)
(COM.INFORMATIMAGO.PJB::USER-PATHNAME) NIL)))
(IF (PROBE-FILE COM.INFORMATIMAGO.PJB::QUICKLISP)
(LOAD COM.INFORMATIMAGO.PJB::QUICKLISP)
(ERROR "Please install quicklisp. I expect it in ~S"
COM.INFORMATIMAGO.PJB::QUICKLISP)))
16)
13: (SB-INT:LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for "file /home/pjb/rc/common.lisp" {1005416503}>
:VERBOSE
T
:PRINT
NIL
:CONTEXT
"loading")
14: ((FLET SB-FASL::LOAD-STREAM :IN LOAD)
#<SB-SYS:FD-STREAM for "file /home/pjb/rc/common.lisp" {1005416503}>
NIL)
15: (LOAD
#P"/home/pjb/rc/common.lisp"
:VERBOSE
NIL
:PRINT
NIL
:IF-DOES-NOT-EXIST
T
:EXTERNAL-FORMAT
:DEFAULT)
16: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LOAD
(MERGE-PATHNAMES
(MAKE-PATHNAME :DIRECTORY '(:RELATIVE "RC") :NAME "COMMON" :TYPE "LISP"
:CASE :COMMON)
(USER-HOMEDIR-PATHNAME) NIL))
#<NULL-LEXENV>)
17: (SB-EXT:EVAL-TLF
(LOAD
(MERGE-PATHNAMES
(MAKE-PATHNAME :DIRECTORY '(:RELATIVE "RC") :NAME "COMMON" :TYPE "LISP"
:CASE :COMMON)
(USER-HOMEDIR-PATHNAME) NIL))
19
#<NULL-LEXENV>)
18: ((FLET SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE)
(LOAD
(MERGE-PATHNAMES
(MAKE-PATHNAME :DIRECTORY '(:RELATIVE "RC") :NAME "COMMON" :TYPE "LISP"
:CASE :COMMON)
(USER-HOMEDIR-PATHNAME) NIL))
19)
19: (SB-INT:LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for "file /home/pjb/rc/sbclrc.lisp" {1004CA3A53}>
:VERBOSE
NIL
:PRINT
NIL
:CONTEXT
"userinit")
20: (SB-IMPL::PROCESS-INIT-FILE NIL :USER)
21: (SB-IMPL::TOPLEVEL-INIT)
22: ((FLET #:WITHOUT-INTERRUPTS-BODY-236480 :IN SB-EXT:SAVE-LISP-AND-DIE))
23: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

0]


It works nicely in all the other implementations.


--
__Pascal Bourguignon__ http://www.informatimago.com/
A bad day in () is better than a good day in {}.

[Zach Beane]

"Pascal J. Bourguignon" <p...@informatimago.com> writes:

> quicklisp doesn't work in sbcl:
>
>
> [pjb@kuiper :0 ~]$ sbcl
> This is SBCL 1.0.55, an implementation of ANSI Common Lisp.
> More information about SBCL is available at <http://www.sbcl.org/>.
>
> SBCL is free software, provided as is, with absolutely no warranty.
> It is mostly in the public domain; some portions are provided under
> BSD-style licenses. See the CREDITS and COPYING files in the
> distribution for more information.
> STYLE-WARNING: redefining ASDF::LISP-VERSION-STRING in DEFUN
>
> #<PACKAGE "COMMON-LISP-USER">
> ; loading #P"/home/pjb/rc/common.lisp"
> ;; loading #P"/home/pjb/quicklisp/setup.lisp"
>
> debugger invoked on a SIMPLE-ERROR in thread
> #<THREAD "initial thread" RUNNING {1002998CE3}>:
> ASDF 2 is not compatible with ASDF-BINARY-LOCATIONS, which you are using.

[snip]

Does it work if you stop using ASDF-BINARY-LOCATIONS?

Zach

[Pascal J. Bourguignon]

I don't have anything in my configuration files concerning
asdf-binary-locations anymore.

But when I launch sbcl, it seems it still has this symbol in asdf:

0] (find-symbol "OUTPUT-FILES-FOR-SYSTEM-AND-OPERATION" :asdf)

ASDF:OUTPUT-FILES-FOR-SYSTEM-AND-OPERATION
:EXTERNAL
0] ASDF::*ASDF-VERSION*

"2.019"

[Zach Beane]

I'm not sure how that symbol is related to asdf-binary-locations?

How did you get SBCL?

Zach