good afternoon;
please find, attached below, a compilation transcript which indicates
a "no applicable :denominative method" failure.
this is a non-standard method.
the error happens during the computation for that method combination.
the missing methods are qualified method for which the definitions
appears later in the file.
the operation to add the first "base" method triggers the error when
a side-effect attempts to pre-compute the effective combination given
that base method only.
the consequence is that it does not furnish the required method
complement.
this is _not_ a function application, but the function definition.
is there a reason that this needs to happen?
can it be disabled?
can it be informed the circumstances under which the function
definition is "complete" - and - the argument which the combination
computation requires?
* (asdf:operate 'asdf:load-op :de.setf.graphics)
; compiling file "/Development/Source/dev/Library/de/setf/utility/
clos/clos-methods.lisp" (written 22 FEB 2010 12:15:59 PM):
; compiling (IN-PACKAGE :DE.SETF.UTILITY.IMPLEMENTATION)
; compiling (UNLESS (INTERSECTION # ...) ...)
; compiling (DEFGENERIC ENCODE-INSTANCE-AS ...)
; compiling (DEFMACRO WITH-SPECIAL-READERS ...)
; compiling (DEFMACRO WITH-SPECIAL-SLOTS ...)
; compiling (DEFUN REQUIRED-INITARG-ERROR ...)
; compiling (DEFMACRO REQUIRED-INITARG ...)
; compiling (DEFUN CLASS-SLOT-NAMES ...)
; compiling (DEFGENERIC FINALIZE-IF-NEEDED ...)
; compiling (DEFGENERIC COMPUTE-EFFECTIVE-INITARGS ...)
; compiling (DEFCLASS ABSTRACT-STANDARD-CLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFMETHOD MAKE-INSTANCE ...)
; compiling (DEFMACRO DEF-ABSTRACT-CLASS ...)
; compiling (DEFINE-CONDITION ABSTRACT-METHOD-ERROR ...)
; compiling (DEFUN ABSTRACT-METHOD-ERROR ...)
; compiling (DEFCLASS ABSTRACT-STANDARD-METHOD ...)
; compiling (DEFGENERIC ABSTRACT-METHOD-P ...)
; compiling (DEFINE-METHOD-COMBINATION CONCRETE-STANDARD ...)
; compiling (DEFCLASS ABSTRACT-STANDARD-GENERIC-FUNCTION ...)
; compiling (DEFMACRO DEF-ABSTRACT-GENERIC ...)
; compiling (DEFPARAMETER *CLASS.ABSTRACT-STANDARD-METHOD* ...)
; compiling (DEFMACRO DEF-ABSTRACT-METHOD ...)
; compiling (DEFPARAMETER *TYPE-PROTOTYPE-ALIST* ...)
; compiling (DEFGENERIC SPECIALIZER-PROTOTYPE ...)
; compiling (DEFINE-METHOD-COMBINATION DENOMINATED ...)
; compiling (DEFGENERIC COMPUTE-APPLICABLE-QUALIFIERS ...)
; compiling (DEFCLASS LOCKED-GENERIC-FUNCTION ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFINE-METHOD-COMBINATION LOCKED-STANDARD ...)
; compiling (DEFINE-METHOD-COMBINATION NAMED-LOCKED-STANDARD ...)
; compiling (DEFINE-METHOD-COMBINATION SHORT-STANDARD ...)
; compiling (DEFGENERIC BUILT-IN-TYPE-P ...)
; compiling (LABELS (#) ...)
; compiling (DEFGENERIC CLASS-RELATED-CLASSES ...)
; compiling (LABELS (#) ...)
; compiling :DE.SETF.UTILITY
; /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/clos/clos-
methods.fasl written
; compilation finished in 0:00:01.886
; compiling file "/Development/Source/dev/Library/de/setf/utility/
clos/clone-instance.lisp" (written 22 FEB 2010 11:42:24 AM):
; compiling (IN-PACKAGE :DE.SETF.UTILITY.IMPLEMENTATION)
; compiling (UNLESS (INTERSECTION # ...) ...)
; compiling (MODPACKAGE :DE.SETF.UTILITY ...)
; compiling (DEFGENERIC CLONE-INSTANCE ...)
; file: /Development/Source/dev/Library/de/setf/utility/clos/clone-
instance.lisp
; in: DEFGENERIC CLONE-INSTANCE
; (DEFGENERIC DE.SETF.UTILITY:CLONE-INSTANCE
; (DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE &REST
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS)
; (:DOCUMENTATION "reproduce a given instance.
; invoke shared-initialize with initargs to initialize slots
; prior to copying from the instancto the clone in order to
override the existing
; slot values and preclude unwanted deep cloning.")
; (DECLARE (DYNAMIC-EXTENT
DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (:METHOD
; ((DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE STANDARD-OBJECT)
&REST
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS)
; (DECLARE (DYNAMIC-EXTENT
DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (APPLY #'DE.SETF.UTILITY:CLONE-INSTANCE-AS
; DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE
; (CLASS-OF DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE)
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (:METHOD
; ((DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE T) &KEY &ALLOW-
OTHER-KEYS)
; (ERROR "cannot clone datum: ~s."
DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE))
; (:METHOD ((DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE STRING)
&KEY)
; DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE)
; (:METHOD ((DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE SYMBOL)
&KEY)
; DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE)
; (:METHOD ((DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE NUMBER)
&KEY)
; DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE)
; (:METHOD
; ((DE.SETF.UTILITY.IMPLEMENTATION::NODES LIST) &REST
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS)
; (MAPCAR
; #'(LAMBDA (DE.SETF.UTILITY.IMPLEMENTATION::X)
; (APPLY #'DE.SETF.UTILITY:CLONE-INSTANCE
; DE.SETF.UTILITY.IMPLEMENTATION::X
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; DE.SETF.UTILITY.IMPLEMENTATION::NODES)))
; --> PROGN PUSH LET* LET SB-C::%FUNCALL
; ==>
; (SB-C:%LISTIFY-REST-ARGS #:N-CONTEXT-134 #:N-COUNT-135)
;
; note: could not stack allocate the result of (DEFGENERIC CLONE-
INSTANCE
; (INSTANCE &REST INITARGS)
; (:DOCUMENTATION
; "reproduce a given instance.
; invoke shared-initialize with initargs to initialize slots
; prior to copying from the instancto the clone in order to
override the existing
; slot values and preclude unwanted deep cloning.")
; (DECLARE (DYNAMIC-EXTENT
INITARGS))
; (:METHOD
; ((INSTANCE STANDARD-
OBJECT) &REST
; INITARGS)
; (DECLARE (DYNAMIC-EXTENT
INITARGS))
; (APPLY #'CLONE-INSTANCE-
AS INSTANCE
; (CLASS-OF
INSTANCE) INITARGS))
; (:METHOD
; ((INSTANCE T) &KEY &ALLOW-
OTHER-KEYS)
; (ERROR "cannot clone
datum: ~s."
; INSTANCE))
; (:METHOD ((INSTANCE
STRING) &KEY)
; INSTANCE)
; (:METHOD ((INSTANCE
SYMBOL) &KEY)
; INSTANCE)
; (:METHOD ((INSTANCE
NUMBER) &KEY)
; INSTANCE)
; (:METHOD ((NODES LIST)
&REST INITARGS)
; (MAPCAR
; #'(LAMBDA (X)
; (APPLY #'CLONE-
INSTANCE X
; INITARGS))
; NODES)))
; compiling (DEFGENERIC CLONE-INSTANCE-AS ...)
; file: /Development/Source/dev/Library/de/setf/utility/clos/clone-
instance.lisp
; in: DEFGENERIC CLONE-INSTANCE-AS
; (DEFGENERIC DE.SETF.UTILITY:CLONE-INSTANCE-AS
; (DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE CLASS &REST
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS)
; (DECLARE (DYNAMIC-EXTENT
DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (:METHOD
; ((DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE STANDARD-OBJECT)
(CLASS SYMBOL)
; &REST DE.SETF.UTILITY.IMPLEMENTATION::INITARGS)
; (APPLY #'DE.SETF.UTILITY:CLONE-INSTANCE-AS
; DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE (FIND-CLASS
CLASS)
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (:METHOD
; ((DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE STANDARD-OBJECT)
(CLASS CLASS)
; &REST DE.SETF.UTILITY.IMPLEMENTATION::INITARGS &AUX
; DE.SETF.UTILITY.IMPLEMENTATION::NEW)
; "observing that both mcl and allegro support allocate-instance
; on all of {built-in,funcallable-
standard,standard,structure}class
; the specialization for this function cann be relaxed
accordingly."
; (DECLARE (DYNAMIC-EXTENT
DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (SETF DE.SETF.UTILITY.IMPLEMENTATION::NEW (ALLOCATE-INSTANCE
CLASS))
; (APPLY #'DE.SETF.UTILITY:INITIALIZE-CLONE
; DE.SETF.UTILITY.IMPLEMENTATION::INSTANCE
; DE.SETF.UTILITY.IMPLEMENTATION::NEW
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS)
; DE.SETF.UTILITY.IMPLEMENTATION::NEW))
; --> PROGN PUSH LET* LET SB-C::%FUNCALL
; ==>
; (SB-C:%LISTIFY-REST-ARGS #:N-CONTEXT-150 #:N-COUNT-151)
;
; note: could not stack allocate the result of (DEFGENERIC CLONE-
INSTANCE-AS
; (INSTANCE CLASS &REST
INITARGS)
; (DECLARE (DYNAMIC-EXTENT
INITARGS))
; (:METHOD
; ((INSTANCE STANDARD-OBJECT)
; (CLASS SYMBOL) &REST
INITARGS)
; (APPLY #'CLONE-INSTANCE-
AS INSTANCE
; (FIND-CLASS CLASS)
INITARGS))
; (:METHOD
; ((INSTANCE STANDARD-OBJECT)
; (CLASS CLASS) &REST
INITARGS &AUX
; NEW)
; "observing that both mcl
and allegro support allocate-instance
; on all of {built-in,funcallable-
standard,standard,structure}class
; the specialization for this function cann be relaxed
accordingly."
; (DECLARE (DYNAMIC-EXTENT
INITARGS))
; (SETF NEW (ALLOCATE-
INSTANCE CLASS))
; (APPLY #'INITIALIZE-CLONE
INSTANCE
; NEW INITARGS)
; NEW))
; compiling (DEFGENERIC INITIALIZE-CLONE ...)
; file: /Development/Source/dev/Library/de/setf/utility/clos/clone-
instance.lisp
; in: DEFGENERIC INITIALIZE-CLONE
; (IGNORE-ERRORS
; (SIMPLE-CONDITION-FORMAT-ARGUMENTS
DE.SETF.UTILITY.IMPLEMENTATION::FROM))
; --> HANDLER-CASE SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET
; ==>
; (CONS :CONDITION NIL)
;
; note: could not stack allocate the result of (IGNORE-ERRORS
; (SIMPLE-CONDITION-FORMAT-
ARGUMENTS
; FROM))
; (IGNORE-ERRORS
; (SIMPLE-CONDITION-FORMAT-CONTROL
DE.SETF.UTILITY.IMPLEMENTATION::FROM))
; --> HANDLER-CASE SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET
; ==>
; (CONS :CONDITION NIL)
;
; note: could not stack allocate the result of (IGNORE-ERRORS
; (SIMPLE-CONDITION-FORMAT-
CONTROL FROM))
; (DEFGENERIC DE.SETF.UTILITY:INITIALIZE-CLONE
; (DE.SETF.UTILITY.IMPLEMENTATION::OLD
DE.SETF.UTILITY.IMPLEMENTATION::NEW
; &REST DE.SETF.UTILITY.IMPLEMENTATION::INITARGS &KEY &ALLOW-
OTHER-KEYS)
; (DECLARE (DYNAMIC-EXTENT
DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (:METHOD
; ((DE.SETF.UTILITY.IMPLEMENTATION::OLD STANDARD-OBJECT)
; (DE.SETF.UTILITY.IMPLEMENTATION::NEW STANDARD-OBJECT) &REST
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS)
; (DECLARE (DYNAMIC-EXTENT
DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (APPLY #'SHARED-INITIALIZE
DE.SETF.UTILITY.IMPLEMENTATION::NEW T
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS))
; (:METHOD
; ((DE.SETF.UTILITY.IMPLEMENTATION::FROM SIMPLE-CONDITION)
; (DE.SETF.UTILITY.IMPLEMENTATION::TO SIMPLE-CONDITION) &REST
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS &KEY
; (DE.SETF.UTILITY.IMPLEMENTATION::FORMAT-CONTROL (OR # ""))
; (DE.SETF.UTILITY.IMPLEMENTATION::FORMAT-ARGUMENTS (IGNORE-
ERRORS #)))
; (APPLY #'CALL-NEXT-METHOD DE.SETF.UTILITY.IMPLEMENTATION::FROM
; DE.SETF.UTILITY.IMPLEMENTATION::TO :FORMAT-CONTROL
; DE.SETF.UTILITY.IMPLEMENTATION::FORMAT-
CONTROL :FORMAT-ARGUMENTS
; DE.SETF.UTILITY.IMPLEMENTATION::FORMAT-ARGUMENTS
; DE.SETF.UTILITY.IMPLEMENTATION::INITARGS)))
; --> PROGN PUSH LET* LET SB-C::%FUNCALL
; ==>
; (SB-C:%LISTIFY-REST-ARGS #:N-CONTEXT-325 #:N-COUNT-326)
;
; note: could not stack allocate the result of (DEFGENERIC INITIALIZE-
CLONE
; (OLD NEW &REST INITARGS
&KEY
; &ALLOW-OTHER-KEYS)
; (DECLARE (DYNAMIC-EXTENT
INITARGS))
; (:METHOD
; ((OLD STANDARD-OBJECT)
; (NEW STANDARD-OBJECT) &REST
; INITARGS)
; (DECLARE (DYNAMIC-EXTENT
INITARGS))
; (APPLY #'SHARED-
INITIALIZE NEW T
; INITARGS))
; (:METHOD
; ((FROM SIMPLE-CONDITION)
; (TO SIMPLE-CONDITION)
&REST INITARGS
; &KEY
; (FORMAT-CONTROL
; (OR (IGNORE-ERRORS #) ""))
; (FORMAT-ARGUMENTS
; (IGNORE-ERRORS
; (SIMPLE-CONDITION-
FORMAT-ARGUMENTS
; FROM))))
; (APPLY #'CALL-NEXT-METHOD
FROM TO
; :FORMAT-CONTROL
FORMAT-CONTROL
; :FORMAT-ARGUMENTS
; FORMAT-ARGUMENTS
INITARGS)))
; compiling (DEFGENERIC CLONE-P ...)
; compiling (DEFGENERIC COPY-INSTANCE-SLOTS ...)
; compiling (DEFMACRO DEFCOPY-INSTANCE-SLOTS ...)
; compiling (DEFGENERIC CHECK-CLONE-SLOTS ...)
; compiling (DEFMACRO DEF-INITIALIZE-CLONE ...)
; compiling (DEFUN CLONE-ARRAY ...)
; compiling :DE.SETF.UTILITY
; /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/clos/
clone-instance.fasl written
; compilation finished in 0:00:00.963
; compiling file "/Development/Source/dev/Library/de/setf/utility/
clos/denominated-progn.lisp" (written 09 APR 2009 05:09:28 PM):
; compiling (IN-PACKAGE :DE.SETF.UTILITY.IMPLEMENTATION)
; compiling (MODPACKAGE :DE.SETF.UTILITY ...)
; compiling (DEFINE-METHOD-COMBINATION DENOMINATED-PROGN ...)
; /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/clos/
denominated-progn.fasl written
; compilation finished in 0:00:00.400
; compiling file "/Development/Source/dev/Library/de/setf/utility/
clos/print-object-slots.lisp" (written 09 APR 2009 05:06:31 PM):
; compiling (IN-PACKAGE :DE.SETF.UTILITY.IMPLEMENTATION)
; compiling (MODPACKAGE :DE.SETF.UTILITY ...)
; compiling (DEFVAR *PRINT-OBJECT-SLOTS* ...)
; compiling (DEFGENERIC PRINT-OBJECT-SLOT-NAMES ...)
; compiling (DEFGENERIC PRINT-OBJECT-SLOTS ...)
; compiling (DEFMACRO DEF-PRINT-OBJECT-SLOTS ...)
; compiling :EOF
; /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/clos/
print-object-slots.fasl written
; compilation finished in 0:00:00.174
; compiling file "/Development/Source/dev/Library/de/setf/utility/
walker/walker.lisp" (written 22 FEB 2010 12:05:58 PM):
; compiling (IN-PACKAGE DE.SETF.UTILITY.IMPLEMENTATION)
; compiling (DEFPARAMETER *WALKER* ...)
; compiling (DEFPARAMETER *PACKAGES-TO-WALK* ...)
; compiling (DEFPARAMETER *WALK-DEPTH* ...)
; compiling (DEFUN COERCE-TO-PACKAGE ...)
; compiling (DEF-ABSTRACT-CLASS WALKER ...)
; compiling (DEF-ABSTRACT-CLASS WALK-NAVIGATOR ...)
; compiling (DEF-ABSTRACT-CLASS WALK-OPERATOR ...)
; compiling (DEF-ABSTRACT-CLASS CACHING-WALKER ...)
; compiling (DEF-ABSTRACT-CLASS CYCLIC-WALKER ...)
; compiling (DEFCLASS ACYCLIC-WALKER ...)
; compiling (DEFCLASS NODE-OPERATOR ...)
; compiling (DEFCLASS NODE-PREDECESSOR-NAVIGATOR ...)
; compiling (DEFCLASS NODE-SUCCESSOR-NAVIGATOR ...)
; compiling (DEFCLASS LINK-NAVIGATOR ...)
; compiling (DEFCLASS LINK-RELATION-OPERATOR ...)
; compiling (DEFCLASS WALK-QUALIFIER ...)
; compiling (DEFGENERIC WALKER-NODE-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-NODE-PREDECESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-NODE-SUCCESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-LINK-QUALIFIERS ...)
; compiling (DEFCLASS PREORDER-NODE-WALKER ...)
; compiling (DEFCLASS SYMMETRIC-NODE-WALKER ...)
; compiling (DEFCLASS ENDORDER-NODE-WALKER ...)
; compiling (DEFCLASS NODE-NAVIGATOR ...)
; compiling (DEFCLASS PREORDER-LINK-WALKER ...)
; compiling (DEFCLASS ENDORDER-LINK-WALKER ...)
; compiling (DEFSTRUCT WALKER-ENTRY ...)
; compiling (DEFGENERIC MAKE-WALKER-CACHE-ENTRY ...)
; compiling (DEFGENERIC WALKER-NODE-CACHE-ENTRY ...)
; compiling (DEFGENERIC WALKER-NODE-PROPERTIES ...)
; compiling (DEFGENERIC (SETF WALKER-NODE-PROPERTIES) ...)
; compiling (DEFGENERIC WALKER-NODE-VISITED-P ...)
; compiling (DEFGENERIC (SETF WALKER-NODE-VISITED) ...)
; compiling (DEFGENERIC WALKER-INITIALIZE-CACHE ...)
; compiling (DEFGENERIC WALKER-CLEAR-CACHE ...)
; compiling (DEFGENERIC WALK-MODEL ...)
; compiling (DEFGENERIC WALK-NODE ...)
; compiling (DEFGENERIC WALK-NODE-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-NODE-SELF ...)
; compiling (DEFGENERIC WALK-NODE-PREDECESSORS ...)
; compiling (DEFGENERIC WALK-NODE-SUCCESSORS ...)
; compiling (DEFGENERIC WALK-NODE-SUCCESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-NODE-PREDECESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-LINK ...)
; compiling (DEFGENERIC WALK-LINK-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-LINK-OTHER ...)
; compiling (DEFGENERIC WALK-LINK-RELATION ...)
; compiling (DEFGENERIC MAP-WALK-LINK ...)
; compiling (DEFDENOMINATIVES WALKER ...)
; compiling (DEFDENOMINATIVES NODE-OPERATOR ...)
; compiling (DEFDENOMINATIVES NODE-PREDECESSOR-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES NODE-SUCCESSOR-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES PREORDER-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES SYMMETRIC-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES ENDORDER-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES LINK-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES LINK-RELATION-OPERATOR ...)
; compiling (DEFDENOMINATIVES PREORDER-LINK-WALKER ...)
; compiling (DEFDENOMINATIVES ENDORDER-LINK-WALKER ...)
; compiling :DE.SETF.UTILITY.WALKER
; /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/walker/
walker.fasl written
; compilation finished in 0:00:01.630
STYLE-WARNING: redefining COERCE-TO-PACKAGE in DEFUN
STYLE-WARNING: redefining MAKE-WALKER-ENTRY in DEFUN
debugger invoked on a SIMPLE-ERROR:
method combination error in CLOS dispatch:
no applicable :denominative method: #<STANDARD-GENERIC-FUNCTION
WALK-NODE (1)>.
(#<STANDARD-METHOD
WALK-
NODE SUCCESSORS (WALKER
T
T)
{129A8641}>)
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [TRY-RECOMPILING] Recompile walker and try loading it again
1: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {12A36D71}
> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>.
2: [ACCEPT ] Continue, treating #<ASDF:LOAD-OP NIL
{12A36D71}> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}> as
having
been successful.
3: [ABORT ] Exit debugger, returning to top level.
((LAMBDA
(&KEY (OPERATOR (QUOTE PROGN))
(QUALIFIERS
(ERROR "qualifiers required for denominated method
combination."))
(ORDER :MOST-SPECIFIC-FIRST) (IF-NOT-APPLICABLE ()) (VERBOSE
())))
:OPERATOR
AND
:QUALIFIERS
WALK-NODE-QUALIFIERS
:ORDER
:MOST-SPECIFIC-FIRST
:IF-NOT-APPLICABLE
NIL
:VERBOSE
NIL)
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
:backtrace
0: ((LAMBDA
(&KEY (OPERATOR (QUOTE PROGN))
(QUALIFIERS
(ERROR "qualifiers required for denominated method
combination."))
(ORDER :MOST-SPECIFIC-FIRST) (IF-NOT-APPLICABLE ())
(VERBOSE ())))
:OPERATOR
AND
:QUALIFIERS
WALK-NODE-QUALIFIERS
:ORDER
:MOST-SPECIFIC-FIRST
:IF-NOT-APPLICABLE
NIL
:VERBOSE
NIL)
1: ((LAMBDA
(SB-PCL::.GENERIC-FUNCTION. SB-PCL::.METHOD-COMBINATION.
SB-PCL::.APPLICABLE-METHODS.))
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
#<SB-PCL::LONG-METHOD-COMBINATION
DENOMINATED (:ORDER :MOST-SPECIFIC-FIRST :OPERATOR
AND :QUALIFIERS
WALK-NODE-QUALIFIERS :VERBOSE NIL)
{132BBC09}>
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {129A8641}>))
2: (SB-PCL::GET-SECONDARY-DISPATCH-FUNCTION2
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {129A8641}>)
((CLASS #<ABSTRACT-STANDARD-CLASS WALKER>) T T)
NIL
NIL
T
T
NIL)
3: (SB-PCL::GET-SECONDARY-DISPATCH-FUNCTION1
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {129A8641}>)
((CLASS #<ABSTRACT-STANDARD-CLASS WALKER>) T T)
NIL
NIL
T
T
NIL)
4: (SB-PCL::MAP-ALL-ORDERS
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {129A8641}>)
(0 1 2)
#<CLOSURE (LAMBDA #) {132BC965}>)
5: ((LABELS SB-PCL::DO-METHODS)
(0 1 2)
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {129A8641}>)
T
NIL
NIL)
6: (SB-PCL::PRECOMPUTE-EFFECTIVE-METHODS
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
NIL
NIL)
7: (SB-PCL::MAKE-INITIAL-DFUN #<STANDARD-GENERIC-FUNCTION WALK-NODE
(1)>)
8: ((FLET SB-PCL::UPDATE))
9: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-SYSTEM-
SPINLOCK]222))
10: (SB-THREAD::CALL-WITH-RECURSIVE-SYSTEM-SPINLOCK
#<CLOSURE (FLET SB-PCL::UPDATE) {132BC8B5}>
#<unavailable argument>)
11: ((SB-PCL::FAST-METHOD REINITIALIZE-INSTANCE :AROUND
(STANDARD-GENERIC-FUNCTION))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>)[:EXTERNAL]
12: (SB-PCL::REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
WALK-NODE)[:EXTERNAL]
13: (SB-FASL::LOAD-FASL-GROUP
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{13211CF1}>)
14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
15: (SB-FASL::LOAD-AS-FASL
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{13211CF1}>
NIL
#<unavailable argument>)
16: ((FLET SB-FASL::LOAD-STREAM)
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{13211CF1}>
T)
17: (LOAD
#P"/Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/walker/
walker.fasl")[:EXTERNAL]
18: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE-
FILE))
#<unused argument>
#<unused argument>
#<unavailable argument>
#<unavailable argument>)
19: ((LAMBDA
(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.))
#<unavailable argument>
#<unavailable argument>
#<ASDF:LOAD-OP NIL {12A36D71}>
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>)
20: ((SB-PCL::FAST-METHOD ASDF:PERFORM ASDF:AROUND
(ASDF:LOAD-OP ASDF:CL-SOURCE-FILE))
#<unused argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<CLOSURE # {1230BF3D}>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#<ASDF:LOAD-OP NIL {12A36D71}>
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>)
21: ((LAMBDA ()))
22: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
23: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {12963015}>)
[:EXTERNAL]
24: (ASDF:OPERATE
#<unavailable argument>
#<unavailable argument>
#<unavailable &REST argument>
:VERBOSE
#<unavailable argument>
:VERSION
#<unavailable argument>
:FORCE
#<unused argument>)
25: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(ASDF:OPERATE 'ASDF:LOAD-OP :DE.SETF.GRAPHICS)
#<NULL-LEXENV>)
26: (SB-EXT:INTERACTIVE-EVAL (ASDF:OPERATE 'ASDF:LOAD-
OP :DE.SETF.GRAPHICS))[:EXTERNAL]
27: (SB-IMPL::REPL-FUN NIL)
28: ((LAMBDA ()))
29: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {11EF806D}>)
30: (SB-IMPL::TOPLEVEL-REPL NIL)
31: (SB-IMPL::TOPLEVEL-INIT)
32: ((LABELS SB-IMPL::RESTART-LISP))
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
:ab
;
; compilation unit aborted
; caught 1 fatal ERROR condition
; printed 5 notes
* (apropos "load-print")
*LOAD-PRINT* (bound)
SB-IMPL::*LOAD-PRINT-STUFF*
* *load-print*
NIL
* (setq *load-print* t)
T
* (asdf:operate 'asdf:load-op :de.setf.graphics)
STYLE-WARNING: redefining COERCE-TO-PACKAGE in DEFUN
STYLE-WARNING: redefining MAKE-WALKER-ENTRY in DEFUN
debugger invoked on a SIMPLE-ERROR:
method combination error in CLOS dispatch:
no applicable :denominative method: #<STANDARD-GENERIC-FUNCTION
WALK-NODE (1)>.
(#<STANDARD-METHOD
WALK-
NODE SUCCESSORS (WALKER
T
T)
{129A8641}>)
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [TRY-RECOMPILING] Recompile walker and try loading it again
1: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {1369FB09}
> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>.
2: [ACCEPT ] Continue, treating #<ASDF:LOAD-OP NIL
{1369FB09}> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}> as
having
been successful.
3: [ABORT ] Exit debugger, returning to top level.
((LAMBDA
(&KEY (OPERATOR (QUOTE PROGN))
(QUALIFIERS
(ERROR "qualifiers required for denominated method
combination."))
(ORDER :MOST-SPECIFIC-FIRST) (IF-NOT-APPLICABLE ()) (VERBOSE
())))
:OPERATOR
AND
:QUALIFIERS
WALK-NODE-QUALIFIERS
:ORDER
:MOST-SPECIFIC-FIRST
:IF-NOT-APPLICABLE
NIL
:VERBOSE
NIL)
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
:ab
;
; compilation unit aborted
; caught 1 fatal ERROR condition
* (fmakunbound 'de.setf.utility::walk-node)
DE.SETF.UTILITY::WALK-NODE
* (asdf:operate 'asdf:load-op :de.setf.graphics)
; compiling file "/Development/Source/dev/Library/de/setf/utility/
walker/walker.lisp" (written 22 FEB 2010 12:25:17 PM):
; compiling (IN-PACKAGE DE.SETF.UTILITY.IMPLEMENTATION)
; compiling (DEFPARAMETER *WALKER* ...)
; compiling (DEFPARAMETER *PACKAGES-TO-WALK* ...)
; compiling (DEFPARAMETER *WALK-DEPTH* ...)
; compiling (DEFUN COERCE-TO-PACKAGE ...)
; compiling (DEF-ABSTRACT-CLASS WALKER ...)
; compiling (DEF-ABSTRACT-CLASS WALK-NAVIGATOR ...)
; compiling (DEF-ABSTRACT-CLASS WALK-OPERATOR ...)
; compiling (DEF-ABSTRACT-CLASS CACHING-WALKER ...)
; compiling (DEF-ABSTRACT-CLASS CYCLIC-WALKER ...)
; compiling (DEFCLASS ACYCLIC-WALKER ...)
; compiling (DEFCLASS NODE-OPERATOR ...)
; compiling (DEFCLASS NODE-PREDECESSOR-NAVIGATOR ...)
; compiling (DEFCLASS NODE-SUCCESSOR-NAVIGATOR ...)
; compiling (DEFCLASS LINK-NAVIGATOR ...)
; compiling (DEFCLASS LINK-RELATION-OPERATOR ...)
; compiling (DEFCLASS WALK-QUALIFIER ...)
; compiling (DEFGENERIC WALKER-NODE-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-NODE-PREDECESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-NODE-SUCCESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-LINK-QUALIFIERS ...)
; compiling (DEFCLASS PREORDER-NODE-WALKER ...)
; compiling (DEFCLASS SYMMETRIC-NODE-WALKER ...)
; compiling (DEFCLASS ENDORDER-NODE-WALKER ...)
; compiling (DEFCLASS NODE-NAVIGATOR ...)
; compiling (DEFCLASS PREORDER-LINK-WALKER ...)
; compiling (DEFCLASS ENDORDER-LINK-WALKER ...)
; compiling (DEFSTRUCT WALKER-ENTRY ...)
; compiling (DEFGENERIC MAKE-WALKER-CACHE-ENTRY ...)
; compiling (DEFGENERIC WALKER-NODE-CACHE-ENTRY ...)
; compiling (DEFGENERIC WALKER-NODE-PROPERTIES ...)
; compiling (DEFGENERIC (SETF WALKER-NODE-PROPERTIES) ...)
; compiling (DEFGENERIC WALKER-NODE-VISITED-P ...)
; compiling (DEFGENERIC (SETF WALKER-NODE-VISITED) ...)
; compiling (DEFGENERIC WALKER-INITIALIZE-CACHE ...)
; compiling (DEFGENERIC WALKER-CLEAR-CACHE ...)
; compiling (DEFGENERIC WALK-MODEL ...)
; compiling (DEFGENERIC WALK-NODE ...)
; compiling (DEFGENERIC WALK-NODE-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-NODE-SELF ...)
; compiling (DEFGENERIC WALK-NODE-PREDECESSORS ...)
; compiling (DEFGENERIC WALK-NODE-SUCCESSORS ...)
; compiling (DEFGENERIC WALK-NODE-SUCCESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-NODE-PREDECESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-LINK ...)
; compiling (DEFGENERIC WALK-LINK-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-LINK-OTHER ...)
; compiling (DEFGENERIC WALK-LINK-RELATION ...)
; compiling (DEFGENERIC MAP-WALK-LINK ...)
; compiling (DEFDENOMINATIVES WALKER ...)
; compiling (DEFDENOMINATIVES NODE-OPERATOR ...)
; compiling (DEFDENOMINATIVES NODE-PREDECESSOR-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES NODE-SUCCESSOR-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES PREORDER-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES SYMMETRIC-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES ENDORDER-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES LINK-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES LINK-RELATION-OPERATOR ...)
; compiling (DEFDENOMINATIVES PREORDER-LINK-WALKER ...)
; compiling (DEFDENOMINATIVES ENDORDER-LINK-WALKER ...)
; compiling :DE.SETF.UTILITY.WALKER
; /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/walker/
walker.fasl written
; compilation finished in 0:00:01.891
STYLE-WARNING: redefining COERCE-TO-PACKAGE in DEFUN
STYLE-WARNING: redefining MAKE-WALKER-ENTRY in DEFUN
debugger invoked on a SIMPLE-ERROR:
method combination error in CLOS dispatch:
no applicable :denominative method: #<STANDARD-GENERIC-FUNCTION
WALK-NODE (1)>.
(#<STANDARD-METHOD
WALK-
NODE SUCCESSORS (WALKER
T
T)
{129A8641}>)
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [TRY-RECOMPILING] Recompile walker and try loading it again
1: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {11DCDA81}
> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>.
2: [ACCEPT ] Continue, treating #<ASDF:LOAD-OP NIL
{11DCDA81}> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}> as
having
been successful.
3: [ABORT ] Exit debugger, returning to top level.
((LAMBDA
(&KEY (OPERATOR (QUOTE PROGN))
(QUALIFIERS
(ERROR "qualifiers required for denominated method
combination."))
(ORDER :MOST-SPECIFIC-FIRST) (IF-NOT-APPLICABLE ()) (VERBOSE
())))
:OPERATOR
AND
:QUALIFIERS
WALK-NODE-QUALIFIERS
:ORDER
:MOST-SPECIFIC-FIRST
:IF-NOT-APPLICABLE
NIL
:VERBOSE
NIL)
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
(setq *load-verbose* t)
T
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
:ab
;
; compilation unit aborted
; caught 1 fatal ERROR condition
* *load-print*
T
* *load-verbose*
T
* (apropos 'de.setf.utility:walk-node)
debugger invoked on a SB-INT:SIMPLE-READER-PACKAGE-ERROR:
SB-INT:SIMPLE-READER-PACKAGE-ERROR at 11934141 on #<SYNONYM-STREAM
:SYMBOL SB-
SYS:*STDIN*
{1000EE21}>:
The symbol "WALK-NODE" is not external in the DE.SETF.UTILITY
package.
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [CONTINUE] Use symbol anyway.
1: [ABORT ] Exit debugger, returning to top level.
(SB-IMPL::READ-TOKEN #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN*
{1000EE21}> #\d)
0] :ab
*
debugger invoked on a SB-INT:SIMPLE-READER-ERROR:
SB-INT:SIMPLE-READER-ERROR at 11934492 on #<SYNONYM-STREAM
:SYMBOL SB-SYS:*STDIN*
{1000EE21}>:
unmatched close parenthesis
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Exit debugger, returning to top level.
(SB-INT:SIMPLE-READER-ERROR
#<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {1000EE21}>
"unmatched close parenthesis")[:EXTERNAL]
0] :ab
* (apropos 'de.setf.utility.walker:walk-node)
DE.SETF.UTILITY::WALK-NODE
DE.SETF.UTILITY.IMPLEMENTATION::WALK-NODE-PREDECESSOR-QUALIFIERS
DE.SETF.UTILITY.IMPLEMENTATION::WALK-NODE-QUALIFIERS
DE.SETF.UTILITY.IMPLEMENTATION::WALK-NODE-SUCCESSOR-QUALIFIERS
DE.SETF.UTILITY.WALKER:WALK-NODE (fbound)
DE.SETF.UTILITY.WALKER:WALK-NODE-PREDECESSORS
DE.SETF.UTILITY.WALKER:WALK-NODE-QUALIFIER
DE.SETF.UTILITY.WALKER:WALK-NODE-SELF
DE.SETF.UTILITY.WALKER:WALK-NODE-SUCCESSORS
:WALK-NODE (bound)
:WALK-NODE-PREDECESSORS (bound)
:WALK-NODE-QUALIFIER (bound)
:WALK-NODE-SELF (bound)
:WALK-NODE-SUCCESSORS (bound)
* (fmakunbound 'DE.SETF.UTILITY.WALKER:WALK-NODE)
DE.SETF.UTILITY.WALKER:WALK-NODE
* *compile-verbose*
T
* (asdf:operate 'asdf:load-op :de.setf.graphics)
; compiling file "/Development/Source/dev/Library/de/setf/utility/
walker/walker.lisp" (written 22 FEB 2010 12:28:20 PM):
; compiling (IN-PACKAGE DE.SETF.UTILITY.IMPLEMENTATION)
; compiling (DEFPARAMETER *WALKER* ...)
; compiling (DEFPARAMETER *PACKAGES-TO-WALK* ...)
; compiling (DEFPARAMETER *WALK-DEPTH* ...)
; compiling (DEFUN COERCE-TO-PACKAGE ...)
; compiling (DEF-ABSTRACT-CLASS WALKER ...)
; compiling (DEF-ABSTRACT-CLASS WALK-NAVIGATOR ...)
; compiling (DEF-ABSTRACT-CLASS WALK-OPERATOR ...)
; compiling (DEF-ABSTRACT-CLASS CACHING-WALKER ...)
; compiling (DEF-ABSTRACT-CLASS CYCLIC-WALKER ...)
; compiling (DEFCLASS ACYCLIC-WALKER ...)
; compiling (DEFCLASS NODE-OPERATOR ...)
; compiling (DEFCLASS NODE-PREDECESSOR-NAVIGATOR ...)
; compiling (DEFCLASS NODE-SUCCESSOR-NAVIGATOR ...)
; compiling (DEFCLASS LINK-NAVIGATOR ...)
; compiling (DEFCLASS LINK-RELATION-OPERATOR ...)
; compiling (DEFCLASS WALK-QUALIFIER ...)
; compiling (DEFGENERIC WALKER-NODE-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-NODE-PREDECESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-NODE-SUCCESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALKER-LINK-QUALIFIERS ...)
; compiling (DEFCLASS PREORDER-NODE-WALKER ...)
; compiling (DEFCLASS SYMMETRIC-NODE-WALKER ...)
; compiling (DEFCLASS ENDORDER-NODE-WALKER ...)
; compiling (DEFCLASS NODE-NAVIGATOR ...)
; compiling (DEFCLASS PREORDER-LINK-WALKER ...)
; compiling (DEFCLASS ENDORDER-LINK-WALKER ...)
; compiling (DEFSTRUCT WALKER-ENTRY ...)
; compiling (DEFGENERIC MAKE-WALKER-CACHE-ENTRY ...)
; compiling (DEFGENERIC WALKER-NODE-CACHE-ENTRY ...)
; compiling (DEFGENERIC WALKER-NODE-PROPERTIES ...)
; compiling (DEFGENERIC (SETF WALKER-NODE-PROPERTIES) ...)
; compiling (DEFGENERIC WALKER-NODE-VISITED-P ...)
; compiling (DEFGENERIC (SETF WALKER-NODE-VISITED) ...)
; compiling (DEFGENERIC WALKER-INITIALIZE-CACHE ...)
; compiling (DEFGENERIC WALKER-CLEAR-CACHE ...)
; compiling (DEFGENERIC WALK-MODEL ...)
; compiling (DEFGENERIC WALK-NODE ...)
; compiling (DEFGENERIC WALK-NODE-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-NODE-SELF ...)
; compiling (DEFGENERIC WALK-NODE-PREDECESSORS ...)
; compiling (DEFGENERIC WALK-NODE-SUCCESSORS ...)
; compiling (DEFGENERIC WALK-NODE-SUCCESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-NODE-PREDECESSOR-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-LINK ...)
; compiling (DEFGENERIC WALK-LINK-QUALIFIERS ...)
; compiling (DEFGENERIC WALK-LINK-OTHER ...)
; compiling (DEFGENERIC WALK-LINK-RELATION ...)
; compiling (DEFGENERIC MAP-WALK-LINK ...)
; compiling (DEFDENOMINATIVES WALKER ...)
; compiling (DEFDENOMINATIVES NODE-OPERATOR ...)
; compiling (DEFDENOMINATIVES NODE-PREDECESSOR-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES NODE-SUCCESSOR-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES PREORDER-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES SYMMETRIC-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES ENDORDER-NODE-WALKER ...)
; compiling (DEFDENOMINATIVES LINK-NAVIGATOR ...)
; compiling (DEFDENOMINATIVES LINK-RELATION-OPERATOR ...)
; compiling (DEFDENOMINATIVES PREORDER-LINK-WALKER ...)
; compiling (DEFDENOMINATIVES ENDORDER-LINK-WALKER ...)
; compiling :DE.SETF.UTILITY.WALKER
; /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/walker/
walker.fasl written
; compilation finished in 0:00:01.735
; loading #P"/Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
STYLE-WARNING: redefining COERCE-TO-PACKAGE in DEFUN
STYLE-WARNING: redefining MAKE-WALKER-ENTRY in DEFUN
debugger invoked on a SIMPLE-ERROR:
method combination error in CLOS dispatch:
no applicable :denominative method: #<STANDARD-GENERIC-FUNCTION
WALK-NODE (1)>.
(#<STANDARD-METHOD
WALK-
NODE SUCCESSORS (WALKER
T
T)
{1350F411}>)
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [TRY-RECOMPILING] Recompile walker and try loading it again
1: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {137FB4E9}
> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>.
2: [ACCEPT ] Continue, treating #<ASDF:LOAD-OP NIL
{137FB4E9}> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}> as
having
been successful.
3: [ABORT ] Exit debugger, returning to top level.
(SB-PCL::REAL-ADD-METHOD
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1350F411}>
NIL)
0] *load-print*
T
0] (describe '*load-print*)
COMMON-LISP:*LOAD-PRINT*
[symbol]
*LOAD-PRINT* names a special variable:
Declared type: T
Value: T
Documentation:
the default for the :PRINT argument to LOAD
0] (describe 'DE.SETF.UTILITY.WALKER:WALK-NODE)
DE.SETF.UTILITY.WALKER:WALK-NODE
[symbol]
WALK-NODE names a generic function:
Lambda-list: (NAVIGATOR NODE OPERATOR)
Derived type: (FUNCTION (T T T) *)
Documentation:
walk within the node proper. the primary navigation methods
distinguish pre- and post-order
navigation. the method combination, denominated, is declared to
use the function walk-node-qualifiers to
determine which qualifiers apply to a given walker instance and
in which order. the initial generic
definition defines an :around methods for cyclic-walker and for
a nullnode to filter traversal, and the
qualified methods self - for walk-node-self, predecessors - for
walk-node-predecessors, and successors -
for walk-node-successors.
Method-combination: DENOMINATED
Methods:
(WALK-NODE SUCCESSORS (WALKER T T))
Source file: SYS:SRC;PCL;DFUN.LISP.NEWEST
0] (generic-function-methods #'DE.SETF.UTILITY.WALKER:WALK-NODE)
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1350F411}>)
0] :backtrace
0: (SB-PCL::REAL-ADD-METHOD
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1350F411}>
NIL)
1: (SB-PCL::REAL-ADD-NAMED-METHOD
WALK-NODE
(SUCCESSORS)
(#<ABSTRACT-STANDARD-CLASS WALKER> #<BUILT-IN-CLASS T> #<BUILT-
IN-CLASS T>)
(NAVIGATOR NODE OPERATOR))[:EXTERNAL]
2: (SB-PCL::LOAD-DEFMETHOD-INTERNAL
STANDARD-METHOD
WALK-NODE
(SUCCESSORS)
(#<ABSTRACT-STANDARD-CLASS WALKER> #<BUILT-IN-CLASS T> #<BUILT-
IN-CLASS T>)
(NAVIGATOR NODE OPERATOR)
(:FUNCTION #<SB-PCL::%METHOD-FUNCTION {1350E61D}> SB-PCL::PLIST
(:ARG-INFO (3)))
#S(SB-C:DEFINITION-SOURCE-LOCATION
:NAMESTRING "LIBRARY:DE;SETF;UTILITY;WALKER;WALKER.LISP.NEWEST"
:TOPLEVEL-FORM-NUMBER 37
:PLIST NIL))
3: (SB-FASL::FOP-FUNCALL)
4: (SB-FASL::LOAD-FASL-GROUP
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{13470AE1}>)
5: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
6: (SB-FASL::LOAD-AS-FASL
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{13470AE1}>
T
#<unavailable argument>)
7: ((FLET SB-FASL::LOAD-STREAM)
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{13470AE1}>
T)
8: (LOAD
#P"/Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/walker/
walker.fasl")[:EXTERNAL]
9: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE-
FILE))
#<unused argument>
#<unused argument>
#<unavailable argument>
#<unavailable argument>)
10: ((LAMBDA
(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.))
#<unavailable argument>
#<unavailable argument>
#<ASDF:LOAD-OP NIL {137FB4E9}>
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>)
11: ((SB-PCL::FAST-METHOD ASDF:PERFORM ASDF:AROUND
(ASDF:LOAD-OP ASDF:CL-SOURCE-FILE))
#<unused argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<CLOSURE # {1230BF3D}>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#<ASDF:LOAD-OP NIL {137FB4E9}>
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>)
12: ((LAMBDA ()))
13: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
14: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {11DA044D}>)
[:EXTERNAL]
15: (ASDF:OPERATE
#<unavailable argument>
#<unavailable argument>
#<unavailable &REST argument>
:VERBOSE
#<unavailable argument>
:VERSION
#<unavailable argument>
:FORCE
#<unused argument>)
16: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(ASDF:OPERATE 'ASDF:LOAD-OP :DE.SETF.GRAPHICS)
#<NULL-LEXENV>)
17: (SB-EXT:INTERACTIVE-EVAL (ASDF:OPERATE 'ASDF:LOAD-
OP :DE.SETF.GRAPHICS))[:EXTERNAL]
18: (SB-IMPL::REPL-FUN NIL)
19: ((LAMBDA ()))
20: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {11EF806D}>)
21: (SB-IMPL::TOPLEVEL-REPL NIL)
22: (SB-IMPL::TOPLEVEL-INIT)
23: ((LABELS SB-IMPL::RESTART-LISP))
0] :ab
;
; compilation unit aborted
; caught 1 fatal ERROR condition
* (asdf:operate 'asdf:load-op :de.setf.graphics)
; loading #P"/Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
STYLE-WARNING: redefining COERCE-TO-PACKAGE in DEFUN
STYLE-WARNING: redefining MAKE-WALKER-ENTRY in DEFUN
debugger invoked on a SIMPLE-ERROR:
method combination error in CLOS dispatch:
no applicable :denominative method: #<STANDARD-GENERIC-FUNCTION
WALK-NODE (1)>.
(#<STANDARD-METHOD
WALK-
NODE SUCCESSORS (WALKER
T
T)
{1375EFD1}>)
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [TRY-RECOMPILING] Recompile walker and try loading it again
1: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {11EDAF19}
> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>.
2: [ACCEPT ] Continue, treating #<ASDF:LOAD-OP NIL
{11EDAF19}> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}> as
having
been successful.
3: [ABORT ] Exit debugger, returning to top level.
((LAMBDA
(&KEY (OPERATOR (QUOTE PROGN))
(QUALIFIERS
(ERROR "qualifiers required for denominated method
combination."))
(ORDER :MOST-SPECIFIC-FIRST) (IF-NOT-APPLICABLE ()) (VERBOSE
())))
:OPERATOR
AND
:QUALIFIERS
WALK-NODE-QUALIFIERS
:ORDER
:MOST-SPECIFIC-FIRST
:IF-NOT-APPLICABLE
NIL
:VERBOSE
NIL)
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
:backtrace
0: ((LAMBDA
(&KEY (OPERATOR (QUOTE PROGN))
(QUALIFIERS
(ERROR "qualifiers required for denominated method
combination."))
(ORDER :MOST-SPECIFIC-FIRST) (IF-NOT-APPLICABLE ())
(VERBOSE ())))
:OPERATOR
AND
:QUALIFIERS
WALK-NODE-QUALIFIERS
:ORDER
:MOST-SPECIFIC-FIRST
:IF-NOT-APPLICABLE
NIL
:VERBOSE
NIL)
1: ((LAMBDA
(SB-PCL::.GENERIC-FUNCTION. SB-PCL::.METHOD-COMBINATION.
SB-PCL::.APPLICABLE-METHODS.))
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
#<SB-PCL::LONG-METHOD-COMBINATION
DENOMINATED (:ORDER :MOST-SPECIFIC-FIRST :OPERATOR
AND :QUALIFIERS
WALK-NODE-QUALIFIERS :VERBOSE NIL)
{12E36C09}>
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1375EFD1}>))
2: (SB-PCL::GET-SECONDARY-DISPATCH-FUNCTION2
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1375EFD1}>)
((CLASS #<ABSTRACT-STANDARD-CLASS WALKER>) T T)
NIL
NIL
T
T
NIL)
3: (SB-PCL::GET-SECONDARY-DISPATCH-FUNCTION1
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1375EFD1}>)
((CLASS #<ABSTRACT-STANDARD-CLASS WALKER>) T T)
NIL
NIL
T
T
NIL)
4: (SB-PCL::MAP-ALL-ORDERS
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1375EFD1}>)
(0 1 2)
#<CLOSURE (LAMBDA #) {12E37965}>)
5: ((LABELS SB-PCL::DO-METHODS)
(0 1 2)
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1375EFD1}>)
T
NIL
NIL)
6: (SB-PCL::PRECOMPUTE-EFFECTIVE-METHODS
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
NIL
NIL)
7: (SB-PCL::MAKE-INITIAL-DFUN #<STANDARD-GENERIC-FUNCTION WALK-NODE
(1)>)
8: ((FLET SB-PCL::UPDATE))
9: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-SYSTEM-
SPINLOCK]222))
10: (SB-THREAD::CALL-WITH-RECURSIVE-SYSTEM-SPINLOCK
#<CLOSURE (FLET SB-PCL::UPDATE) {12E378B5}>
#<unavailable argument>)
11: ((SB-PCL::FAST-METHOD REINITIALIZE-INSTANCE :AROUND
(STANDARD-GENERIC-FUNCTION))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>)[:EXTERNAL]
12: (SB-PCL::REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
#<STANDARD-GENERIC-FUNCTION WALK-NODE (1)>
WALK-NODE)[:EXTERNAL]
13: (SB-FASL::LOAD-FASL-GROUP
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{12D9ACF1}>)
14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
15: (SB-FASL::LOAD-AS-FASL
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{12D9ACF1}>
T
#<unavailable argument>)
16: ((FLET SB-FASL::LOAD-STREAM)
#<SB-SYS:FD-STREAM
for "file /Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-
ppc32/Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/
walker/walker.fasl"
{12D9ACF1}>
T)
17: (LOAD
#P"/Users/janson/.cache/common-lisp/sbcl-1.0.35-darwin-ppc32/
Development/Source/dev/Library/bin/sbcl-osx/de/setf/utility/walker/
walker.fasl")[:EXTERNAL]
18: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE-
FILE))
#<unused argument>
#<unused argument>
#<unavailable argument>
#<unavailable argument>)
19: ((LAMBDA
(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.))
#<unavailable argument>
#<unavailable argument>
#<ASDF:LOAD-OP NIL {11EDAF19}>
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>)
20: ((SB-PCL::FAST-METHOD ASDF:PERFORM ASDF:AROUND
(ASDF:LOAD-OP ASDF:CL-SOURCE-FILE))
#<unused argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<CLOSURE # {1230BF3D}>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#<ASDF:LOAD-OP NIL {11EDAF19}>
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>)
21: ((LAMBDA ()))
22: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
23: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {12D87075}>)
[:EXTERNAL]
24: (ASDF:OPERATE
#<unavailable argument>
#<unavailable argument>
#<unavailable &REST argument>
:VERBOSE
#<unavailable argument>
:VERSION
#<unavailable argument>
:FORCE
#<unused argument>)
25: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(ASDF:OPERATE 'ASDF:LOAD-OP :DE.SETF.GRAPHICS)
#<NULL-LEXENV>)
26: (SB-EXT:INTERACTIVE-EVAL (ASDF:OPERATE 'ASDF:LOAD-
OP :DE.SETF.GRAPHICS))[:EXTERNAL]
27: (SB-IMPL::REPL-FUN NIL)
28: ((LAMBDA ()))
29: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {11EF806D}>)
30: (SB-IMPL::TOPLEVEL-REPL NIL)
31: (SB-IMPL::TOPLEVEL-INIT)
32: ((LABELS SB-IMPL::RESTART-LISP))
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
(generic-function-methods #'DE.SETF.UTILITY.WALKER:WALK-NODE)
(#<STANDARD-METHOD WALK-NODE SUCCESSORS (WALKER T T) {1375EFD1}>)
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
(generic-function-methods #'de.setf.utility.walker:walk-model)
(#<STANDARD-METHOD WALK-MODEL :BEFORE (T CACHING-WALKER T) {12E352F9}>
#<STANDARD-METHOD WALK-MODEL (T T T) {12E33B01}>)
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
(generic-function-methods #'de.setf.utility.walker:walk-node-
predecessors)
debugger invoked on a UNDEFINED-FUNCTION:
The function WALK-NODE-PREDECESSORS is undefined.
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT ] Reduce debugger level (to debug level 1).
1: [TRY-RECOMPILING] Recompile walker and try loading it again
2: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {11EDAF19}
> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}>.
3: [ACCEPT ] Continue, treating #<ASDF:LOAD-OP NIL
{11EDAF19}> on
#<ASDF:CL-SOURCE-FILE "walker" {11FB0C01}> as
having
been successful.
4: Exit debugger, returning to top level.
((LAMBDA (#:G1447)) #<unavailable argument>)
0[2]
WARNING: Starting a select without a timeout while interrupts are
disabled.
:ab
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
(apropos "precompute")
SB-KERNEL::PRECOMPUTE-TYPES (fbound)
SB-PCL::*IN-PRECOMPUTE-EFFECTIVE-METHODS-P* (bound)
SB-PCL::GF-PRECOMPUTE-DFUN-AND-EMF-P (fbound)
SB-PCL::PRECOMPUTE-EFFECTIVE-METHODS (fbound)
SB-PCL::PRECOMPUTE-P
0]
WARNING: Starting a select without a timeout while interrupts are
disabled.
|