polymorphic-functions

polymorphic-functions/specializing

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/polymorphic-functions/8c53f4650e1b9c8b37b75d04eed3ad65a1a21d85/polymorphic-functions-20250710-git/src/nonlite/dispatch.lisp
; in: DEFUN NULL-ENV-COMPILATION-WARNINGS
;     (POLYMORPHIC-FUNCTIONS::WITH-MUFFLED-COMPILATION-WARNINGS
;       (HANDLER-BIND ((WARNING (LAMBDA # # #)))
;         (COMPILE NIL
;                  (ECASE (FIRST POLYMORPHIC-FUNCTIONS::LAMBDA-FORM)
;                    (LAMBDA POLYMORPHIC-FUNCTIONS::LAMBDA-FORM)))))
; --> LET 
; ==>
;   (LET ((SB-C::*IN-COMPILATION-UNIT* NIL) (*COMPILE-VERBOSE* NIL))
;     (PROGN
;      (HANDLER-BIND ((WARNING #))
;        (COMPILE NIL (ECASE # #)))))
; 
; caught ERROR:
;   Lock on package SB-C violated when lexically binding global symbol-macro *IN-COMPILATION-UNIT* in LET while in package POLYMORPHIC-FUNCTIONS.
;   See also:
;     The SBCL Manual, Node "Package Locks"

;     (DEFUN POLYMORPHIC-FUNCTIONS::NULL-ENV-COMPILATION-WARNINGS
;            (POLYMORPHIC-FUNCTIONS::LAMBDA-FORM)
;       (LET* ((POLYMORPHIC-FUNCTIONS::WARNINGS))
;         (POLYMORPHIC-FUNCTIONS::WITH-MUFFLED-COMPILATION-WARNINGS
;           (HANDLER-BIND (#)
;             (COMPILE NIL #)))
;         (IF POLYMORPHIC-FUNCTIONS::WARNINGS
;             (FORMAT NIL "~{~A~^~%~}" (NREVERSE POLYMORPHIC-FUNCTIONS::WARNINGS))
;             NIL)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA POLYMORPHIC-FUNCTIONS::NULL-ENV-COMPILATION-WARNINGS
;         (POLYMORPHIC-FUNCTIONS::LAMBDA-FORM)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK POLYMORPHIC-FUNCTIONS::NULL-ENV-COMPILATION-WARNINGS
;         (LET* ((POLYMORPHIC-FUNCTIONS::WARNINGS))
;           (POLYMORPHIC-FUNCTIONS::WITH-MUFFLED-COMPILATION-WARNINGS
;             (HANDLER-BIND #
;               #))
;           (IF POLYMORPHIC-FUNCTIONS::WARNINGS
;               (FORMAT NIL "~{~A~^~%~}" #)
;               NIL))))
; 
; caught STYLE-WARNING:
;   The variable LAMBDA-FORM is defined but never used.

;     (IF POLYMORPHIC-FUNCTIONS::WARNINGS
;         (FORMAT NIL "~{~A~^~%~}" (NREVERSE POLYMORPHIC-FUNCTIONS::WARNINGS))
;         NIL)
; 
; note: deleting unreachable code
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=1654064 "main thread" RUNNING {1200F08003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "polymorphic-functions" "dispatch">

Backtrace for: #<SB-THREAD:THREAD tid=1654064 "main thread" RUNNING {1200F08003}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120D695CD3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120D695CD3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120D695CD3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "polymorphic-functions" "dispatch">)))
4: (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 "polymorphic-functions" "dispatch">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "polymorphic-functions" "dispatch">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "polymorphic-functions" "dispatch">) [fast-method]
8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "polymorphic-functions" "dispatch">) [fast-method]
9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12045B7333}>) [fast-method]
10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12045B7333}>) [fast-method]
12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "polymorphic-functions/specializing"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "polymorphic-functions/specializing">)
14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "polymorphic-functions/specializing">) [fast-method]
16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "polymorphic-functions/specializing")
17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "polymorphic-functions/specializing") [fast-method]
19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12045D636B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120459530B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "polymorphic-functions/specializing") [fast-method]
23: (DEPCHECK::COMPUTE-DEPENDENCIES "polymorphic-functions" "polymorphic-functions/specializing")
24: (DEPCHECK::MAGIC "polymorphic-functions" "polymorphic-functions/specializing" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DnhAfDsU/depcheck-win.txt")
25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "polymorphic-functions" "polymorphic-functions/specializing" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DnhAfDsU/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DnhAfDsU/depcheck-fail.txt"))
26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
28: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
29: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note

polymorphic-functions

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/polymorphic-functions/8c53f4650e1b9c8b37b75d04eed3ad65a1a21d85/polymorphic-functions-20250710-git/src/nonlite/dispatch.lisp
; in: DEFUN NULL-ENV-COMPILATION-WARNINGS
;     (POLYMORPHIC-FUNCTIONS::WITH-MUFFLED-COMPILATION-WARNINGS
;       (HANDLER-BIND ((WARNING (LAMBDA # # #)))
;         (COMPILE NIL
;                  (ECASE (FIRST POLYMORPHIC-FUNCTIONS::LAMBDA-FORM)
;                    (LAMBDA POLYMORPHIC-FUNCTIONS::LAMBDA-FORM)))))
; --> LET 
; ==>
;   (LET ((SB-C::*IN-COMPILATION-UNIT* NIL) (*COMPILE-VERBOSE* NIL))
;     (PROGN
;      (HANDLER-BIND ((WARNING #))
;        (COMPILE NIL (ECASE # #)))))
; 
; caught ERROR:
;   Lock on package SB-C violated when lexically binding global symbol-macro *IN-COMPILATION-UNIT* in LET while in package POLYMORPHIC-FUNCTIONS.
;   See also:
;     The SBCL Manual, Node "Package Locks"

;     (DEFUN POLYMORPHIC-FUNCTIONS::NULL-ENV-COMPILATION-WARNINGS
;            (POLYMORPHIC-FUNCTIONS::LAMBDA-FORM)
;       (LET* ((POLYMORPHIC-FUNCTIONS::WARNINGS))
;         (POLYMORPHIC-FUNCTIONS::WITH-MUFFLED-COMPILATION-WARNINGS
;           (HANDLER-BIND (#)
;             (COMPILE NIL #)))
;         (IF POLYMORPHIC-FUNCTIONS::WARNINGS
;             (FORMAT NIL "~{~A~^~%~}" (NREVERSE POLYMORPHIC-FUNCTIONS::WARNINGS))
;             NIL)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA POLYMORPHIC-FUNCTIONS::NULL-ENV-COMPILATION-WARNINGS
;         (POLYMORPHIC-FUNCTIONS::LAMBDA-FORM)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK POLYMORPHIC-FUNCTIONS::NULL-ENV-COMPILATION-WARNINGS
;         (LET* ((POLYMORPHIC-FUNCTIONS::WARNINGS))
;           (POLYMORPHIC-FUNCTIONS::WITH-MUFFLED-COMPILATION-WARNINGS
;             (HANDLER-BIND #
;               #))
;           (IF POLYMORPHIC-FUNCTIONS::WARNINGS
;               (FORMAT NIL "~{~A~^~%~}" #)
;               NIL))))
; 
; caught STYLE-WARNING:
;   The variable LAMBDA-FORM is defined but never used.

;     (IF POLYMORPHIC-FUNCTIONS::WARNINGS
;         (FORMAT NIL "~{~A~^~%~}" (NREVERSE POLYMORPHIC-FUNCTIONS::WARNINGS))
;         NIL)
; 
; note: deleting unreachable code
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=1654068 "main thread" RUNNING {1200F08003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "polymorphic-functions" "dispatch">

Backtrace for: #<SB-THREAD:THREAD tid=1654068 "main thread" RUNNING {1200F08003}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1208F5FDB3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1208F5FDB3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1208F5FDB3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "polymorphic-functions" "dispatch">)))
4: (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 "polymorphic-functions" "dispatch">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "polymorphic-functions" "dispatch">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "polymorphic-functions" "dispatch">) [fast-method]
8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "polymorphic-functions" "dispatch">) [fast-method]
9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12045AF393}>) [fast-method]
10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12045AF393}>) [fast-method]
12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "polymorphic-functions"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "polymorphic-functions">)
14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "polymorphic-functions">) [fast-method]
16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "polymorphic-functions")
17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "polymorphic-functions") [fast-method]
19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12045D374B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120459A74B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "polymorphic-functions") [fast-method]
23: (DEPCHECK::COMPUTE-DEPENDENCIES "polymorphic-functions" "polymorphic-functions")
24: (DEPCHECK::MAGIC "polymorphic-functions" "polymorphic-functions" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gKJxOetK/depcheck-win.txt")
25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "polymorphic-functions" "polymorphic-functions" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gKJxOetK/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gKJxOetK/depcheck-fail.txt"))
26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
28: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
29: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note