Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@earl-ducaine

earl-ducaine/ASDF debug challenges -- compile time error

Last active December 13, 2019 11:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save earl-ducaine/079d448e3c2b41a6bfb70a8b2e4c026c to your computer and use it in GitHub Desktop.
Save earl-ducaine/079d448e3c2b41a6bfb70a8b2e4c026c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ASDF debug challenges -- compile time error
https://github.com/earl-ducaine/flavor
SLIME debug window
------------------
COMPILE-FILE-ERROR while
compiling #<CL-SOURCE-FILE "flavor" "flavor-main0">
[Condition of type UIOP/LISP-BUILD:COMPILE-FILE-ERROR]
Restarts:
0: [RETRY] Retry compiling #<CL-SOURCE-FILE "flavor" "flavor-main0">.
1: [ACCEPT] Continue, treating compiling #<CL-SOURCE-FILE "flavor" "flavor-main0"> as having been successful.
2: [RETRY] Retry ASDF operation.
3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration.
4: [RETRY] Retry ASDF operation.
5: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration.
--more--
Backtrace:
0: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "flavor" "flavor-main0">)))
1: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "flavor" "flavor-main0">)
2: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
3: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "flavor" "flavor-main0">) [fast-method]
4: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1002E0C953}>) [fast-method]
5: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
6: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1002E0C953}>) [fast-method]
7: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "flavor"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
8: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "flavor"> :VERBOSE NIL)
9: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
10: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "flavor"> :VERBOSE NIL) [fast-method]
11: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "flavor" :VERBOSE NIL)
12: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
13: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "flavor" :VERBOSE NIL) [fast-method]
14: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1002E0676B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
15: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
16: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1002DFE9FB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
*slime-repl sbcl* -- runing ql:quickload
-----------------
CL-USER> (ql:quickload :flavor :verbose t)
To load "flavor":
Load 1 ASDF system:
flavor
; Loading "flavor"
; compiling file "/home/rett/dev/flavors-sources/flavor-git/flavor-main0.lisp" (written 24 OCT 2019 01:46:41 AM):
; compiling (IN-PACKAGE :FLAVORS)
; compiling (DEFUN MAKE-ENV ...)
; compiling (DEFUN-DEFAULT-HANDLER DEFAULT-HANDLER ...).
; file: /home/rett/dev/flavors-sources/flavor-git/flavor-main0.lisp
; in: DEFUN-DEFAULT-HANDLER DEFAULT-HANDLER
; (FLAVORS::INSTANCE-DESCRIPTOR FLAVORS:SELF)
; --> FLAVORS::%INSTANCE-REF SLOT-VALUE
; ==>
; FLAVORS:SELF
;
; caught STYLE-WARNING:
; reading an ignored variable: SELF
; --> FLAVORS::%INSTANCE-REF
; ==>
; (SLOT-VALUE FLAVORS:SELF 0 'FLAVORS::%INSTANCE)
;
; caught WARNING:
; The function SLOT-VALUE is called with three arguments, but wants exactly two.
; (APPLY #'FLAVORS:SEND FLAVORS:SELF :UNHANDLED-MESSAGE FLAVORS::MESSAGE
; FLAVORS::ARGS)
; --> MULTIPLE-VALUE-CALL VALUES PROG1 LET
; ==>
; FLAVORS:SELF
;
; caught STYLE-WARNING:
; reading an ignored variable: SELF
; (FLAVORS::INSTANCE-DESCRIPTOR FLAVORS:SELF)
; --> FLAVORS::%INSTANCE-REF SLOT-VALUE
; ==>
; FLAVORS:SELF
;
; caught STYLE-WARNING:
; reading an ignored variable: SELF
; --> FLAVORS::%INSTANCE-REF
; ==>
; (SLOT-VALUE FLAVORS:SELF 0 'FLAVORS::%INSTANCE)
;
; caught WARNING:
; The function SLOT-VALUE is called with three arguments, but wants exactly two.
; (ERROR "Unhandled message ~S in instance ~S." FLAVORS::MESSAGE FLAVORS:SELF)
; ==>
; FLAVORS:SELF
;
; caught STYLE-WARNING:
; reading an ignored variable: SELF
; (LUCID::%POINTER FLAVORS:SELF)
; ==>
; FLAVORS:SELF
;
; caught STYLE-WARNING:
; reading an ignored variable: SELF
; (FLAVORS::GET-MESSAGE)
; ==>
; FLAVORS::%MESSAGE
;
; caught STYLE-WARNING:
; reading an ignored variable: %MESSAGE
; compiling (DEFVAR *ALL-FLAVOR-NAMES* ...)
; compiling (DEFVAR *UNDEFINED-FLAVOR-NAMES* ...)
; compiling (DEFVAR *DIRTY-FLAVORS* ...)
; compiling (DEFVAR *FLAVOR-COMPILE-METHODS* ...)
; compiling (UNLESS (MEMQ :COMPILER ...) ...)
; compiling (DEFVAR *DEFAULT-COMBINATION* ...)
; compiling (DEFPARAMETER *VAR-OPTIONS* ...)
; compiling (DEFBITS CHANGED ...).
; compiling (DEFCONSTANT %ALL-COMPONENTS-CHANGED% ...)
; compiling (DEFBITS FLAGS ...)
; compiling (DEFSTRUCT (METHOD-STRUCTURE # ...) ...).
; compiling (DEFSTRUCT (FLAVOR #) ...)
; compiling (DEFUN PRINT-FLAVOR ...).
; compiling (DEFMACRO FLAVOR-DEFINED-P ...).
; compiling (DEFMACRO FLAVOR-HAS-VANILLA-P ...)
; compiling (DEFMACRO FLAVOR-ABSTRACT-P ...)
; compiling (DEFUN FLAVOR-COMPILED-P ...)
; compiling (DEFSETF FLAVOR-COMPILED-P ...)
; compiling (DEFMACRO FLAVOR-WAYWARD-P ...)
; compiling (DEFMACRO FLAVOR-INSTANTIATED-P ...)
; compiling (LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVOR ...)
; file: /home/rett/dev/flavors-sources/flavor-git/flavor-main0.lisp
; in: LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVOR
; (LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVORS::FLAVOR FLAVORS::DESCRIPTOR
; FLAVORS::FLAVOR)
; --> UNLESS IF IF PROGN LUCID::DEF-COMPILER-MACRO
; ==>
; (DEFMACRO (LUCID::DEF-COMPILER-MACRO (FLAVORS::FLAVOR-DESCRIPTOR LUCID::USER)
; LUCID::SUN-68K)
; (FLAVORS::FLAVOR)
; (SUBST FLAVORS::FLAVOR 'LUCID::.DUMMY-NAME.
; '(FLAVORS::FLAVOR-DESCRIPTOR LUCID::.DUMMY-NAME.)))
;
; caught ERROR:
; during macroexpansion of
; (DEFMACRO (LUCID::DEF-COMPILER-MACRO #
; LUCID::SUN-68K)
; (FLAVOR)
; ...).
; Use *BREAK-ON-SIGNALS* to intercept.
;
; The NAME argument to DEFMACRO, (LUCID::DEF-COMPILER-MACRO (FLAVOR-DESCRIPTOR
; LUCID::USER)
; LUCID::SUN-68K), is not a symbol.
; compiling (LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVOR ...)
; file: /home/rett/dev/flavors-sources/flavor-git/flavor-main0.lisp
; in: LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVOR
; (LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVORS::FLAVOR FLAVORS::METHODS
; FLAVORS::FLAVOR)
; --> UNLESS IF IF PROGN LUCID::DEF-COMPILER-MACRO
; ==>
; (DEFMACRO (LUCID::DEF-COMPILER-MACRO (FLAVORS::FLAVOR-METHODS LUCID::USER)
; LUCID::SUN-68K)
; (FLAVORS::FLAVOR)
; (SUBST FLAVORS::FLAVOR 'LUCID::.DUMMY-NAME.
; '(FLAVORS::FLAVOR-METHODS LUCID::.DUMMY-NAME.)))
;
; caught ERROR:
; during macroexpansion of
; (DEFMACRO (LUCID::DEF-COMPILER-MACRO #
; LUCID::SUN-68K)
; (FLAVOR)
; ...).
; Use *BREAK-ON-SIGNALS* to intercept.
;
; The NAME argument to DEFMACRO, (LUCID::DEF-COMPILER-MACRO (FLAVOR-METHODS
; LUCID::USER)
; LUCID::SUN-68K), is not a symbol.
; compiling (LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVOR ...)
; file: /home/rett/dev/flavors-sources/flavor-git/flavor-main0.lisp
; in: LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVOR
; (LUCID::DEFSTRUCT-RUNTIME-SLOT-FUNCTION FLAVORS::FLAVOR FLAVORS::NAME
; FLAVORS::FLAVOR)
; --> UNLESS IF IF PROGN LUCID::DEF-COMPILER-MACRO
; ==>
; (DEFMACRO (LUCID::DEF-COMPILER-MACRO (FLAVORS::FLAVOR-NAME LUCID::USER)
; LUCID::SUN-68K)
; (FLAVORS::FLAVOR)
; (SUBST FLAVORS::FLAVOR 'LUCID::.DUMMY-NAME.
; '(FLAVORS::FLAVOR-NAME LUCID::.DUMMY-NAME.)))
;
; caught ERROR:
; during macroexpansion of
; (DEFMACRO (LUCID::DEF-COMPILER-MACRO #
; LUCID::SUN-68K)
; (FLAVOR)
; ...).
; Use *BREAK-ON-SIGNALS* to intercept.
;
; The NAME argument to DEFMACRO, (LUCID::DEF-COMPILER-MACRO (FLAVOR-NAME
; LUCID::USER)
; LUCID::SUN-68K), is not a symbol.
; compiling (DEFMACRO GET-FLAVOR ...).
; compiling (DEFUN FLAVOR-TYPE-OF ...)
; file: /home/rett/dev/flavors-sources/flavor-git/flavor-main0.lisp
; in: DEFUN FLAVOR-TYPE-OF
; (FLAVORS::INSTANCE-DESCRIPTOR FLAVORS::INSTANCE)
; --> FLAVORS::%INSTANCE-REF
; ==>
; (SLOT-VALUE FLAVORS::INSTANCE 0 'FLAVORS::%INSTANCE)
;
; caught WARNING:
; The function SLOT-VALUE is called with three arguments, but wants exactly two.
; compiling (DEFUN FLAVOR-TYPEP ...)
; compiling (DEFUN FLAVOR-SUBTYPEP ...)
; compiling (DEFPARAMETER LUCID::*FLAVORS-FLAVOR-SYMBOL* ...)
; compiling (DEFPARAMETER LUCID::*FLAVORS-SUBTYPEP* ...)
; wrote /home/rett/.cache/common-lisp/sbcl-1.5.8.133-c132089fb-linux-x64/home/rett/dev/flavors-sources/flavor-git/flavor-main0-tmp2K9J0HSR.fasl
; compilation finished in 0:00:00.294
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment