[asdf-devel] Q about ASDF on LW
Hi all, ---------- Forwarded message ---------- Date: Wed, 20 Jan 2010 10:09:39 GMT From: Nick Levine <ndl@ravenbrook.com> Reply-To: Discuss changes to LibCL <libcl-devel@lists.libcl.com> Subject: Re: [LibCL-devel] [ann] libcl-2010-01-18-snapshot > All the above was with LW 6.0. I also tried LW 5.1.2 and got a > stack overflow loading alexandria\alexandria.asd Odd; this snapshot contains the same alexandria as the last beta... I suspect it's an ASDF thing rather than anything to do with Alexandria. Where shall I send the backtrace? Btw this is fixed by compiling asdf rather than loading it into LW as interpretted source. --------------------------------------- Can an ASDF developer reproduce this on LW5? Is there a good reason to need a compiled ASDF, or would LW benefit from an extra eval-when or finalize-instance somewhere? If we should always compile, is there a way to use asdf-binary-locations to control the dump of the ASDF fasl? Thanks, Daniel P.S. alexandria.asd last changed on 2008-11-23.
If you actually send the backtrace on the list, or attach it to an ASDF bug on launchpad.net, that would help a lot figure out what's wrong and how to fix it. [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] A computer is like an Old Testament god, with a lot of rules and no mercy. — Joseph Campbell 2010/1/20 Daniel Herring <dherring@tentpost.com>:
Hi all,
---------- Forwarded message ---------- Date: Wed, 20 Jan 2010 10:09:39 GMT From: Nick Levine <ndl@ravenbrook.com> Reply-To: Discuss changes to LibCL <libcl-devel@lists.libcl.com> Subject: Re: [LibCL-devel] [ann] libcl-2010-01-18-snapshot
> All the above was with LW 6.0. I also tried LW 5.1.2 and got a > stack overflow loading alexandria\alexandria.asd
Odd; this snapshot contains the same alexandria as the last beta...
I suspect it's an ASDF thing rather than anything to do with Alexandria. Where shall I send the backtrace?
Btw this is fixed by compiling asdf rather than loading it into LW as interpretted source. ---------------------------------------
Can an ASDF developer reproduce this on LW5? Is there a good reason to need a compiled ASDF, or would LW benefit from an extra eval-when or finalize-instance somewhere? If we should always compile, is there a way to use asdf-binary-locations to control the dump of the ASDF fasl?
Thanks, Daniel
P.S. alexandria.asd last changed on 2008-11-23.
From: =?ISO-8859-1?Q?Far=E9?= <fahree@gmail.com> Date: Wed, 20 Jan 2010 14:30:48 -0500 Cc: Nick Levine <ndl@ravenbrook.com>, asdf-devel@common-lisp.net If you actually send the backtrace on the list, or attach it to an ASDF bug on launchpad.net, that would help a lot figure out what's wrong and how to fix it. Here it is. Note that the "extend stack by 50%" restart did the trick. - nick CL-USER 1 > (lisp-implementation-version) "5.1.2" CL-USER 2 > (load #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/asdf/asdf.lisp") ; Loading text file c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/asdf/asdf.lisp" CL-USER 3 > (pushnew #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/_asdf/" asdf:*central-registry* :test #'equal) (#P"c:/tmp/downloads/libcl-2010-01-18-snapshot/_asdf/" (DIRECTORY-NAMESTRING *DEFAULT-PATHNAME-DEFAULTS*)) CL-USER 4 > (asdf:operate 'asdf:load-op :asdf-binary-locations) ; loading system definition from C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\asdf-binary-locations.asd into ; #<The ASDF0 package, 0/16 internal, 0/16 external> ; Loading from #<STREAM::LATIN-1-FILE-STREAM C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\asdf-binary-locations.asd>. ; registering #<SYSTEM ASDF-BINARY-LOCATIONS 20101467> as ASDF-BINARY-LOCATIONS ; Loading text file C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp Warning: (DEFPARAMETER *CENTRALIZE-LISP-BINARIES*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFPARAMETER *DEFAULT-TOPLEVEL-DIRECTORY*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFPARAMETER *INCLUDE-PER-USER-INFORMATION*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFPARAMETER *MAP-ALL-SOURCE-FILES*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFVAR *SOURCE-TO-TARGET-MAPPINGS*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFPARAMETER *IMPLEMENTATION-FEATURES*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFPARAMETER *OS-FEATURES*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFPARAMETER *ARCHITECTURE-FEATURES*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFUN LISP-VERSION-STRING) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFPARAMETER *IMPLEMENTATION-SPECIFIC-DIRECTORY-NAME*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFUN IMPLEMENTATION-SPECIFIC-DIRECTORY-NAME) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFUN PATHNAME-PREFIX-P) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFGENERIC OUTPUT-FILES-FOR-SYSTEM-AND-OPERATION) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFUN SOURCE-TO-TARGET-RESOLVED-MAPPINGS) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (METHOD OUTPUT-FILES-FOR-SYSTEM-AND-OPERATION (SYSTEM T T T T)) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (DEFGENERIC OUTPUT-FILES-USING-MAPPINGS) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (METHOD OUTPUT-FILES-USING-MAPPINGS (T T T)) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). Warning: (METHOD OUTPUT-FILES :AROUND (COMPILE-OP SOURCE-FILE)) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). #<ASDF:LOAD-OP NIL 2141ED43> CL-USER 5 > (load #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/compile-libcl.lisp") ; Loading text file c:\tmp\downloads\libcl-2010-01-18-snapshot\compile-libcl.lisp ; Loading text file c:\tmp\downloads\libcl-2010-01-18-snapshot\libcl-init\packages.lisp ; Loading from #<STREAM::LATIN-1-FILE-STREAM C:\tmp\downloads\libcl-2010-01-18-snapshot\alexandria\alexandria.asd>. Stack overflow (stack size 15997). 1 (continue) Extend stack by 50%. 2 Extend stack by 300%. 3 Try loading c:\tmp\downloads\libcl-2010-01-18-snapshot\compile-libcl.lisp again. 4 Give up loading c:\tmp\downloads\libcl-2010-01-18-snapshot\compile-libcl.lisp. 5 Try loading another file instead of c:\tmp\downloads\libcl-2010-01-18-snapshot\compile-libcl.lisp. 6 (abort) Return to level 0. 7 Return to top loop level 0. Type :b for backtrace, :c <option number> to proceed, or :? for other options CL-USER 6 : 1 > :bb #<The COMMON-LISP-USER package, 9/16 internal, 0/4 external> #<MP:PROCESS Name "CAPI Execution Listener 1" Priority 0 State "Running"> Condition: Stack overflow (stack size 15997). Call to SYSTEM::REAL-STACK-OVERFLOW (offset 848) SYSTEM::ERROR-ARGS : NIL Call to RUNTIME:BAD-ARGS-OR-STACK (offset 76) Call to ACONS (offset 51) SYSTEM::KEY : :DONT-KNOW SYSTEM::DATUM : :DONT-KNOW SYSTEM::ALIST : :DONT-KNOW Interpreted call to anonymous (LAMBDA (DSPEC::%%MACROARG%% #:&ENVIRONMENT763 &AUX (#1=#:&WHOLE764 DSPEC::%%MACROARG%%) (#2=#:\(TEST\ ...\)765 (CDR #1#)) (#:CHECK-LAMBDA-LIST-TOP-LEVEL768 (DSPEC::CHECK-LAMBDA-LIST-TOP-LEVEL (QUOTE (ASDF::TEST ASDF::THEN &OPTIONAL ASDF::ELSE)) #1# #2# 2 3 (QUOTE NIL) :MACRO)) (ASDF::TEST (CAR (DSPEC::THE-CONS #2#))) (#3=#:\(THEN\ ...\)766 (CDR (DSPEC::THE-CONS #2#))) (ASDF::THEN (CAR (DSPEC::THE-CONS #3#))) (#4=#:\(ELSE\)767 (CDR (DSPEC::THE-CONS #3#))) (ASDF::ELSE (IF #4# (CAR (DSPEC::THE-CONS #4#)) NIL))) ...): Block environment contour: (ASDF::OPERATION-ANCESTOR) ((METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION))) Tag environment contour: Function environment contour Variable environment contour: ((#:G880 . #1=#<ASDF:LOAD-OP NIL 2008E947>) (#:G879) (ASDF:OPERATION . #1#)) Call to FUNCALL (offset 25) FUNCTION : #<anonymous interpreted function 214B6EB2> SYSTEM::ARGUMENTS : ((ASDF::AIF (ASDF::OPERATION-PARENT ASDF:OPERATION) (ASDF::OPERATION-ANCESTOR ASDF::IT) ASDF:OPERATION) #<Augmented Environment venv (#<Venv 537931740 G880> #<Venv 537931648 G879> #<Venv 537931556 OPERATION>) fenv ((NEXT-METHOD-P . #<COMPILER::FLET-INFO #<interpreted function NEXT-METHOD-P 20102592>>) (CALL-NEXT-METHOD . #<COMPILER::FLET-INFO #<interpreted function CALL-NEXT-METHOD 20101922>>) (#:SOURCE-LEVEL-ENVIRONMENT-MARKER . #<COMPILER::FLET-INFO (NIL . #1=#<EQ Hash Table{13} 2147B9FB>)>) (#:FUNCTOR-MARKER . #<COMPILER::FLET-INFO (#2=(ASDF:OPERATION) (DECLARE (SYSTEM::SOURCE-LEVEL #1#) (LAMBDA-NAME #) (LAMBDA-LIST . #2#) (SYSTEM::FLAG :METHOD) (SYSTEM::BOUND-TYPE ASDF:OPERATION ASDF:OPERATION) (IGNORABLE ASDF:OPERATION)) (LET (#) (LET # #)))>)) benv NIL tenv NIL decl NIL>) Call to SYSTEM::%EVAL-LIST-SYMBOL (offset 426) EXP : (ASDF::AIF (ASDF::OPERATION-PARENT ASDF:OPERATION) (ASDF::OPERATION-ANCESTOR ASDF::IT) ASDF:OPERATION) Interpreted call to (METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION)): ASDF:OPERATION : #<ASDF:LOAD-OP NIL 2008E947> #:G879 : NIL #:G880 : #<ASDF:LOAD-OP NIL 2008E947> Block environment contour: (ASDF::OPERATION-ANCESTOR) ((METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::IT . #<ASDF:LOAD-OP NIL 2008E947>) (#:G880 . #1=#<ASDF:COMPILE-OP NIL 200E3FFF>) (#:G879) (ASDF:OPERATION . #1#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 38) Interpreted call to (METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION)): ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 200E3FFF> #:G879 : NIL #:G880 : #<ASDF:COMPILE-OP NIL 200E3FFF> ASDF::IT : #<ASDF:LOAD-OP NIL 2008E947> Block environment contour: (ASDF::OPERATION-ANCESTOR) ((METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::IT . #<ASDF:COMPILE-OP NIL 200E3FFF>) (#:G880 . #1=#<ASDF:LOAD-OP NIL 200E5DBF>) (#:G879) (ASDF:OPERATION . #1#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 38) Interpreted call to (METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION)): ASDF:OPERATION : #<ASDF:LOAD-OP NIL 200E5DBF> #:G879 : NIL #:G880 : #<ASDF:LOAD-OP NIL 200E5DBF> ASDF::IT : #<ASDF:COMPILE-OP NIL 200E3FFF> Block environment contour: (ASDF::OPERATION-ANCESTOR) ((METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::IT . #<ASDF:LOAD-OP NIL 200E5DBF>) (#:G880 . #1=#<ASDF:COMPILE-OP NIL 200FD903>) (#:G879) (ASDF:OPERATION . #1#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 38) Interpreted call to (METHOD ASDF::OPERATION-ANCESTOR (ASDF:OPERATION)): ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 200FD903> #:G879 : NIL #:G880 : #<ASDF:COMPILE-OP NIL 200FD903> ASDF::IT : #<ASDF:LOAD-OP NIL 200E5DBF> Block environment contour: (ASDF::COMPONENT-VISITED-P) ((METHOD ASDF::COMPONENT-VISITED-P (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: Function environment contour Variable environment contour: ((#:G890 . #2=#<ASDF:COMPILE-OP NIL 200FD903>) (#:G891 . #1=#<ASDF:CL-SOURCE-FILE "strings" 200F4D6F>) (#:G889) (ASDF::C . #1#) (ASDF::O . #2#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 38) Interpreted call to (METHOD ASDF::COMPONENT-VISITED-P (ASDF:OPERATION ASDF:COMPONENT)): ASDF::O : #<ASDF:COMPILE-OP NIL 200FD903> ASDF::C : #<ASDF:CL-SOURCE-FILE "strings" 200F4D6F> #:G889 : NIL #:G891 : #<ASDF:CL-SOURCE-FILE "strings" 200F4D6F> #:G890 : #<ASDF:COMPILE-OP NIL 200FD903> Block environment contour: (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::FORCED) (#:G944 . #2=#<ASDF:COMPILE-OP NIL 200FD903>) (#:G945 . #1=#<ASDF:CL-SOURCE-FILE "strings" 200F4D6F>) (#:G943) (ASDF::C . #1#) (ASDF:OPERATION . #2#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)): ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 200FD903> ASDF::C : #<ASDF:CL-SOURCE-FILE "strings" 200F4D6F> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "strings" 200F4D6F> #:G944 : #<ASDF:COMPILE-OP NIL 200FD903> ASDF::FORCED : NIL Block environment contour: (ASDF::%DO-ONE-DEP) (ASDF::%DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::OP . #<ASDF:COMPILE-OP NIL 200FD903>) (ASDF::DEP-C . #2=#<ASDF:CL-SOURCE-FILE #1="strings" 200F4D6F>) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . #1#) (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #3=#<ASDF:LOAD-OP NIL 200E5DBF>) (#:G945 . #2#) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #3#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to ASDF::%DO-ONE-DEP: ASDF:OPERATION : #<ASDF:LOAD-OP NIL 200E5DBF> ASDF::C : #<ASDF:CL-SOURCE-FILE "strings" 200F4D6F> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "strings" 200F4D6F> #:G944 : #<ASDF:LOAD-OP NIL 200E5DBF> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "strings" ASDF::REQUIRED-V : NIL ASDF::DEP-C : #<ASDF:CL-SOURCE-FILE "strings" 200F4D6F> ASDF::OP : #<ASDF:COMPILE-OP NIL 200FD903> Block environment contour: (#:G10985) (NIL) (ASDF::DO-ONE-DEP) (ASDF::DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#1=#:|loop-10984| (NIL) (RESTART-CASE (RETURN (ASDF::%DO-ONE-DEP ASDF::REQUIRED-OP ASDF::REQUIRED-C ASDF::REQUIRED-V)) (ASDF:RETRY NIL :REPORT (LAMBDA (ASDF::S) (FORMAT ASDF::S "~@<Retry loading component ~S.~@:>" ASDF::REQUIRED-C)) :TEST (LAMBDA (ASDF::C) (AND (TYPEP ASDF::C (QUOTE ASDF:MISSING-DEPENDENCY)) (EQUALP (ASDF::MISSING-REQUIRES ASDF::C) ASDF::REQUIRED-C))))) (GO #1#)) Function environment contour Variable environment contour: ((CONDITIONS::*RESTART-CLUSTERS* . #<Special Marker>) (#:G10989 . #1=(NIL)) (#:G10990 . #<anonymous interpreted function 200FBA7A>) (#:G10991 . #<anonymous interpreted function 200FBE7A>) (#:G10986 . #1#) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . #2="strings") (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #4=#<ASDF:LOAD-OP NIL 200E5DBF>) (#:G945 . #3=#<ASDF:CL-SOURCE-FILE #2# 214DBE4B>) (#:G943) (ASDF::C . #3#) (ASDF:OPERATION . #4#)) Interpreted call to ASDF::DO-ONE-DEP: ASDF:OPERATION : #<ASDF:LOAD-OP NIL 214E1AE3> ASDF::C : #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B> #:G944 : #<ASDF:LOAD-OP NIL 214E1AE3> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "strings" ASDF::REQUIRED-V : NIL #:G10986 : (NIL) #:G10991 : #<anonymous interpreted function 214D33D2> #:G10990 : #<anonymous interpreted function 214D33BA> #:G10989 : (NIL) CONDITIONS::*RESTART-CLUSTERS* : ((#<RESTART ASDF:RETRY 214D9613>) (#<RESTART ASDF:RETRY 214E22DB>) (#<RESTART ASDF:RETRY 214B8103>) (#<RESTART ASDF:RETRY 214D8747>) (#<RESTART ASDF:RETRY 214DE247>) (#<RESTART ASDF:RETRY 214E6653>) (#<RESTART NIL 2008A54F> #<RESTART NIL 2008A4F7> #<RESTART NIL 2008A49F>) (#<RESTART ABORT 2008A43B>) (#<RESTART ABORT 2008A923>) (#<RESTART ABORT 215703FF>)) Block environment contour: (NIL) (ASDF::DO-DEP) (ASDF::DO-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#2=#:G10981 (NIL) (WHEN (ENDP #1=#:|dolist-10980|) (RETURN-FROM NIL NIL)) (LET ((ASDF::D (CAR (COMPILER::INTERNAL-THE CONS #1#)))) (DECLARE (IGNORABLE ASDF::D)) (TAGBODY (COND ((CONSP ASDF::D) (COND ((STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "VERSION") (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) ((AND (STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "FEATURE") (FIND (SECOND ASDF::D) *FEATURES* :TEST (QUOTE STRING-EQUAL))) (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) (T (ERROR "Bad dependency ~a. Dependencies must be (:version <version>), (:feature <feature>), or a name" ASDF::D)))) (T (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP ASDF::D NIL)))))) (SETQ #1# (CDR (COMPILER::INTERNAL-THE CONS #1#))) (GO #2#)) Function environment contour Variable environment contour: ((ASDF::D . #1="strings") (#:|dolist-10980| . #2=(#1#)) (ASDF::DEP . #2#) (ASDF::OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #4=#<ASDF:LOAD-OP NIL 214E1AE3>) (#:G945 . #3=#<ASDF:CL-SOURCE-FILE #1# 214DBE4B>) (#:G943) (ASDF::C . #3#) (ASDF:OPERATION . #4#)) Interpreted call to ASDF::DO-DEP: ASDF:OPERATION : #<ASDF:LOAD-OP NIL 214E1AE3> ASDF::C : #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B> #:G944 : #<ASDF:LOAD-OP NIL 214E1AE3> ASDF::FORCED : NIL ASDF::OP : ASDF:COMPILE-OP ASDF::DEP : ("strings") #:|dolist-10980| : ("strings") ASDF::D : "strings" Block environment contour: (NIL) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#:|end-loop-10968| (NIL) (RETURN-FROM NIL NIL)) (#5=#:|begin-loop-10967| (NIL) (PROGN (WHEN (OR (ENDP #1=#:|tail-10971|)) (GO #6=#:|end-loop-10968|)) (LET ((#4=#:|temp-10974| (FUNCALL #:|by-10972| #1#)) (#2=#:|temp-10973| (SYSTEM:CAR$CONS #1#))) (LET ((#3=#:|destructor-10975| #2#)) (SETQ ASDF::REQUIRED-OP (CAR #3#)) (SETQ ASDF::DEPS (CDR #3#))) (SETQ #1# #4#))) (ASDF::DO-DEP ASDF::REQUIRED-OP ASDF::DEPS) (GO #5#) #6# (RETURN-FROM NIL NIL)) Function environment contour Variable environment contour: ((ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::DEPS #1="strings") (#:|tail-10971| (ASDF:LOAD-OP "package")) (#:|by-10972| . SYSTEM:CDR$CONS) (ASDF::FORCED) (#:G944 . #3=#<ASDF:LOAD-OP NIL 214E1AE3>) (#:G945 . #2=#<ASDF:CL-SOURCE-FILE #1# 214DBE4B>) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #3#)) Interpreted call to (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)): ASDF:OPERATION : #<ASDF:LOAD-OP NIL 214E1AE3> ASDF::C : #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B> #:G944 : #<ASDF:LOAD-OP NIL 214E1AE3> ASDF::FORCED : NIL #:|by-10972| : SYSTEM:CDR$CONS #:|tail-10971| : ((ASDF:LOAD-OP "package")) ASDF::DEPS : ("strings") ASDF::REQUIRED-OP : ASDF:COMPILE-OP Block environment contour: (ASDF::%DO-ONE-DEP) (ASDF::%DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::OP . #<ASDF:LOAD-OP NIL 214E1AE3>) (ASDF::DEP-C . #1=#<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . "strings") (ASDF::REQUIRED-OP . ASDF:LOAD-OP) (ASDF::FORCED (#3=#<ASDF:COMPILE-OP NIL 214E2337> . #<ASDF:CL-SOURCE-FILE "symbols" 214E6017>) (ASDF::PRUNED-OP . #1#) (ASDF::PRUNED-OP . #2=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (ASDF::PRUNED-OP . #2#)) (#:G944 . #3#) (#:G945 . #4=#<ASDF:CL-SOURCE-FILE "macros" 214E5C7B>) (#:G943) (ASDF::C . #4#) (ASDF:OPERATION . #3#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to ASDF::%DO-ONE-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : ((#<ASDF:COMPILE-OP NIL 214E2337> . #<ASDF:CL-SOURCE-FILE "symbols" 214E6017>) (ASDF::PRUNED-OP . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (ASDF::PRUNED-OP . #1=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (ASDF::PRUNED-OP . #1#)) ASDF::REQUIRED-OP : ASDF:LOAD-OP ASDF::REQUIRED-C : "strings" ASDF::REQUIRED-V : NIL ASDF::DEP-C : #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B> ASDF::OP : #<ASDF:LOAD-OP NIL 214E1AE3> Block environment contour: (#:G10952) (NIL) (ASDF::DO-ONE-DEP) (ASDF::DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#1=#:|loop-10951| (NIL) (RESTART-CASE (RETURN (ASDF::%DO-ONE-DEP ASDF::REQUIRED-OP ASDF::REQUIRED-C ASDF::REQUIRED-V)) (ASDF:RETRY NIL :REPORT (LAMBDA (ASDF::S) (FORMAT ASDF::S "~@<Retry loading component ~S.~@:>" ASDF::REQUIRED-C)) :TEST (LAMBDA (ASDF::C) (AND (TYPEP ASDF::C (QUOTE ASDF:MISSING-DEPENDENCY)) (EQUALP (ASDF::MISSING-REQUIRES ASDF::C) ASDF::REQUIRED-C))))) (GO #1#)) Function environment contour Variable environment contour: ((CONDITIONS::*RESTART-CLUSTERS* . #<Special Marker>) (#:G10956 . #1=(NIL)) (#:G10957 . #<anonymous interpreted function 214D31DA>) (#:G10958 . #<anonymous interpreted function 214D31F2>) (#:G10953 . #1#) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . "strings") (ASDF::REQUIRED-OP . ASDF:LOAD-OP) (ASDF::FORCED (#3=#<ASDF:COMPILE-OP NIL 214E2337> . #<ASDF:CL-SOURCE-FILE "symbols" 214E6017>) (ASDF::PRUNED-OP . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (ASDF::PRUNED-OP . #2=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (ASDF::PRUNED-OP . #2#)) (#:G944 . #3#) (#:G945 . #4=#<ASDF:CL-SOURCE-FILE "macros" 214E5C7B>) (#:G943) (ASDF::C . #4#) (ASDF:OPERATION . #3#)) Interpreted call to ASDF::DO-ONE-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : ((#<ASDF:COMPILE-OP NIL 214E2337> . #<ASDF:CL-SOURCE-FILE "symbols" 214E6017>) (ASDF::PRUNED-OP . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (ASDF::PRUNED-OP . #1=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (ASDF::PRUNED-OP . #1#)) ASDF::REQUIRED-OP : ASDF:LOAD-OP ASDF::REQUIRED-C : "strings" ASDF::REQUIRED-V : NIL #:G10953 : (NIL) #:G10958 : #<anonymous interpreted function 214D31F2> #:G10957 : #<anonymous interpreted function 214D31DA> #:G10956 : (NIL) CONDITIONS::*RESTART-CLUSTERS* : ((#<RESTART ASDF:RETRY 214E22DB>) (#<RESTART ASDF:RETRY 214B8103>) (#<RESTART ASDF:RETRY 214D8747>) (#<RESTART ASDF:RETRY 214DE247>) (#<RESTART ASDF:RETRY 214E6653>) (#<RESTART NIL 214D00A3> #<RESTART NIL 214D00EF> #<RESTART NIL 214D013B>) (#<RESTART ABORT 214D0187>) (#<RESTART ABORT 214D001B>) (#<RESTART ABORT 215703FF>)) Block environment contour: (NIL) (ASDF::DO-DEP) (ASDF::DO-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#2=#:G10936 (NIL) (WHEN (ENDP #1=#:|dolist-10935|) (RETURN-FROM NIL NIL)) (LET ((ASDF::D (CAR (COMPILER::INTERNAL-THE CONS #1#)))) (DECLARE (IGNORABLE ASDF::D)) (TAGBODY (COND ((CONSP ASDF::D) (COND ((STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "VERSION") (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) ((AND (STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "FEATURE") (FIND (SECOND ASDF::D) *FEATURES* :TEST (QUOTE STRING-EQUAL))) (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) (T (ERROR "Bad dependency ~a. Dependencies must be (:version <version>), (:feature <feature>), or a name" ASDF::D)))) (T (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP ASDF::D NIL)))))) (SETQ #1# (CDR (COMPILER::INTERNAL-THE CONS #1#))) (GO #2#)) Function environment contour Variable environment contour: ((ASDF::D . #1="strings") (#:|dolist-10935| . #2=(#1# "symbols")) (ASDF::DEP "package" . #2#) (ASDF::OP . ASDF:LOAD-OP) (ASDF::FORCED (#4=#<ASDF:COMPILE-OP NIL 214E2337> . #<ASDF:CL-SOURCE-FILE "symbols" 214E6017>) (ASDF::PRUNED-OP . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (ASDF::PRUNED-OP . #3=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (ASDF::PRUNED-OP . #3#)) (#:G944 . #4#) (#:G945 . #5=#<ASDF:CL-SOURCE-FILE "macros" 214E5C7B>) (#:G943) (ASDF::C . #5#) (ASDF:OPERATION . #4#)) Interpreted call to ASDF::DO-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : ((#<ASDF:COMPILE-OP NIL 214E2337> . #<ASDF:CL-SOURCE-FILE "symbols" 214E6017>) (ASDF::PRUNED-OP . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (ASDF::PRUNED-OP . #1=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (ASDF::PRUNED-OP . #1#)) ASDF::OP : ASDF:LOAD-OP ASDF::DEP : ("package" "strings" "symbols") #:|dolist-10935| : ("strings" "symbols") ASDF::D : "strings" Block environment contour: (NIL) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#:|end-loop-10923| (NIL) (RETURN-FROM NIL NIL)) (#5=#:|begin-loop-10922| (NIL) (PROGN (WHEN (OR (ENDP #1=#:|tail-10926|)) (GO #6=#:|end-loop-10923|)) (LET ((#4=#:|temp-10929| (FUNCALL #:|by-10927| #1#)) (#2=#:|temp-10928| (SYSTEM:CAR$CONS #1#))) (LET ((#3=#:|destructor-10930| #2#)) (SETQ ASDF::REQUIRED-OP (CAR #3#)) (SETQ ASDF::DEPS (CDR #3#))) (SETQ #1# #4#))) (ASDF::DO-DEP ASDF::REQUIRED-OP ASDF::DEPS) (GO #5#) #6# (RETURN-FROM NIL NIL)) Function environment contour Variable environment contour: ((ASDF::REQUIRED-OP . ASDF:LOAD-OP) (ASDF::DEPS . #1=("package" "strings" "symbols")) (#:|tail-10926|) (#:|by-10927| . SYSTEM:CDR$CONS) (ASDF::DO-FIRST (ASDF:LOAD-OP . #1#)) (ASDF::MODULE-OPS) (ASDF::FORCED (#3=#<ASDF:COMPILE-OP NIL 214E2337> . #<ASDF:CL-SOURCE-FILE "symbols" 214E6017>) (ASDF::PRUNED-OP . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (ASDF::PRUNED-OP . #2=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (ASDF::PRUNED-OP . #2#)) (#:G944 . #3#) (#:G945 . #4=#<ASDF:CL-SOURCE-FILE "macros" 214E5C7B>) (#:G943) (ASDF::C . #4#) (ASDF:OPERATION . #3#)) Interpreted call to (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)): ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : ((#<ASDF:COMPILE-OP NIL 214E2337> . #<ASDF:CL-SOURCE-FILE "symbols" 214E6017>) (ASDF::PRUNED-OP . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (ASDF::PRUNED-OP . #1=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (ASDF::PRUNED-OP . #1#)) ASDF::MODULE-OPS : NIL ASDF::DO-FIRST : ((ASDF:LOAD-OP "package" "strings" "symbols")) #:|by-10927| : SYSTEM:CDR$CONS #:|tail-10926| : NIL ASDF::DEPS : ("package" "strings" "symbols") ASDF::REQUIRED-OP : ASDF:LOAD-OP Block environment contour: (ASDF::%DO-ONE-DEP) (ASDF::%DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::OP . #1=#<ASDF:COMPILE-OP NIL 214E2337>) (ASDF::DEP-C . #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B>) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . "macros") (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #1#) (#:G945 . #2=#<ASDF:CL-SOURCE-FILE "functions" 214DBE83>) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #1#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to ASDF::%DO-ONE-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "macros" ASDF::REQUIRED-V : NIL ASDF::DEP-C : #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> ASDF::OP : #<ASDF:COMPILE-OP NIL 214E2337> Block environment contour: (#:G10787) (NIL) (ASDF::DO-ONE-DEP) (ASDF::DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#1=#:|loop-10786| (NIL) (RESTART-CASE (RETURN (ASDF::%DO-ONE-DEP ASDF::REQUIRED-OP ASDF::REQUIRED-C ASDF::REQUIRED-V)) (ASDF:RETRY NIL :REPORT (LAMBDA (ASDF::S) (FORMAT ASDF::S "~@<Retry loading component ~S.~@:>" ASDF::REQUIRED-C)) :TEST (LAMBDA (ASDF::C) (AND (TYPEP ASDF::C (QUOTE ASDF:MISSING-DEPENDENCY)) (EQUALP (ASDF::MISSING-REQUIRES ASDF::C) ASDF::REQUIRED-C))))) (GO #1#)) Function environment contour Variable environment contour: ((CONDITIONS::*RESTART-CLUSTERS* . #<Special Marker>) (#:G10791 . #1=(NIL)) (#:G10792 . #<anonymous interpreted function 214B7802>) (#:G10793 . #<anonymous interpreted function 214B77EA>) (#:G10788 . #1#) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . "macros") (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #3=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #2=#<ASDF:CL-SOURCE-FILE "functions" 214DBE83>) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #3#)) Interpreted call to ASDF::DO-ONE-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "macros" ASDF::REQUIRED-V : NIL #:G10788 : (NIL) #:G10793 : #<anonymous interpreted function 214B77EA> #:G10792 : #<anonymous interpreted function 214B7802> #:G10791 : (NIL) CONDITIONS::*RESTART-CLUSTERS* : ((#<RESTART ASDF:RETRY 214B8103>) (#<RESTART ASDF:RETRY 214D8747>) (#<RESTART ASDF:RETRY 214DE247>) (#<RESTART ASDF:RETRY 214E6653>) (#<RESTART NIL 214D00A3> #<RESTART NIL 214D00EF> #<RESTART NIL 214D013B>) (#<RESTART ABORT 214D0187>) (#<RESTART ABORT 214D001B>) (#<RESTART ABORT 215703FF>)) Block environment contour: (NIL) (ASDF::DO-DEP) (ASDF::DO-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#2=#:G10783 (NIL) (WHEN (ENDP #1=#:|dolist-10782|) (RETURN-FROM NIL NIL)) (LET ((ASDF::D (CAR (COMPILER::INTERNAL-THE CONS #1#)))) (DECLARE (IGNORABLE ASDF::D)) (TAGBODY (COND ((CONSP ASDF::D) (COND ((STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "VERSION") (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) ((AND (STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "FEATURE") (FIND (SECOND ASDF::D) *FEATURES* :TEST (QUOTE STRING-EQUAL))) (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) (T (ERROR "Bad dependency ~a. Dependencies must be (:version <version>), (:feature <feature>), or a name" ASDF::D)))) (T (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP ASDF::D NIL)))))) (SETQ #1# (CDR (COMPILER::INTERNAL-THE CONS #1#))) (GO #2#)) Function environment contour Variable environment contour: ((ASDF::D . #1="macros") (#:|dolist-10782| . #2=(#1# "symbols" "package")) (ASDF::DEP . #2#) (ASDF::OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #4=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #3=#<ASDF:CL-SOURCE-FILE "functions" 214DBE83>) (#:G943) (ASDF::C . #3#) (ASDF:OPERATION . #4#)) Interpreted call to ASDF::DO-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::OP : ASDF:COMPILE-OP ASDF::DEP : ("macros" "symbols" "package") #:|dolist-10782| : ("macros" "symbols" "package") ASDF::D : "macros" Block environment contour: (NIL) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#:|end-loop-10770| (NIL) (RETURN-FROM NIL NIL)) (#5=#:|begin-loop-10769| (NIL) (PROGN (WHEN (OR (ENDP #1=#:|tail-10773|)) (GO #6=#:|end-loop-10770|)) (LET ((#4=#:|temp-10776| (FUNCALL #:|by-10774| #1#)) (#2=#:|temp-10775| (SYSTEM:CAR$CONS #1#))) (LET ((#3=#:|destructor-10777| #2#)) (SETQ ASDF::REQUIRED-OP (CAR #3#)) (SETQ ASDF::DEPS (CDR #3#))) (SETQ #1# #4#))) (ASDF::DO-DEP ASDF::REQUIRED-OP ASDF::DEPS) (GO #5#) #6# (RETURN-FROM NIL NIL)) Function environment contour Variable environment contour: ((ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::DEPS "macros" "symbols" "package") (#:|tail-10773|) (#:|by-10774| . SYSTEM:CDR$CONS) (ASDF::FORCED) (#:G944 . #2=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #1=#<ASDF:CL-SOURCE-FILE "functions" 214DBE83>) (#:G943) (ASDF::C . #1#) (ASDF:OPERATION . #2#)) Interpreted call to (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)): ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL #:|by-10774| : SYSTEM:CDR$CONS #:|tail-10773| : NIL ASDF::DEPS : ("macros" "symbols" "package") ASDF::REQUIRED-OP : ASDF:COMPILE-OP Block environment contour: (ASDF::%DO-ONE-DEP) (ASDF::%DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::OP . #1=#<ASDF:COMPILE-OP NIL 214E2337>) (ASDF::DEP-C . #<ASDF:CL-SOURCE-FILE "functions" 214DBE83>) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . "functions") (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #1#) (#:G945 . #2=#<ASDF:CL-SOURCE-FILE "lists" 214E8E37>) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #1#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to ASDF::%DO-ONE-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "functions" ASDF::REQUIRED-V : NIL ASDF::DEP-C : #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> ASDF::OP : #<ASDF:COMPILE-OP NIL 214E2337> Block environment contour: (#:G10754) (NIL) (ASDF::DO-ONE-DEP) (ASDF::DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#1=#:|loop-10753| (NIL) (RESTART-CASE (RETURN (ASDF::%DO-ONE-DEP ASDF::REQUIRED-OP ASDF::REQUIRED-C ASDF::REQUIRED-V)) (ASDF:RETRY NIL :REPORT (LAMBDA (ASDF::S) (FORMAT ASDF::S "~@<Retry loading component ~S.~@:>" ASDF::REQUIRED-C)) :TEST (LAMBDA (ASDF::C) (AND (TYPEP ASDF::C (QUOTE ASDF:MISSING-DEPENDENCY)) (EQUALP (ASDF::MISSING-REQUIRES ASDF::C) ASDF::REQUIRED-C))))) (GO #1#)) Function environment contour Variable environment contour: ((CONDITIONS::*RESTART-CLUSTERS* . #<Special Marker>) (#:G10758 . #1=(NIL)) (#:G10759 . #<anonymous interpreted function 214D3492>) (#:G10760 . #<anonymous interpreted function 214D34AA>) (#:G10755 . #1#) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . "functions") (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #3=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #2=#<ASDF:CL-SOURCE-FILE "lists" 214E8E37>) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #3#)) Interpreted call to ASDF::DO-ONE-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "functions" ASDF::REQUIRED-V : NIL #:G10755 : (NIL) #:G10760 : #<anonymous interpreted function 214D34AA> #:G10759 : #<anonymous interpreted function 214D3492> #:G10758 : (NIL) CONDITIONS::*RESTART-CLUSTERS* : ((#<RESTART ASDF:RETRY 214D8747>) (#<RESTART ASDF:RETRY 214DE247>) (#<RESTART ASDF:RETRY 214E6653>) (#<RESTART NIL 214D00A3> #<RESTART NIL 214D00EF> #<RESTART NIL 214D013B>) (#<RESTART ABORT 214D0187>) (#<RESTART ABORT 214D001B>) (#<RESTART ABORT 215703FF>)) Block environment contour: (NIL) (ASDF::DO-DEP) (ASDF::DO-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#2=#:G10750 (NIL) (WHEN (ENDP #1=#:|dolist-10749|) (RETURN-FROM NIL NIL)) (LET ((ASDF::D (CAR (COMPILER::INTERNAL-THE CONS #1#)))) (DECLARE (IGNORABLE ASDF::D)) (TAGBODY (COND ((CONSP ASDF::D) (COND ((STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "VERSION") (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) ((AND (STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "FEATURE") (FIND (SECOND ASDF::D) *FEATURES* :TEST (QUOTE STRING-EQUAL))) (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) (T (ERROR "Bad dependency ~a. Dependencies must be (:version <version>), (:feature <feature>), or a name" ASDF::D)))) (T (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP ASDF::D NIL)))))) (SETQ #1# (CDR (COMPILER::INTERNAL-THE CONS #1#))) (GO #2#)) Function environment contour Variable environment contour: ((ASDF::D . #1="functions") (#:|dolist-10749| . #2=(#1# "package")) (ASDF::DEP . #2#) (ASDF::OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #4=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #3=#<ASDF:CL-SOURCE-FILE "lists" 214E8E37>) (#:G943) (ASDF::C . #3#) (ASDF:OPERATION . #4#)) Interpreted call to ASDF::DO-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::OP : ASDF:COMPILE-OP ASDF::DEP : ("functions" "package") #:|dolist-10749| : ("functions" "package") ASDF::D : "functions" Block environment contour: (NIL) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#:|end-loop-10737| (NIL) (RETURN-FROM NIL NIL)) (#5=#:|begin-loop-10736| (NIL) (PROGN (WHEN (OR (ENDP #1=#:|tail-10740|)) (GO #6=#:|end-loop-10737|)) (LET ((#4=#:|temp-10743| (FUNCALL #:|by-10741| #1#)) (#2=#:|temp-10742| (SYSTEM:CAR$CONS #1#))) (LET ((#3=#:|destructor-10744| #2#)) (SETQ ASDF::REQUIRED-OP (CAR #3#)) (SETQ ASDF::DEPS (CDR #3#))) (SETQ #1# #4#))) (ASDF::DO-DEP ASDF::REQUIRED-OP ASDF::DEPS) (GO #5#) #6# (RETURN-FROM NIL NIL)) Function environment contour Variable environment contour: ((ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::DEPS "functions" "package") (#:|tail-10740|) (#:|by-10741| . SYSTEM:CDR$CONS) (ASDF::FORCED) (#:G944 . #2=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #1=#<ASDF:CL-SOURCE-FILE "lists" 214E8E37>) (#:G943) (ASDF::C . #1#) (ASDF:OPERATION . #2#)) Interpreted call to (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)): ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL #:|by-10741| : SYSTEM:CDR$CONS #:|tail-10740| : NIL ASDF::DEPS : ("functions" "package") ASDF::REQUIRED-OP : ASDF:COMPILE-OP Block environment contour: (ASDF::%DO-ONE-DEP) (ASDF::%DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::OP . #1=#<ASDF:COMPILE-OP NIL 214E2337>) (ASDF::DEP-C . #<ASDF:CL-SOURCE-FILE "lists" 214E8E37>) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . "lists") (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #1#) (#:G945 . #2=#<ASDF:CL-SOURCE-FILE "io" 214D5DAF>) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #1#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to ASDF::%DO-ONE-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "lists" ASDF::REQUIRED-V : NIL ASDF::DEP-C : #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> ASDF::OP : #<ASDF:COMPILE-OP NIL 214E2337> Block environment contour: (#:G10721) (NIL) (ASDF::DO-ONE-DEP) (ASDF::DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#1=#:|loop-10720| (NIL) (RESTART-CASE (RETURN (ASDF::%DO-ONE-DEP ASDF::REQUIRED-OP ASDF::REQUIRED-C ASDF::REQUIRED-V)) (ASDF:RETRY NIL :REPORT (LAMBDA (ASDF::S) (FORMAT ASDF::S "~@<Retry loading component ~S.~@:>" ASDF::REQUIRED-C)) :TEST (LAMBDA (ASDF::C) (AND (TYPEP ASDF::C (QUOTE ASDF:MISSING-DEPENDENCY)) (EQUALP (ASDF::MISSING-REQUIRES ASDF::C) ASDF::REQUIRED-C))))) (GO #1#)) Function environment contour Variable environment contour: ((CONDITIONS::*RESTART-CLUSTERS* . #<Special Marker>) (#:G10725 . #1=(NIL)) (#:G10726 . #<anonymous interpreted function 214D32B2>) (#:G10727 . #<anonymous interpreted function 214D32CA>) (#:G10722 . #1#) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . "lists") (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #3=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #2=#<ASDF:CL-SOURCE-FILE "io" 214D5DAF>) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #3#)) Interpreted call to ASDF::DO-ONE-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "lists" ASDF::REQUIRED-V : NIL #:G10722 : (NIL) #:G10727 : #<anonymous interpreted function 214D32CA> #:G10726 : #<anonymous interpreted function 214D32B2> #:G10725 : (NIL) CONDITIONS::*RESTART-CLUSTERS* : ((#<RESTART ASDF:RETRY 214DE247>) (#<RESTART ASDF:RETRY 214E6653>) (#<RESTART NIL 214D00A3> #<RESTART NIL 214D00EF> #<RESTART NIL 214D013B>) (#<RESTART ABORT 214D0187>) (#<RESTART ABORT 214D001B>) (#<RESTART ABORT 215703FF>)) Block environment contour: (NIL) (ASDF::DO-DEP) (ASDF::DO-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#2=#:G10717 (NIL) (WHEN (ENDP #1=#:|dolist-10716|) (RETURN-FROM NIL NIL)) (LET ((ASDF::D (CAR (COMPILER::INTERNAL-THE CONS #1#)))) (DECLARE (IGNORABLE ASDF::D)) (TAGBODY (COND ((CONSP ASDF::D) (COND ((STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "VERSION") (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) ((AND (STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "FEATURE") (FIND (SECOND ASDF::D) *FEATURES* :TEST (QUOTE STRING-EQUAL))) (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) (T (ERROR "Bad dependency ~a. Dependencies must be (:version <version>), (:feature <feature>), or a name" ASDF::D)))) (T (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP ASDF::D NIL)))))) (SETQ #1# (CDR (COMPILER::INTERNAL-THE CONS #1#))) (GO #2#)) Function environment contour Variable environment contour: ((ASDF::D . #1="lists") (#:|dolist-10716| . #2=(#1# "macros" "package")) (ASDF::DEP . #2#) (ASDF::OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #4=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #3=#<ASDF:CL-SOURCE-FILE "io" 214D5DAF>) (#:G943) (ASDF::C . #3#) (ASDF:OPERATION . #4#)) Interpreted call to ASDF::DO-DEP: ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL ASDF::OP : ASDF:COMPILE-OP ASDF::DEP : ("lists" "macros" "package") #:|dolist-10716| : ("lists" "macros" "package") ASDF::D : "lists" Block environment contour: (NIL) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#:|end-loop-10704| (NIL) (RETURN-FROM NIL NIL)) (#5=#:|begin-loop-10703| (NIL) (PROGN (WHEN (OR (ENDP #1=#:|tail-10707|)) (GO #6=#:|end-loop-10704|)) (LET ((#4=#:|temp-10710| (FUNCALL #:|by-10708| #1#)) (#2=#:|temp-10709| (SYSTEM:CAR$CONS #1#))) (LET ((#3=#:|destructor-10711| #2#)) (SETQ ASDF::REQUIRED-OP (CAR #3#)) (SETQ ASDF::DEPS (CDR #3#))) (SETQ #1# #4#))) (ASDF::DO-DEP ASDF::REQUIRED-OP ASDF::DEPS) (GO #5#) #6# (RETURN-FROM NIL NIL)) Function environment contour Variable environment contour: ((ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::DEPS "lists" "macros" "package") (#:|tail-10707|) (#:|by-10708| . SYSTEM:CDR$CONS) (ASDF::FORCED) (#:G944 . #2=#<ASDF:COMPILE-OP NIL 214E2337>) (#:G945 . #1=#<ASDF:CL-SOURCE-FILE "io" 214D5DAF>) (#:G943) (ASDF::C . #1#) (ASDF:OPERATION . #2#)) Interpreted call to (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)): ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G943 : NIL #:G945 : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : NIL #:|by-10708| : SYSTEM:CDR$CONS #:|tail-10707| : NIL ASDF::DEPS : ("lists" "macros" "package") ASDF::REQUIRED-OP : ASDF:COMPILE-OP Block environment contour: (#:G10691) (#:|normal-return|) (#:|error-return|) (NIL) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#:G10693 (NIL) (RETURN-FROM #:G10691 (LET ((CONDITION #:G10692)) (DECLARE (IGNORABLE CONDITION)) (IF (EQ (ASDF::MODULE-IF-COMPONENT-DEP-FAILS ASDF::C) :FAIL) (ERROR CONDITION)) (SETF ERROR CONDITION)))) (#:|end-loop-9927| (NIL) (RETURN-FROM NIL NIL)) (#4=#:|begin-loop-9926| (NIL) (PROGN (WHEN (OR (ENDP #1=#:|tail-9930|)) (GO #5=#:|end-loop-9927|)) (LET ((#3=#:|temp-9933| (FUNCALL #:|by-9931| #1#)) (#2=#:|temp-9932| (SYSTEM:CAR$CONS #1#))) (SETQ ASDF::KID #2#) (SETQ #1# #3#))) (HANDLER-CASE (ASDF::APPENDF ASDF::FORCED (ASDF::TRAVERSE ASDF:OPERATION ASDF::KID)) (ASDF:MISSING-DEPENDENCY (CONDITION) (IF (EQ (ASDF::MODULE-IF-COMPONENT-DEP-FAILS ASDF::C) :FAIL) (ERROR CONDITION)) (SETF ERROR CONDITION)) (:NO-ERROR (ASDF::C) (DECLARE (IGNORE ASDF::C)) (SETF ASDF::AT-LEAST-ONE T))) (GO #4#) #5# (RETURN-FROM NIL NIL)) Function environment contour Variable environment contour: ((CONDITIONS::*HANDLER-CLUSTERS* . #<Special Marker>) (#:G10694 . #<anonymous interpreted function 214D30D2>) (#:G10692) (ASDF::KID . #<ASDF:CL-SOURCE-FILE "io" 214D5DAF>) (#:|tail-9930| #<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #<ASDF:CL-SOURCE-FILE "control-flow" 214D7BCF> #<ASDF:CL-SOURCE-FILE "symbols" 214E6017> #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #<ASDF:CL-SOURCE-FILE "types" 214E40C7> #<ASDF:CL-SOURCE-FILE "arrays" 214D624B> #<ASDF:CL-SOURCE-FILE "sequences" 214E684F> #<ASDF:CL-SOURCE-FILE "numbers" 214DF68F> #<ASDF:CL-SOURCE-FILE "features" 214B850B>) (#:|by-9931| . SYSTEM:CDR$CONS) (ASDF::AT-LEAST-ONE . T) (ASDF::FORCED (#2=#<ASDF:COMPILE-OP NIL 214E2337> . #1=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (#<ASDF:LOAD-OP NIL 21492DAF> . #1#) (#2# . #<ASDF:CL-SOURCE-FILE "definitions" 214D5E17>) (#2# . #<ASDF:CL-SOURCE-FILE "binding" 214E5E57>) (#2# . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (#2# . #<ASDF:CL-SOURCE-FILE "conditions" 214E8F67>) (#2# . #<ASDF:CL-SOURCE-FILE "hash-tables" 214E454B>)) (ERROR) (ASDF::FORCED) (#:G944 . #2#) (#:G945 . #3=#<ASDF:SYSTEM "alexandria" 214EAB03>) (#:G943) (ASDF::C . #3#) (ASDF:OPERATION . #2#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)): ASDF:OPERATION : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::C : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G943 : NIL #:G945 : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G944 : #<ASDF:COMPILE-OP NIL 214E2337> ASDF::FORCED : ((#2=#<ASDF:COMPILE-OP NIL 214E2337> . #1=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (#<ASDF:LOAD-OP NIL 21492DAF> . #1#) (#2# . #<ASDF:CL-SOURCE-FILE "definitions" 214D5E17>) (#2# . #<ASDF:CL-SOURCE-FILE "binding" 214E5E57>) (#2# . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (#2# . #<ASDF:CL-SOURCE-FILE "conditions" 214E8F67>) (#2# . #<ASDF:CL-SOURCE-FILE "hash-tables" 214E454B>)) ERROR : NIL ASDF::FORCED : ((#2=#<ASDF:COMPILE-OP NIL 214E2337> . #1=#<ASDF:CL-SOURCE-FILE "package" 214E3A0B>) (#<ASDF:LOAD-OP NIL 21492DAF> . #1#) (#2# . #<ASDF:CL-SOURCE-FILE "definitions" 214D5E17>) (#2# . #<ASDF:CL-SOURCE-FILE "binding" 214E5E57>) (#2# . #<ASDF:CL-SOURCE-FILE "strings" 214DBE4B>) (#2# . #<ASDF:CL-SOURCE-FILE "conditions" 214E8F67>) (#2# . #<ASDF:CL-SOURCE-FILE "hash-tables" 214E454B>)) ASDF::AT-LEAST-ONE : T #:|by-9931| : SYSTEM:CDR$CONS #:|tail-9930| : (#<ASDF:CL-SOURCE-FILE "macros" 214E5C7B> #<ASDF:CL-SOURCE-FILE "control-flow" 214D7BCF> #<ASDF:CL-SOURCE-FILE "symbols" 214E6017> #<ASDF:CL-SOURCE-FILE "functions" 214DBE83> #<ASDF:CL-SOURCE-FILE "lists" 214E8E37> #<ASDF:CL-SOURCE-FILE "types" 214E40C7> #<ASDF:CL-SOURCE-FILE "arrays" 214D624B> #<ASDF:CL-SOURCE-FILE "sequences" 214E684F> #<ASDF:CL-SOURCE-FILE "numbers" 214DF68F> #<ASDF:CL-SOURCE-FILE "features" 214B850B>) ASDF::KID : #<ASDF:CL-SOURCE-FILE "io" 214D5DAF> #:G10692 : NIL #:G10694 : #<anonymous interpreted function 214D30D2> CONDITIONS::*HANDLER-CLUSTERS* : (((ASDF:MISSING-DEPENDENCY . #<anonymous interpreted function 214D30D2>)) ((ASDF:COMPILE-FAILED . #<anonymous interpreted function 214927E2>)) ((ERROR . #<Closure (CAPI::INTERACTIVE-PANE-TOP-LOOP . 1) 216C8F8A>))) Block environment contour: (ASDF::%DO-ONE-DEP) (ASDF::%DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: Function environment contour Variable environment contour: ((ASDF::OP . #<ASDF:COMPILE-OP NIL 214E2337>) (ASDF::DEP-C . #2=#<ASDF:SYSTEM #1="alexandria" 214EAB03>) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . #1#) (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #3=#<ASDF:LOAD-OP NIL 214B8EC3>) (#:G945 . #2#) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #3#)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to ASDF::%DO-ONE-DEP: ASDF:OPERATION : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::C : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G943 : NIL #:G945 : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G944 : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "alexandria" ASDF::REQUIRED-V : NIL ASDF::DEP-C : #<ASDF:SYSTEM "alexandria" 214EAB03> ASDF::OP : #<ASDF:COMPILE-OP NIL 214E2337> Block environment contour: (#:G9692) (NIL) (ASDF::DO-ONE-DEP) (ASDF::DO-ONE-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#1=#:|loop-9691| (NIL) (RESTART-CASE (RETURN (ASDF::%DO-ONE-DEP ASDF::REQUIRED-OP ASDF::REQUIRED-C ASDF::REQUIRED-V)) (ASDF:RETRY NIL :REPORT (LAMBDA (ASDF::S) (FORMAT ASDF::S "~@<Retry loading component ~S.~@:>" ASDF::REQUIRED-C)) :TEST (LAMBDA (ASDF::C) (AND (TYPEP ASDF::C (QUOTE ASDF:MISSING-DEPENDENCY)) (EQUALP (ASDF::MISSING-REQUIRES ASDF::C) ASDF::REQUIRED-C))))) (GO #1#)) Function environment contour Variable environment contour: ((CONDITIONS::*RESTART-CLUSTERS* . #<Special Marker>) (#:G9696 . #1=(NIL)) (#:G9697 . #<anonymous interpreted function 214D3012>) (#:G9698 . #<anonymous interpreted function 214D2FFA>) (#:G9693 . #1#) (ASDF::REQUIRED-V) (ASDF::REQUIRED-C . #2="alexandria") (ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #4=#<ASDF:LOAD-OP NIL 214B8EC3>) (#:G945 . #3=#<ASDF:SYSTEM #2# 214EAB03>) (#:G943) (ASDF::C . #3#) (ASDF:OPERATION . #4#)) Interpreted call to ASDF::DO-ONE-DEP: ASDF:OPERATION : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::C : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G943 : NIL #:G945 : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G944 : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::FORCED : NIL ASDF::REQUIRED-OP : ASDF:COMPILE-OP ASDF::REQUIRED-C : "alexandria" ASDF::REQUIRED-V : NIL #:G9693 : (NIL) #:G9698 : #<anonymous interpreted function 214D2FFA> #:G9697 : #<anonymous interpreted function 214D3012> #:G9696 : (NIL) CONDITIONS::*RESTART-CLUSTERS* : ((#<RESTART ASDF:RETRY 214E6653>) (#<RESTART NIL 214D00A3> #<RESTART NIL 214D00EF> #<RESTART NIL 214D013B>) (#<RESTART ABORT 214D0187>) (#<RESTART ABORT 214D001B>) (#<RESTART ABORT 215703FF>)) Block environment contour: (NIL) (ASDF::DO-DEP) (ASDF::DO-DEP) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#2=#:G9688 (NIL) (WHEN (ENDP #1=#:|dolist-9687|) (RETURN-FROM NIL NIL)) (LET ((ASDF::D (CAR (COMPILER::INTERNAL-THE CONS #1#)))) (DECLARE (IGNORABLE ASDF::D)) (TAGBODY (COND ((CONSP ASDF::D) (COND ((STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "VERSION") (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) ((AND (STRING-EQUAL (SYMBOL-NAME (FIRST ASDF::D)) "FEATURE") (FIND (SECOND ASDF::D) *FEATURES* :TEST (QUOTE STRING-EQUAL))) (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP (SECOND ASDF::D) (THIRD ASDF::D)))) (T (ERROR "Bad dependency ~a. Dependencies must be (:version <version>), (:feature <feature>), or a name" ASDF::D)))) (T (ASDF::APPENDF ASDF::FORCED (ASDF::DO-ONE-DEP ASDF::OP ASDF::D NIL)))))) (SETQ #1# (CDR (COMPILER::INTERNAL-THE CONS #1#))) (GO #2#)) Function environment contour Variable environment contour: ((ASDF::D . #1="alexandria") (#:|dolist-9687| . #2=(#1#)) (ASDF::DEP . #2#) (ASDF::OP . ASDF:COMPILE-OP) (ASDF::FORCED) (#:G944 . #4=#<ASDF:LOAD-OP NIL 214B8EC3>) (#:G945 . #3=#<ASDF:SYSTEM #1# 214EAB03>) (#:G943) (ASDF::C . #3#) (ASDF:OPERATION . #4#)) Interpreted call to ASDF::DO-DEP: ASDF:OPERATION : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::C : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G943 : NIL #:G945 : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G944 : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::FORCED : NIL ASDF::OP : ASDF:COMPILE-OP ASDF::DEP : ("alexandria") #:|dolist-9687| : ("alexandria") ASDF::D : "alexandria" Block environment contour: (NIL) (ASDF::TRAVERSE) ((METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT))) Tag environment contour: (#:|end-loop-9675| (NIL) (RETURN-FROM NIL NIL)) (#5=#:|begin-loop-9674| (NIL) (PROGN (WHEN (OR (ENDP #1=#:|tail-9678|)) (GO #6=#:|end-loop-9675|)) (LET ((#4=#:|temp-9681| (FUNCALL #:|by-9679| #1#)) (#2=#:|temp-9680| (SYSTEM:CAR$CONS #1#))) (LET ((#3=#:|destructor-9682| #2#)) (SETQ ASDF::REQUIRED-OP (CAR #3#)) (SETQ ASDF::DEPS (CDR #3#))) (SETQ #1# #4#))) (ASDF::DO-DEP ASDF::REQUIRED-OP ASDF::DEPS) (GO #5#) #6# (RETURN-FROM NIL NIL)) Function environment contour Variable environment contour: ((ASDF::REQUIRED-OP . ASDF:COMPILE-OP) (ASDF::DEPS #1="alexandria") (#:|tail-9678|) (#:|by-9679| . SYSTEM:CDR$CONS) (ASDF::FORCED) (#:G944 . #3=#<ASDF:LOAD-OP NIL 214B8EC3>) (#:G945 . #2=#<ASDF:SYSTEM #1# 214EAB03>) (#:G943) (ASDF::C . #2#) (ASDF:OPERATION . #3#)) Interpreted call to (METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)): ASDF:OPERATION : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::C : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G943 : NIL #:G945 : #<ASDF:SYSTEM "alexandria" 214EAB03> #:G944 : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::FORCED : NIL #:|by-9679| : SYSTEM:CDR$CONS #:|tail-9678| : NIL ASDF::DEPS : ("alexandria") ASDF::REQUIRED-OP : ASDF:COMPILE-OP Block environment contour: (ASDF:OPERATE) Tag environment contour: Function environment contour Variable environment contour: ((ASDF:SYSTEM . #<ASDF:SYSTEM "alexandria" 214EAB03>) (ASDF::*VERBOSE-OUT* . #1=#<Special Marker>) (ASDF::OP . #<ASDF:LOAD-OP NIL 214B8EC3>) (*READTABLE* . #1#) (*PACKAGE* . #1#) (ASDF::FORCE) (ASDF:VERSION) (ASDF::VERBOSE . T) (ASDF::ARGS) (ASDF:SYSTEM . :ALEXANDRIA) (ASDF::OPERATION-CLASS . ASDF:LOAD-OP)) Binding frame: CLOS::*NEXT-METHODS* : NIL Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 41) Interpreted call to ASDF:OPERATE: ASDF::OPERATION-CLASS : ASDF:LOAD-OP ASDF:SYSTEM : #<ASDF:SYSTEM "alexandria" 214EAB03> ASDF::ARGS : NIL ASDF::VERBOSE : T ASDF:VERSION : NIL ASDF::FORCE : NIL *PACKAGE* : #<The COMMON-LISP-USER package, 9/16 internal, 0/4 external> *READTABLE* : #<READTABLE 2054A56B> ASDF::OP : #<ASDF:LOAD-OP NIL 214B8EC3> ASDF::*VERBOSE-OUT* : #<EDITOR::RUBBER-STREAM #<EDITOR:BUFFER CAPI interactive-pane 2> 21574F1F> ASDF:SYSTEM : #<ASDF:SYSTEM "alexandria" 214EAB03> Block environment contour: (LIBCL-UTIL::DO-COMPILE) Tag environment contour: Function environment contour Variable environment contour: ((CONDITIONS::*HANDLER-CLUSTERS* . #<Special Marker>) (#:G9461 . #<anonymous interpreted function 214927E2>) (LIBCL-UTIL::PROBLEM) (LIBCL-UTIL::MISSING-DEPS) (PACKAGE . :ALEXANDRIA) (LIBCL-UTIL::LOAD-UNLESS) (LIBCL-UTIL::LIBCL-PACKAGE . #S(LIBCL-UTIL::LIBCL-PACKAGE :NAME "Alexandria" :WEBPAGE "http://common-lisp.net/project/alexandria/" :LICENSE :PD :SHORT-DESC "portable CL utilities" :DOCPATH "alexandria/doc/alexandria.html" :PROVIDES :ALEXANDRIA :LOAD-UNLESS NIL :VERSION "20090324+"))) Interpreted call to LIBCL-UTIL::DO-COMPILE: LIBCL-UTIL::LIBCL-PACKAGE : #S(LIBCL-UTIL::LIBCL-PACKAGE :NAME "Alexandria" :WEBPAGE "http://common-lisp.net/project/alexandria/" :LICENSE :PD :SHORT-DESC "portable CL utilities" :DOCPATH "alexandria/doc/alexandria.html" :PROVIDES :ALEXANDRIA :LOAD-UNLESS NIL :VERSION "20090324+") LIBCL-UTIL::LOAD-UNLESS : NIL PACKAGE : :ALEXANDRIA LIBCL-UTIL::MISSING-DEPS : NIL LIBCL-UTIL::PROBLEM : NIL #:G9461 : #<anonymous interpreted function 214927E2> CONDITIONS::*HANDLER-CLUSTERS* : (((ASDF:COMPILE-FAILED . #<anonymous interpreted function 214927E2>)) ((ERROR . #<Closure (CAPI::INTERACTIVE-PANE-TOP-LOOP . 1) 216C8F8A>))) Block environment contour: (NIL) (LIBCL-UTIL::COMPILE-ALL) Tag environment contour: (#:|end-loop-4740| (NIL) (RETURN-FROM NIL NIL)) (#2=#:|begin-loop-4739| (NIL) (PROGN (LET ((#1=#:|temp-4743| (READ LIBCL-UTIL::FILE NIL NIL))) (SETQ LIBCL-UTIL::P #1#))) (UNLESS LIBCL-UTIL::P (GO #3=#:|end-loop-4740|)) (LIBCL-UTIL::DO-COMPILE (LIBCL-UTIL::FIND-LIBCL-PACKAGE LIBCL-UTIL::P)) (GO #2#) #3# (RETURN-FROM NIL NIL)) Function environment contour Variable environment contour: ((LIBCL-UTIL::P . :ALEXANDRIA) (LIBCL-UTIL::FILE . #1=#<STREAM::LATIN-1-FILE-STREAM c:\tmp\downloads\libcl-2010-01-18-snapshot\packages.txt>) (#:INTERNAL-STREAM4735 . #1#) (#:DELETE4736 . T) (LIBCL-UTIL::PACK-FILE . #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/packages.txt")) Interpreted call to LIBCL-UTIL::COMPILE-ALL: LIBCL-UTIL::PACK-FILE : #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/packages.txt" #:DELETE4736 : T #:INTERNAL-STREAM4735 : #<STREAM::LATIN-1-FILE-STREAM c:\tmp\downloads\libcl-2010-01-18-snapshot\packages.txt> LIBCL-UTIL::FILE : #<STREAM::LATIN-1-FILE-STREAM c:\tmp\downloads\libcl-2010-01-18-snapshot\packages.txt> LIBCL-UTIL::P : :ALEXANDRIA Block environment contour: Tag environment contour: Function environment contour Variable environment contour: () Call to SYSTEM::%INVOKE (offset 396) Call to SYSTEM::%EVAL (offset 107) EXP : (LIBCL-UTIL::COMPILE-ALL (MERGE-PATHNAMES "packages.txt" *LOAD-TRUENAME*)) Call to SYSTEM::EVAL-AS-PROGN (offset 86) SYSTEM::X : ((LIBCL-UTIL::COMPILE-ALL (MERGE-PATHNAMES "packages.txt" *LOAD-TRUENAME*)) (LIBCL-UTIL::PRINT-SUMMARY T) (LET* ((FILENAME (CONCATENATE (QUOTE STRING) (ASDF:IMPLEMENTATION-SPECIFIC-DIRECTORY-NAME) ".txt")) (PATH (MERGE-PATHNAMES FILENAME *LOAD-TRUENAME*))) (WITH-OPEN-FILE (LOG PATH :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (LIBCL-UTIL::PRINT-SUMMARY LOG)) (FORMAT T "Summary saved to ~A" (TRUENAME PATH)))) Call to SYSTEM::%EVAL (offset 107) EXP : (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (LIBCL-UTIL::COMPILE-ALL (MERGE-PATHNAMES "packages.txt" *LOAD-TRUENAME*)) (LIBCL-UTIL::PRINT-SUMMARY T) (LET* ((FILENAME (CONCATENATE (QUOTE STRING) (ASDF:IMPLEMENTATION-SPECIFIC-DIRECTORY-NAME) ".txt")) (PATH (MERGE-PATHNAMES FILENAME *LOAD-TRUENAME*))) (WITH-OPEN-FILE (LOG PATH :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (LIBCL-UTIL::PRINT-SUMMARY LOG)) (FORMAT T "Summary saved to ~A" (TRUENAME PATH)))) Tag environment contour: Block environment contour: Function environment contour Variable environment contour: () Call to EVAL (offset 113) EXP : (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (LIBCL-UTIL::COMPILE-ALL (MERGE-PATHNAMES "packages.txt" *LOAD-TRUENAME*)) (LIBCL-UTIL::PRINT-SUMMARY T) (LET* ((FILENAME (CONCATENATE (QUOTE STRING) (ASDF:IMPLEMENTATION-SPECIFIC-DIRECTORY-NAME) ".txt")) (PATH (MERGE-PATHNAMES FILENAME *LOAD-TRUENAME*))) (WITH-OPEN-FILE (LOG PATH :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (LIBCL-UTIL::PRINT-SUMMARY LOG)) (FORMAT T "Summary saved to ~A" (TRUENAME PATH)))) Binding frame: COMPILER::*SOURCE-LEVEL-FORM-TABLE* : NIL Binding frame: SYSTEM::*LAST-FORM-READ* : #<Unbound Marker> Catch frame: SYSTEM::LOAD-TEXT-STREAM Call to SYSTEM::LOAD-TEXT-STREAM (offset 347) STREAM : #<STREAM::LATIN-1-FILE-STREAM c:\tmp\downloads\libcl-2010-01-18-snapshot\compile-libcl.lisp> SYSTEM::EVAL-FUNCTION : SYSTEM:TOP-LEVEL-EVAL PRINT : NIL SYSTEM::PRINT-FUNCTION : #<Function IDENTITY 202902AA> SYSTEM::EXIT-LOAD-P : NIL Binding frame: SYSTEM:*CURRENT-PATHNAME* : NIL Binding frame: *LOAD-TRUENAME* : NIL Catch frame: #<Unbound Marker> Call to SYSTEM::LOAD-TEXT-FILE (offset 281) PATHNAME : #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/compile-libcl.lisp" SYSTEM::VERBOSE : T PRINT : NIL SYSTEM::EXT-FORMAT : :DEFAULT Catch frame: LOAD Call to SYSTEM::TRY-TO-LOAD (offset 299) PATHNAME : #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/compile-libcl.lisp" SYSTEM::IS-FASL : NIL SYSTEM::VERBOSE : T PRINT : NIL SYSTEM::EXT-FORMAT : :DEFAULT Binding frame: DSPEC::*LOCATION* : :LISTENER DSPEC::*LOCATION-DEFS* : NIL Binding frame: *PACKAGE* : #<The COMMON-LISP-USER package, 9/16 internal, 0/4 external> *READTABLE* : #<READTABLE 2054A56B> SYSTEM::*LOAD-LEVEL* : -1 Catch frame: #<Unbound Marker> Binding frame: DSPEC:*SOURCE-PATHNAME* : NIL Call to (SUBFUNCTION 1 LOAD) (offset 285) PACKAGE {Closed} : #<The COMMON-LISP-USER package, 9/16 internal, 0/4 external> PRINT {Closed} : NIL SYSTEM::IS-FASL {Closed} : NIL PATHNAME {Closed} : #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/compile-libcl.lisp" SYSTEM::VERBOSE {Closed} : T SYSTEM::EXTERNAL-FORMAT {Closed} : :DEFAULT SYSTEM::IN-STATIC {Closed} : NIL Catch frame: (NIL) Catch frame: (NIL) Call to SYSTEM::LOAD-FILE-WITH-RESTARTS (offset 358) SYSTEM::LOADER : #<Closure (LOAD . 1) 2149273A> SYSTEM::FILENAME : #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/compile-libcl.lisp" SYSTEM::IF-DOES-NOT-EXIST : T Binding frame: *LOAD-PATHNAME* : NIL Catch frame: SYSTEM::EXIT-LOAD-CATCH Catch frame: #<Unbound Marker> Binding frame: SYSTEM::*LOAD-FASL-DATA* : NIL Call to LOAD (offset 1285) SYSTEM::FILENAME : #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/compile-libcl.lisp" SYSTEM::VERBOSE : T PACKAGE {Closing} : #<The COMMON-LISP-USER package, 9/16 internal, 0/4 external> PRINT : NIL SYSTEM::IF-DOES-NOT-EXIST : T SYSTEM::EXTERNAL-FORMAT : :DEFAULT SYSTEM::SOURCE-PATHNAME : NIL SYSTEM::*LOAD-FASL-DATA* {Special} : NIL Call to SYSTEM::%INVOKE (offset 396) Call to SYSTEM::%EVAL (offset 107) EXP : (LOAD #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/compile-libcl.lisp") SYSTEM::%EVAL <- EVAL <- SYSTEM::DO-EVALUATION <- SYSTEM::%TOP-LEVEL-INTERNAL <- SYSTEM::%TOP-LEVEL <- SYSTEM::LISTENER-TOP-LEVEL <- CAPI::CAPI-TOP-LEVEL-FUNCTION <- CAPI::INTERACTIVE-PANE-TOP-LOOP <- (SUBFUNCTION MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-STACK) <- SYSTEM::%%FIRST-CALL-TO-STACK T CL-USER 7 : 1 > :c ; extend stack by 50% -- succeeds ;;; Compiling file C:\tmp\downloads\libcl-2010-01-18-snapshot\alexandria\package.lisp ... ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on ; (TOP-LEVEL-FORM 0) ; (DEFPACKAGE "ALEXANDRIA.0.DEV") ; (TOP-LEVEL-FORM 0) ; Loading fasl file C:\tmp\downloads\libcl-2010-01-18-snapshot\alexandria\lispworks-5.1.2-mswindows-i386\package.ofasl ;;; Compiling file C:\tmp\downloads\libcl-2010-01-18-snapshot\alexandria\definitions.lisp ... [etc etc]
2010/1/20 Nick Levine <ndl@ravenbrook.com>:
From: =?ISO-8859-1?Q?Far=E9?= <fahree@gmail.com> Date: Wed, 20 Jan 2010 14:30:48 -0500 Cc: Nick Levine <ndl@ravenbrook.com>, asdf-devel@common-lisp.net
If you actually send the backtrace on the list, or attach it to an ASDF bug on launchpad.net, that would help a lot figure out what's wrong and how to fix it.
Here it is. Note that the "extend stack by 50%" restart did the trick.
Your backtrace shows nothing obviously wrong, and if extending the stack does the trick, the problem is possibly that LW starts with an extremely small stack and/or does some stack-allocation optimizations that blow the little stack it has. I blame LW settings (did you override the defaults?) [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] "When buying and selling are controlled by legislation, the first things to be bought and sold are legislators." — P.J. O'Rourke
Your backtrace shows nothing obviously wrong, and if extending the stack does the trick, the problem is possibly that LW starts with an extremely small stack and/or does some stack-allocation optimizations that blow the little stack it has. I blame LW settings (did you override the defaults?) I haven't overridden anything. For some reason I've never understood LW has a small default stack size. By the way, this is ASDF revision 1.375. LW 5.1 has been fine interpreted with other (earlier) revisions. - n
2010/1/20 Nick Levine <ndl@ravenbrook.com>:
Your backtrace shows nothing obviously wrong, and if extending the stack does the trick, the problem is possibly that LW starts with an extremely small stack and/or does some stack-allocation optimizations that blow the little stack it has. I blame LW settings (did you override the defaults?)
I haven't overridden anything. For some reason I've never understood LW has a small default stack size.
By the way, this is ASDF revision 1.375. LW 5.1 has been fine interpreted with other (earlier) revisions.
Maybe you need to override the default. I suggest you take that with the tech support of your vendor. If you feel that ASDF needs to be changed in any specific way, please do not hesitate to come back to this list, or to post a bug on launchpad.net. If you think it's an ASDF issue, it would be nice if you could git-bisect a specific commit that causes the issue. [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] When you've seen one nuclear war, you've seen them all.
Francois, Maybe you need to override the default. In the context of libcl (which is where I came in, testing a release candidate with LW 5.1.2), overriding the default stack size default needs resaving the image and isn't an option. I suggest you take that with the tech support of your vendor. I don't know if there's much mileage in that. They'll surely tell me to either run asdf compiled or to use the latest release (LW6) or both. If you feel that ASDF needs to be changed in any specific way, please do not hesitate to come back to this list, or to post a bug on launchpad.net. If you think it's an ASDF issue, it would be nice if you could git-bisect a specific commit that causes the issue. I lean more towards proposing to libcl that asdf is run compiled rather than interpreted. - nick
Hi Nick, Note that this release of asdf has asdf-binary-locations built in. Thus it does not need to be loaded separately (input 4 below). Instead, load ASDF then (setf asdf:*enable-asdf-binary-locations* t). If you clear the asdf fasl and restart LW, does that work without blowing the stack? - Daniel On Wed, 20 Jan 2010, Nick Levine wrote:
From: =?ISO-8859-1?Q?Far=E9?= <fahree@gmail.com> Date: Wed, 20 Jan 2010 14:30:48 -0500 Cc: Nick Levine <ndl@ravenbrook.com>, asdf-devel@common-lisp.net
If you actually send the backtrace on the list, or attach it to an ASDF bug on launchpad.net, that would help a lot figure out what's wrong and how to fix it.
Here it is. Note that the "extend stack by 50%" restart did the trick.
CL-USER 1 > (lisp-implementation-version) "5.1.2"
CL-USER 2 > (load #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/asdf/asdf.lisp") ; Loading text file c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/asdf/asdf.lisp"
CL-USER 3 > (pushnew #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/_asdf/" asdf:*central-registry* :test #'equal) (#P"c:/tmp/downloads/libcl-2010-01-18-snapshot/_asdf/" (DIRECTORY-NAMESTRING *DEFAULT-PATHNAME-DEFAULTS*))
CL-USER 4 > (asdf:operate 'asdf:load-op :asdf-binary-locations) ... Warning: (DEFPARAMETER *CENTRALIZE-LISP-BINARIES*) being redefined in C:\tmp\downloads\libcl-2010-01-18-snapshot\asdf-binary-locations\dev\main.lisp (previously in c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp). ... CL-USER 5 > (load #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/compile-libcl.lisp") ; Loading text file c:\tmp\downloads\libcl-2010-01-18-snapshot\compile-libcl.lisp ; Loading text file c:\tmp\downloads\libcl-2010-01-18-snapshot\libcl-init\packages.lisp ; Loading from #<STREAM::LATIN-1-FILE-STREAM C:\tmp\downloads\libcl-2010-01-18-snapshot\alexandria\alexandria.asd>.
Stack overflow (stack size 15997). ... CL-USER 7 : 1 > :c ; extend stack by 50% -- succeeds
Daniel, Date: Wed, 20 Jan 2010 20:55:22 -0500 (EST) From: Daniel Herring <dherring@tentpost.com> Note that this release of asdf has asdf-binary-locations built in. Thus it does not need to be loaded separately (input 4 below). Instead, load ASDF then (setf asdf:*enable-asdf-binary-locations* t). Noted. (I guess that as far as libcl goes, the configuration instructions should be modified to reflect this.) If you clear the asdf fasl and restart LW, does that work without blowing the stack? No, for LW 5.1.2 it does not. - nick
On 1/20/10 Jan 20 -1:59 PM, Nick Levine wrote:
From: =?ISO-8859-1?Q?Far=E9?= <fahree@gmail.com> Date: Wed, 20 Jan 2010 14:30:48 -0500 Cc: Nick Levine <ndl@ravenbrook.com>, asdf-devel@common-lisp.net
If you actually send the backtrace on the list, or attach it to an ASDF bug on launchpad.net, that would help a lot figure out what's wrong and how to fix it.
Here it is. Note that the "extend stack by 50%" restart did the trick.
- nick
CL-USER 1 > (lisp-implementation-version) "5.1.2"
CL-USER 2 > (load #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/asdf/asdf.lisp") ; Loading text file c:\tmp\downloads\libcl-2010-01-18-snapshot\asdf\asdf.lisp #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/asdf/asdf.lisp"
CL-USER 3 > (pushnew #P"c:/tmp/downloads/libcl-2010-01-18-snapshot/_asdf/" asdf:*central-registry* :test #'equal) (#P"c:/tmp/downloads/libcl-2010-01-18-snapshot/_asdf/" (DIRECTORY-NAMESTRING *DEFAULT-PATHNAME-DEFAULTS*))
CL-USER 4 > (asdf:operate 'asdf:load-op :asdf-binary-locations)
The latest version of ASDF integrates the functionality of asdf-binary-locations, so it's probably a Bad Thing to try to load A-B-L on asdf2. I'm actually somewhat tempted to hack a special purpose check in to treat this as an error in ASDF2. Best, r
participants (4)
-
Daniel Herring -
Faré -
Nick Levine -
Robert Goldman