search

guicho271828 / trivia

Pattern Matcher Compatible with Optima
Other
335 stars 22 forks source link

compile error on Lispworks 6.0.1 Windows #107

Closed franksmuc closed 5 years ago

franksmuc commented 5 years ago

Trivia does not compile on Lispworks 6.0.1 for Windows

**++++ Error in TRIVIA.LEVEL2.IMPL::UNARY-FUNCTION-P: The type specifier (FUNCTION (LIST &KEY &ALLOW-OTHER-KEYS) LIST) cannot be used for discrimination.

By the way: Lispworks has a function lw:function-lambda-list http://www.lispworks.com/documentation/lw60/LW/html/lw-869.htm

guicho271828 commented 5 years ago

can you show me the complete stack trace? I don't have any windows machine. (LW either)

franksmuc commented 5 years ago

CL-USER 1 > (ql:quickload :trivia) To load "trivia": Load 1 ASDF system: trivia ; Loading "trivia" On Lispworks, we cannot add method to DESCRIBE-OBJECT, so you cannot enjoy extended documentations for various namespaces.

**++++ Error in TRIVIA.LEVEL2.IMPL::UNARY-FUNCTION-P: The type specifier (FUNCTION (LIST &KEY &ALLOW-OTHER-KEYS) LIST) cannot be used for discrimination. ; *** 1 error detected, no fasl file produced.

Error: COMPILE-FILE-ERROR while compiling

<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">

1 (continue) Retry compiling

<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">.

2 Continue, treating compiling

<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">

as having been successful.

3 Retry ASDF operation. 4 Retry ASDF operation after resetting the configuration. 5 (abort) Give up on "trivia" 6 Return to level 0. 7 Return to top loop level 0.

Backtrace:

<The COMMON-LISP-USER package, 50/64 internal, 0/4 external>

<MP:PROCESS Name "CAPI Execution Listener 1" Priority 0 State "Running">

Condition: COMPILE-FILE-ERROR while compiling

<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">

Call to ERROR (offset 67) SYSTEM::ESTRING : UIOP/LISP-BUILD:COMPILE-FILE-ERROR SYSTEM::EARGS : (:CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">)))

Call to UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS (offset 92) UIOP/LISP-BUILD::OUTPUT : NIL UIOP/LISP-BUILD::WARNINGS-P : ((TRIVIA.LEVEL2.IMPL::ACCESSOR-FORM-ON-BUILT-IN-CLASS #<CONDITIONS::SIMPLE-STYLE-WARNING 24715337>) (TRIVIA.LEVEL2.IMPL::UNARY-FUNCTION-P #<SIMPLE-ERROR 2476A897>)) UIOP/LISP-BUILD::FAILURE-P : T UIOP/LISP-BUILD::CONTEXT-FORMAT : "~/asdf-action::format-action/" UIOP/LISP-BUILD::CONTEXT-ARGUMENTS : ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">))

Binding frame: CLOS::NEXT-METHODS : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 117)

Call to CLOS::CACHE-MISS-FUNCTION (offset 311) CLOS::ARGS : (#<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">) CLOS::.CACHE-INFO. {Closed} : #<CLOS::CACHE-INFO ASDF/ACTION:PERFORM [128/4] > CLOS::.GF. {Closed} : #<STANDARD-GENERIC-FUNCTION ASDF/ACTION:PERFORM 23F57BDA>

Binding frame: CLOS::NEXT-METHODS : (#<Function (METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (T T)) 23F58262>)

Call to CLOS::NEXT-METHOD-CALL-2 (offset 95) CONS : (METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) CLOS::NEXT-METHODS : (#<Function (METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (T T)) 23F58262>)

:G201302 : #<ASDF/LISP-ACTION:COMPILE-OP >

:G201305 : #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">

Restart frame: (ABORT) Catch frame: ((METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) . RESTART-CASE)

Catch frame: ((METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) . 2)

Catch frame: ((METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) . 1)

Call to (METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) (offset 422) ASDF/OPERATION:OPERATION {Closing} : #<ASDF/LISP-ACTION:COMPILE-OP > ASDF/COMPONENT:COMPONENT {Closing} : #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class"> DBG::G : (#<Function (METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (T T)) 23F58262>) DBG::G : ((METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) . RESTART-CASE) DBG::G : #<Closure 2 subfunction of (METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) 45FDC3A> DBG::G : #<Closure 1 subfunction of (METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) 45FDC22> CONDITIONS::RESTART-CLUSTERS {Special} : ((#<RESTART ABORT 45FD4D7>) (#<RESTART ABORT 45FD797>) (#<RESTART ASDF/CACHE:RETRY 200C2B07> #<RESTART ASDF/ACTION:ACCEPT 200C2AAF>) (#<RESTART ASDF/CACHE:RETRY 200C2A4B> #<RESTART ASDF/CACHE:CLEAR-CONFIGURATION-AND-RETRY 200CA74B>) (#<RESTART ABORT 200CA6FB>) (#<RESTART ABORT 200CA697>) (#<RESTART ABORT 200CA61F>) (#<RESTART ABORT 24416A13>))

Binding frame: CLOS::NEXT-METHODS : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 68)

Call to CLOS::CACHE-MISS-FUNCTION (offset 311) CLOS::ARGS : (#<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class">) CLOS::.CACHE-INFO. {Closed} : #<CLOS::CACHE-INFO ASDF/ACTION:PERFORM-WITH-RESTARTS [128/4] > CLOS::.GF. {Closed} : #<STANDARD-GENERIC-FUNCTION ASDF/ACTION:PERFORM-WITH-RESTARTS 23F57BC2>

Call to (METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) (offset 199) ASDF/PLAN::STEPS : ((#6=#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/SYSTEM:SYSTEM "alexandria">) (#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #7=#<ASDF/SYSTEM:SYSTEM #2="trivia.level0">) (#1# . #3=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "package">) (#4=#<ASDF/LISP-ACTION:LOAD-OP > . #3#) (#1# . #5=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "impl">) (#4# . #5#) (#6# . #7#) (#4# . #7#) (#1# . #11=#<ASDF/SYSTEM:SYSTEM #8="trivia.level1">) (#1# . #9=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #8# "package">) (#4# . #9#) (#1# . #10=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #8# "impl">) (#4# . #10#) (#6# . #11#) (#4# . #11#) (#1# . #18=#<ASDF/SYSTEM:SYSTEM #12="lisp-namespace">) (#1# . #17=#<ASDF/COMPONENT:MODULE #12# #13="src">) (#1# . #14=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "package">) (#4# . #14#) (#1# . #15=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "namespace">) (#4# . #15#) (#1# . #16=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "namespace-let">) (#4# . #16#) (#6# . #17#) (#4# . #17#) (#6# . #18#) (#4# . #18#) (#1# . #30=#<ASDF/SYSTEM:SYSTEM #19="trivia.level2">) (#1# . #20=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "package">) (#4# . #20#) (#1# . #21=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "impl">) (#4# . #21#) (#1# . #22=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "sugars">) (#4# . #22#) (#1# . #23=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived">) (#4# . #23#) (#1# . #24=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived-class">) (#6# . #24#) (#4# . #24#) (#1# . #25=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived2">) (#6# . #25#) (#4# . #25#) (#1# . #26=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived3">) (#6# . #26#) (#4# . #26#) (#1# . #27=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived-numbers">) (#6# . #27#) (#4# . #27#) (#1# . #28=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "arrays">) (#6# . #28#) (#4# . #28#) (#1# . #29=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "inline-pattern">) (#6# . #29#) (#4# . #29#) (#6# . #30#) (#4# . #30#) (#<ASDF/LISP-ACTION:PREPARE-OP > . #31=#<ASDF/SYSTEM:SYSTEM "trivia">) (#<ASDF/LISP-ACTION:COMPILE-OP > . #31#) (#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> . #31#)) DBG::G : :DONT-KNOW ASDF/PLAN::FORCE : NIL ASDF/PLAN::O : #<ASDF/LISP-ACTION:COMPILE-OP > ASDF/PLAN::C : #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivia.level2" "derived-class"> DBG::|tail-| : ((#3=#<ASDF/LISP-ACTION:LOAD-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE #1="trivia.level2" "derived-class">) (#4=#<ASDF/LISP-ACTION:PREPARE-OP > . #2=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #1# "derived2">) (#5=#<ASDF/LISP-ACTION:COMPILE-OP > . #2#) (#3# . #2#) (#4# . #6=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #1# "derived3">) (#5# . #6#) (#3# . #6#) (#4# . #7=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #1# "derived-numbers">) (#5# . #7#) (#3# . #7#) (#4# . #8=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #1# "arrays">) (#5# . #8#) (#3# . #8#) (#4# . #9=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #1# "inline-pattern">) (#5# . #9#) (#3# . #9#) (#5# . #10=#<ASDF/SYSTEM:SYSTEM #1#>) (#3# . #10#) (#<ASDF/LISP-ACTION:PREPARE-OP > . #11=#<ASDF/SYSTEM:SYSTEM "trivia">) (#<ASDF/LISP-ACTION:COMPILE-OP > . #11#) (#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> . #11#)) SYSTEM::%%LOOP-IT-VARIABLE%% : T

Binding frame: CLOS::NEXT-METHODS : (#<Function (METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) 23EB68DA>)

Call to CLOS::NEXT-METHOD-CALL-2 (offset 95) CONS : (METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) CLOS::NEXT-METHODS : (#<Function (METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) 23EB68DA>)

:G201302 : ((#6=#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/SYSTEM:SYSTEM "alexandria">) (#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #7=#<ASDF/SYSTEM:SYSTEM #2="trivia.level0">) (#1# . #3=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "package">) (#4=#<ASDF/LISP-ACTION:LOAD-OP > . #3#) (#1# . #5=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "impl">) (#4# . #5#) (#6# . #7#) (#4# . #7#) (#1# . #11=#<ASDF/SYSTEM:SYSTEM #8="trivia.level1">) (#1# . #9=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #8# "package">) (#4# . #9#) (#1# . #10=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #8# "impl">) (#4# . #10#) (#6# . #11#) (#4# . #11#) (#1# . #18=#<ASDF/SYSTEM:SYSTEM #12="lisp-namespace">) (#1# . #17=#<ASDF/COMPONENT:MODULE #12# #13="src">) (#1# . #14=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "package">) (#4# . #14#) (#1# . #15=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "namespace">) (#4# . #15#) (#1# . #16=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "namespace-let">) (#4# . #16#) (#6# . #17#) (#4# . #17#) (#6# . #18#) (#4# . #18#) (#1# . #30=#<ASDF/SYSTEM:SYSTEM #19="trivia.level2">) (#1# . #20=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "package">) (#4# . #20#) (#1# . #21=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "impl">) (#4# . #21#) (#1# . #22=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "sugars">) (#4# . #22#) (#1# . #23=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived">) (#4# . #23#) (#1# . #24=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived-class">) (#6# . #24#) (#4# . #24#) (#1# . #25=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived2">) (#6# . #25#) (#4# . #25#) (#1# . #26=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived3">) (#6# . #26#) (#4# . #26#) (#1# . #27=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived-numbers">) (#6# . #27#) (#4# . #27#) (#1# . #28=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "arrays">) (#6# . #28#) (#4# . #28#) (#1# . #29=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "inline-pattern">) (#6# . #29#) (#4# . #29#) (#6# . #30#) (#4# . #30#) (#<ASDF/LISP-ACTION:PREPARE-OP > . #31=#<ASDF/SYSTEM:SYSTEM "trivia">) (#<ASDF/LISP-ACTION:COMPILE-OP > . #31#) (#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> . #31#))

:G201305 : (:VERBOSE NIL)

Binding frame: COMPILER::INSIDE-COMPILATION-UNIT : T

Binding frame: COMPILER::UNKNOWN-FUNCTIONS : #<EQ Hash Table{1} 24423BB3>

Call to COMPILER::DO-COMPILATION-UNIT (offset 80) COMPILER::CONTINUATION : #<Closure 1 subfunction of (METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) 244238CA> COMPILER::DO-MESSAGES : NIL COMPILER::SUMMARIZE : NIL

Binding frame: COMPILER::INITIAL-COMPILATION-ENVIRONMENT : NIL

Call to COMPILER::WITH-COMPILATION-UNIT-INTERNAL (offset 280) COMPILER::CONTINUATION : #<Closure 1 subfunction of (METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) 244238CA> COMPILER::OVERRIDE : NIL COMPILER::SUMMARIZE : NIL COMPILER::ENVIRONMENT : NIL

Binding frame: PACKAGE : #<The COMMON-LISP-USER package, 50/64 internal, 0/4 external> READTABLE : #<NAMED-READTABLE :CURRENT 20A66117>

Call to (METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) (offset 270) ASDF/PLAN:PLAN {Closing} : ((#6=#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/SYSTEM:SYSTEM "alexandria">) (#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #7=#<ASDF/SYSTEM:SYSTEM #2="trivia.level0">) (#1# . #3=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "package">) (#4=#<ASDF/LISP-ACTION:LOAD-OP > . #3#) (#1# . #5=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "impl">) (#4# . #5#) (#6# . #7#) (#4# . #7#) (#1# . #11=#<ASDF/SYSTEM:SYSTEM #8="trivia.level1">) (#1# . #9=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #8# "package">) (#4# . #9#) (#1# . #10=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #8# "impl">) (#4# . #10#) (#6# . #11#) (#4# . #11#) (#1# . #18=#<ASDF/SYSTEM:SYSTEM #12="lisp-namespace">) (#1# . #17=#<ASDF/COMPONENT:MODULE #12# #13="src">) (#1# . #14=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "package">) (#4# . #14#) (#1# . #15=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "namespace">) (#4# . #15#) (#1# . #16=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #12# #13# "namespace-let">) (#4# . #16#) (#6# . #17#) (#4# . #17#) (#6# . #18#) (#4# . #18#) (#1# . #30=#<ASDF/SYSTEM:SYSTEM #19="trivia.level2">) (#1# . #20=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "package">) (#4# . #20#) (#1# . #21=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "impl">) (#4# . #21#) (#1# . #22=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "sugars">) (#4# . #22#) (#1# . #23=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived">) (#4# . #23#) (#1# . #24=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived-class">) (#6# . #24#) (#4# . #24#) (#1# . #25=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived2">) (#6# . #25#) (#4# . #25#) (#1# . #26=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived3">) (#6# . #26#) (#4# . #26#) (#1# . #27=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "derived-numbers">) (#6# . #27#) (#4# . #27#) (#1# . #28=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "arrays">) (#6# . #28#) (#4# . #28#) (#1# . #29=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #19# "inline-pattern">) (#6# . #29#) (#4# . #29#) (#6# . #30#) (#4# . #30#) (#<ASDF/LISP-ACTION:PREPARE-OP > . #31=#<ASDF/SYSTEM:SYSTEM "trivia">) (#<ASDF/LISP-ACTION:COMPILE-OP > . #31#) (#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> . #31#)) DBG::G {Closing} : (:VERBOSE NIL) DBG::G {Closing} : (#<Function (METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) 23EB68DA>) PACKAGE {Special} : #<The COMMON-LISP-USER package, 50/64 internal, 0/4 external> READTABLE {Special} : #<NAMED-READTABLE :CURRENT 20A66117>

Binding frame: CLOS::NEXT-METHODS : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 68)

Binding frame: CLOS::NEXT-METHODS : (#<Function (METHOD ASDF/PLAN:PERFORM-PLAN (T)) 23EB6422>)

Call to CLOS::NEXT-METHOD-CALL-2 (offset 95) CONS : (METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) CLOS::NEXT-METHODS : (#<Function (METHOD ASDF/PLAN:PERFORM-PLAN (T)) 23EB6422>)

:G201302 : #<ASDF/PLAN:SEQUENTIAL-PLAN 2070DFFB>

:G201305 : (:VERBOSE NIL)

Binding frame: COMPILER::INSIDE-COMPILATION-UNIT : NIL

Binding frame: COMPILER::UNKNOWN-FUNCTIONS : NIL

Call to COMPILER::DO-COMPILATION-UNIT (offset 80) COMPILER::CONTINUATION : #<Closure 1 subfunction of (METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) 244238E2> COMPILER::DO-MESSAGES : T COMPILER::SUMMARIZE : NIL

Binding frame: COMPILER::COMPILATION-UNIT-PATHNAMES : NIL

Binding frame: COMPILER::INITIAL-COMPILATION-ENVIRONMENT : NIL

Call to COMPILER::WITH-COMPILATION-UNIT-INTERNAL (offset 143) COMPILER::CONTINUATION : #<Closure 1 subfunction of (METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) 244238E2> COMPILER::OVERRIDE : NIL COMPILER::SUMMARIZE : NIL COMPILER::ENVIRONMENT : NIL

Binding frame: PACKAGE : #<The COMMON-LISP-USER package, 50/64 internal, 0/4 external> READTABLE : #<NAMED-READTABLE :CURRENT 20A66117>

Call to (METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) (offset 270) ASDF/PLAN:PLAN {Closing} : #<ASDF/PLAN:SEQUENTIAL-PLAN 2070DFFB> DBG::G {Closing} : (:VERBOSE NIL) DBG::G {Closing} : (#<Function (METHOD ASDF/PLAN:PERFORM-PLAN (T)) 23EB6422>) PACKAGE {Special} : #<The COMMON-LISP-USER package, 50/64 internal, 0/4 external> READTABLE {Special} : #<NAMED-READTABLE :CURRENT 20A66117>

Binding frame: CLOS::NEXT-METHODS : (#<Function (METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION T)) 23F58F42>)

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 68)

Call to (METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) (offset 60) ASDF/OPERATION:OPERATION : #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> ASDF/COMPONENT:COMPONENT : #<ASDF/SYSTEM:SYSTEM "trivia"> ASDF/OPERATE::KEYS : (:VERBOSE NIL) ASDF/OPERATE::PLAN-CLASS : NIL CLOS::.ISL. : :DONT-KNOW ASDF/PLAN:PLAN : #<ASDF/PLAN:SEQUENTIAL-PLAN 2070DFFB>

Binding frame: CLOS::NEXT-METHODS : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 161)

Binding frame: CLOS::NEXT-METHODS : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 2401E7F2>)

Call to CLOS::NEXT-METHOD-CALL-3 (offset 98) CONS : (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) CLOS::NEXT-METHODS : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 2401E7F2>)

:G201322 : #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL>

:G201325 : #<ASDF/SYSTEM:SYSTEM "trivia">

:G201328 : (:VERBOSE NIL)

Binding frame: UIOP/LISP-BUILD:COMPILE-FILE-FAILURE-BEHAVIOUR : :WARN

Binding frame: UIOP/LISP-BUILD:COMPILE-FILE-WARNINGS-BEHAVIOUR : :WARN

Binding frame: ASDF/UPGRADE:VERBOSE-OUT : NIL

Call to (SUBFUNCTION 2 (METHOD ASDF/OPERATE:OPERATE :AROUND (T T))) (offset 227) ASDF/UPGRADE:VERBOSE-OUT {Special} : NIL UIOP/LISP-BUILD:COMPILE-FILE-WARNINGS-BEHAVIOUR {Special} : :WARN UIOP/LISP-BUILD:COMPILE-FILE-FAILURE-BEHAVIOUR {Special} : :WARN ASDF/OPERATE::VERBOSE {Closed} : NIL ASDF/OPERATE::ON-FAILURE {Closed} : :WARN ASDF/COMPONENT:COMPONENT {Closed} : #<ASDF/SYSTEM:SYSTEM "trivia"> DBG::G {Closed} : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 2401E7F2>) ASDF/OPERATION:OPERATION {Closed} : #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> ASDF/OPERATE::KEYS {Closed} : (:VERBOSE NIL) ASDF/OPERATE::ON-WARNINGS {Closed} : :WARN

Call to ASDF/CACHE:CALL-WITH-ASDF-CACHE (offset 550) ASDF/CACHE::THUNK {Closing} : #<Closure 2 subfunction of (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) 2070DD02> ASDF/CACHE::OVERRIDE : NIL ASDF/CACHE::KEY {Closing} : NIL ASDF/CACHE::FUN : #<Closure 2 subfunction of (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) 2070DD02>

Binding frame: ASDF/OPERATE:SYSTEMS-BEING-OPERATED : #<EQUAL Hash Table{2} 24426D77>

Call to (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) (offset 705) ASDF/OPERATION:OPERATION {Closing} : #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> ASDF/COMPONENT:COMPONENT {Closing} : #<ASDF/SYSTEM:SYSTEM "trivia"> ASDF/OPERATE::KEYS {Closing} : (:VERBOSE NIL) ASDF/OPERATE::VERBOSE {Closing} : NIL ASDF/OPERATE::ON-WARNINGS {Closing} : :WARN ASDF/OPERATE::ON-FAILURE {Closing} : :WARN DBG::G {Closing} : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 2401E7F2>) ASDF/OPERATE::SYSTEMS-BEING-OPERATED : #<EQUAL Hash Table{2} 24426D77> ASDF/OPERATE:SYSTEMS-BEING-OPERATED {Special} : #<EQUAL Hash Table{2} 24426D77> ASDF/OPERATE::OPERATION-REMAKER : #<Closure 1 subfunction of (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) 45FE0A2> ASDF/OPERATE::COMPONENT-PATH : ("trivia")

Binding frame: CLOS::NEXT-METHODS : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 71)

Binding frame: CLOS::NEXT-METHODS : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 116)

Binding frame: CLOS::NEXT-METHODS : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 23F59B52>)

Call to CLOS::NEXT-METHOD-CALL-3 (offset 98) CONS : (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) CLOS::NEXT-METHODS : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 23F59B52>)

:G201322 : ASDF/LISP-ACTION:LOAD-OP

:G201325 : "trivia"

:G201328 : (:VERBOSE NIL)

Binding frame: UIOP/LISP-BUILD:COMPILE-FILE-FAILURE-BEHAVIOUR : :WARN

Binding frame: UIOP/LISP-BUILD:COMPILE-FILE-WARNINGS-BEHAVIOUR : :WARN

Binding frame: ASDF/UPGRADE:VERBOSE-OUT : NIL

Call to (SUBFUNCTION 2 (METHOD ASDF/OPERATE:OPERATE :AROUND (T T))) (offset 227) ASDF/UPGRADE:VERBOSE-OUT {Special} : NIL UIOP/LISP-BUILD:COMPILE-FILE-WARNINGS-BEHAVIOUR {Special} : :WARN UIOP/LISP-BUILD:COMPILE-FILE-FAILURE-BEHAVIOUR {Special} : :WARN ASDF/OPERATE::VERBOSE {Closed} : NIL ASDF/OPERATE::ON-FAILURE {Closed} : :WARN ASDF/COMPONENT:COMPONENT {Closed} : "trivia" DBG::G {Closed} : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 23F59B52>) ASDF/OPERATION:OPERATION {Closed} : ASDF/LISP-ACTION:LOAD-OP ASDF/OPERATE::KEYS {Closed} : (:VERBOSE NIL) ASDF/OPERATE::ON-WARNINGS {Closed} : :WARN

Binding frame: ASDF/CACHE:ASDF-CACHE : NIL

Restart frame: (ASDF/CACHE:RETRY ASDF/CACHE:CLEAR-CONFIGURATION-AND-RETRY) Catch frame: (ASDF/CACHE:CALL-WITH-ASDF-CACHE . RESTART-CASE)

Catch frame: (ASDF/CACHE:CALL-WITH-ASDF-CACHE . 2)

Catch frame: (ASDF/CACHE:CALL-WITH-ASDF-CACHE . 1)

Call to ASDF/CACHE:CALL-WITH-ASDF-CACHE (offset 506) ASDF/CACHE::THUNK {Closing} : #<Closure 2 subfunction of (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) 24421A1A> ASDF/CACHE::OVERRIDE : NIL ASDF/CACHE::KEY {Closing} : NIL ASDF/CACHE::FUN : #<Closure 2 subfunction of (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) 24421A1A> DBG::G : (ASDF/CACHE:CALL-WITH-ASDF-CACHE . RESTART-CASE) DBG::G : #<Function 3 subfunction of ASDF/CACHE:CALL-WITH-ASDF-CACHE 23F5BADA> DBG::G : #<Function 2 subfunction of ASDF/CACHE:CALL-WITH-ASDF-CACHE 23F5BA8A> CONDITIONS::RESTART-CLUSTERS {Special} : ((#<RESTART ASDF/CACHE:RETRY 200C2A4B> #<RESTART ASDF/CACHE:CLEAR-CONFIGURATION-AND-RETRY 200CA74B>) (#<RESTART ABORT 200CA6FB>) (#<RESTART ABORT 200CA697>) (#<RESTART ABORT 200CA61F>) (#<RESTART ABORT 24416A13>)) ASDF/CACHE:ASDF-CACHE {Special} : #<EQUAL Hash Table{643} 24431967>

Binding frame: ASDF/OPERATE:SYSTEMS-BEING-OPERATED : #<EQUAL Hash Table{2} 24426D77>

Call to (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) (offset 705) ASDF/OPERATION:OPERATION {Closing} : ASDF/LISP-ACTION:LOAD-OP ASDF/COMPONENT:COMPONENT {Closing} : "trivia" ASDF/OPERATE::KEYS {Closing} : (:VERBOSE NIL) ASDF/OPERATE::VERBOSE {Closing} : NIL ASDF/OPERATE::ON-WARNINGS {Closing} : :WARN ASDF/OPERATE::ON-FAILURE {Closing} : :WARN DBG::G {Closing} : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 23F59B52>) ASDF/OPERATE::SYSTEMS-BEING-OPERATED : #<EQUAL Hash Table{2} 24426D77> ASDF/OPERATE:SYSTEMS-BEING-OPERATED {Special} : #<EQUAL Hash Table{2} 24426D77> ASDF/OPERATE::OPERATION-REMAKER : #<Closure 1 subfunction of SYSTEM::CONSTANTLY-AUX 24421A32> ASDF/OPERATE::COMPONENT-PATH : "trivia"

Binding frame: CLOS::NEXT-METHODS : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 23F59B52>)

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 71)

Binding frame: ASDF/OPERATE:SYSTEMS-BEING-OPERATED : NIL

Call to (METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) (offset 994) ASDF/OPERATION:OPERATION {Closing} : ASDF/LISP-ACTION:LOAD-OP ASDF/COMPONENT:COMPONENT {Closing} : "trivia" ASDF/OPERATE::KEYS {Closing} : (:VERBOSE NIL) ASDF/OPERATE::VERBOSE {Closing} : NIL ASDF/OPERATE::ON-WARNINGS {Closing} : :WARN ASDF/OPERATE::ON-FAILURE {Closing} : :WARN DBG::G {Closing} : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE 23F59B52>) ASDF/OPERATE::SYSTEMS-BEING-OPERATED : NIL ASDF/OPERATE:SYSTEMS-BEING-OPERATED {Special} : #<EQUAL Hash Table{2} 24426D77> ASDF/OPERATE::OPERATION-REMAKER : #<Closure 1 subfunction of SYSTEM::CONSTANTLY-AUX 244220C2> ASDF/OPERATE::COMPONENT-PATH : "trivia"

Binding frame: CLOS::NEXT-METHODS : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 71)

Call to CLOS::CACHE-MISS-FUNCTION (offset 311) CLOS::ARGS : (ASDF/LISP-ACTION:LOAD-OP "trivia" (:VERBOSE NIL)) CLOS::.CACHE-INFO. {Closed} : #<CLOS::CACHE-INFO ASDF/OPERATE:OPERATE [16/4] > CLOS::.GF. {Closed} : #<STANDARD-GENERIC-FUNCTION ASDF/OPERATE:OPERATE 23F58402>

Call to ASDF/OPERATE:LOAD-SYSTEM (offset 88) ASDF/SYSTEM:SYSTEM : "trivia" ASDF/OPERATE::KEYS : (:VERBOSE NIL) ASDF/OPERATE::FORCE : :DONT-KNOW ASDF/OPERATE::FORCE-NOT : :DONT-KNOW ASDF/OPERATE::VERBOSE : :DONT-KNOW ASDF/COMPONENT:VERSION : :DONT-KNOW

Binding frame: MACROEXPAND-HOOK : FUNCALL QUICKLISP-CLIENT::MACROEXPAND-PROGRESS-IN-PROGRESS : NIL

Call to QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS (offset 244) QUICKLISP-CLIENT::FUN : #<Closure 1 subfunction of QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY 244220DA> MACROEXPAND-HOOK {Special} : #<Closure 1 subfunction of QUICKLISP-CLIENT::MACROEXPAND-PROGRESS-FUN 24405152> QUICKLISP-CLIENT::MACROEXPAND-PROGRESS-IN-PROGRESS {Special} : T

Handler frame: ((DSPEC::DESTRUCTURING-ERROR . #<Closure 1 subfunction of (SYSTEM:DEFINE-TOP-LOOP-COMMAND :BUG-FORM) 45FD3FA>)) Catch frame: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES . 1)

Catch frame: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES . 2)

Catch frame: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES . 1)

Restart frame: (ABORT) Catch frame: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES . RESTART-CASE)

Catch frame: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES . 1)

Call to QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES (offset 779) QL-DIST:NAME {Closing} : "trivia" QUICKLISP-CLIENT::PROMPT : NIL DBG::G : (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES . RESTART-CASE) DBG::G : #<Closure 1 subfunction of QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES 45FE61A> CONDITIONS::RESTART-CLUSTERS {Special} : ((#<RESTART ABORT 200CA6FB>) (#<RESTART ABORT 200CA697>) (#<RESTART ABORT 200CA61F>) (#<RESTART ABORT 24416A13>)) QUICKLISP-CLIENT::STRATEGY : #<QUICKLISP-CLIENT::LOAD-STRATEGY "trivia" (1 asdf, 0 quicklisp)> QUICKLISP-CLIENT::TRIED-SO-FAR : #<EQUALP Hash Table{0} 24426917> DBG::G {Closing} : NIL DBG::G : #<Closure 4 subfunction of QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES 244050F2> DBG::G : #<Closure 3 subfunction of QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES 45FE562> CONDITIONS::HANDLER-CLUSTERS {Special} : (((DSPEC::DESTRUCTURING-ERROR . #<Closure 1 subfunction of (SYSTEM:DEFINE-TOP-LOOP-COMMAND :BUG-FORM) 45FD3FA>)) ((ASDF/FIND-COMPONENT:MISSING-DEPENDENCY-OF-VERSION . #<Closure 4 subfunction of QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES 244050F2>) (ASDF/FIND-COMPONENT:MISSING-DEPENDENCY . #<Closure 3 subfunction of QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES 45FE562>)) ((WARNING . #<Function MUFFLE-WARNING 20949572>)) ((ERROR . #<Closure 1 subfunction of CAPI::INTERACTIVE-PANE-TOP-LOOP 45FEE32>)))

Handler frame: ((WARNING . #<Function MUFFLE-WARNING 20949572>)) Binding frame: LOAD-VERBOSE : T COMPILE-VERBOSE : T LOAD-PRINT : NIL COMPILE-PRINT : 1

Call to (METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)) (offset 298)

:%IMPLEMENTATION : #<QL-IMPL:LISPWORKS 218320C3>

QL-IMPL-UTIL::FUN : #<Closure QUICKLISP-CLIENT::QL subfunction of (METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) 20711A6A> LOAD-VERBOSE {Special} : NIL COMPILE-VERBOSE {Special} : NIL LOAD-PRINT {Special} : NIL COMPILE-PRINT {Special} : NIL DBG::G : #<Function MUFFLE-WARNING 20949572> CONDITIONS::HANDLER-CLUSTERS {Special} : (((WARNING . #<Function MUFFLE-WARNING 20949572>)) ((ERROR . #<Closure 1 subfunction of CAPI::INTERACTIVE-PANE-TOP-LOOP 45FEE32>)))

Call to CLOS::CACHE-MISS-FUNCTION (offset 311) CLOS::ARGS : (#<QL-IMPL:LISPWORKS 218320C3> #<Closure QUICKLISP-CLIENT::QL subfunction of (METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) 20711A6A>) CLOS::.CACHE-INFO. {Closed} : #<CLOS::CACHE-INFO QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION [8/2] > CLOS::.GF. {Closed} : #<STANDARD-GENERIC-FUNCTION QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION 217CAA5A>

Binding frame: STANDARD-OUTPUT : #<EDITOR::RUBBER-STREAM #<EDITOR:BUFFER CAPI interactive-pane 2> 240ABF23> TRACE-OUTPUT : #<EDITOR::RUBBER-STREAM #<EDITOR:BUFFER CAPI interactive-pane 2> 240ABF23>

Call to (METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) (offset 642) QUICKLISP-CLIENT::SYSTEMS : (:TRIVIA) DBG::G : :DONT-KNOW QUICKLISP-CLIENT::PROMPT {Closing} : NIL QUICKLISP-CLIENT::SILENT : NIL QUICKLISP-CLIENT::VERBOSE : NIL STANDARD-OUTPUT {Special} : #<EDITOR::RUBBER-STREAM #<EDITOR:BUFFER CAPI interactive-pane 2> 240ABF23> TRACE-OUTPUT {Special} : #<EDITOR::RUBBER-STREAM #<EDITOR:BUFFER CAPI interactive-pane 2> 240ABF23> DBG::|dolist-| : (:TRIVIA) QUICKLISP-CLIENT::THING {Closing} : :TRIVIA DBG::|internal-flet-name-for-QL| : #<Closure QUICKLISP-CLIENT::QL subfunction of (METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) 20711A6A>

Binding frame: CLOS::NEXT-METHODS : (#<Function (METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) 218B8E5A>)

Call to CLOS::NEXT-METHOD-CALL-2 (offset 95) CONS : (METHOD QUICKLISP-CLIENT:QUICKLOAD :AROUND (T)) CLOS::NEXT-METHODS : (#<Function (METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) 218B8E5A>)

:G201302 : :TRIVIA

:G201305 : NIL

Binding frame: QL-DIST:DIST-ENUMERATION-FUNCTIONS : (QL-DIST:STANDARD-DIST-ENUMERATION-FUNCTION)

Call to QL-DIST::CALL-WITH-CONSISTENT-DISTS (offset 86) QL-DIST::FUN : #<Closure 1 subfunction of (METHOD QUICKLISP-CLIENT:QUICKLOAD :AROUND (T)) 20711BBA> QL-DIST:ALL-DISTS : (#<QL-DIST:DIST quicklisp 2018-10-18>) QL-DIST:DIST-ENUMERATION-FUNCTIONS {Special} : (#<Closure 1 subfunction of SYSTEM::CONSTANTLY-AUX 20711A82>)

Binding frame: CLOS::NEXT-METHODS : NIL

Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 68)

Call to SYSTEM::%INVOKE (offset 521)

Call to SYSTEM::%EVAL (offset 144) EXP : (QUICKLISP-CLIENT:QUICKLOAD :TRIVIA)

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 <- MP::PROCESS-SG-FUNCTION <- SYSTEM::%%FIRST-CALL-TO-STACK

Generation 0: Total Size 1214K, Allocated 609K, Free 597K Segment 2008DB80: Total Size 507K, Allocated 350K, Free 152K minimum free space 64K, Awaiting promotion = 3K, sweeps before promotion =10 Segment 246EF3E8: Total Size 707K, Allocated 268K, Free 434K minimum free space 0K, Awaiting promotion = 46K, sweeps before promotion =2 Generation 1: Total Size 1397K, Allocated 1235K, Free 148K Segment 2070CB18: Total Size 68K, Allocated 64K, Free 0K minimum free space 3K, Awaiting promotion = 0K, sweeps before promotion =4 Segment 243CF3E8: Total Size 1088K, Allocated 1030K, Free 52K minimum free space 0K, Awaiting promotion = 0K, sweeps before promotion =4 Segment 200517E0: Total Size 240K, Allocated 140K, Free 95K minimum free space 0K, static Generation 2: Total Size 2180K, Allocated 50K, Free 2120K Segment 244DF3E8: Total Size 2112K, Allocated 0K, Free 2107K minimum free space 0K, Awaiting promotion = 0K, sweeps before promotion =4 Segment 20E6CB18: Total Size 68K, Allocated 50K, Free 13K minimum free space 117K, Awaiting promotion = 0K, sweeps before promotion =4 Generation 3: Total Size 68225K, Allocated 68085K, Free 128K Segment 2071DB90: Total Size 7483K, Allocated 7479K, Free 0K minimum free space 0K, Awaiting promotion = 0K, sweeps before promotion =10 Segment 20E7DB90: Total Size 54598K, Allocated 54465K, Free 128K minimum free space 0K, Awaiting promotion = 0K, sweeps before promotion =10 Segment 2010CB18: Total Size 6144K, Allocated 6139K, Free 0K minimum free space 3K, Awaiting promotion = 0K, sweeps before promotion =10

Total Size 73344K, Allocated 69981K, Free 2995K

guicho271828 commented 5 years ago

Testing lw:function-arg on lispworks branch. But I don't understand what is happening in the type inference. It looks like a type inference error, right?

guicho271828 commented 5 years ago

110

guicho271828 commented 5 years ago

Well, I don't have LW on Travis CI. Can you test LW by (asdf:test-system :trivia) on your machine?

franksmuc commented 5 years ago

There is the compiler error which makes asdf stop loading.

It is the function unary-function-p in level2/derivedclass.lisp

When I compile this function in the IDE and select "Edit the code where the error occurred" this portion is higlighted:

(match (function-lambda-expression fn)        (nil t)        (#+sbcl         (or #.(if (find-symbol "NAMED-LAMBDA" (find-package "SB-INT"))                   `(list ',(read-from-string "sb-int:named-lambda") (list ) _)                   (warn "failed to find named-lambda in sb-int"))             (list 'lambda (list ) ))         #-sbcl         (list* 'lambda (list ) )         t))

Macroexpand this:

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2 (FUNCTION-LAMBDA-EXPRESSION FN) (NIL T) ((LIST* 'LAMBDA (LIST ) ) T) (_ NIL))

Macroexpand again:

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2+ (FUNCTION-LAMBDA-EXPRESSION FN) T (NIL T) ((LIST* 'LAMBDA (LIST ) ) T) (_ NIL))

Macroexpand again:

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2+ ((FUNCTION-LAMBDA-EXPRESSION FN)) (T) ((NIL) T) (((LIST 'LAMBDA (LIST ) )) T) ((_) NIL))

Try macroexpand this form:

Error: The type specifier (FUNCTION (LIST &KEY &ALLOW-OTHER-KEYS) LIST) cannot be used for discrimination.

Digging further is above my level

Let me know what else I can do

On 13-Oct-19 03:29, Masataro Asai wrote:

Well, I don't have LW on Travis CI. Can you test LW by |(asdf:test-system :trivia)| on your machine?

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/guicho271828/trivia/issues/107?email_source=notifications&email_token=AGC3GSPQGWCTHMRUVDCDB7LQOJ2YVA5CNFSM4I2EOW4KYY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOEBCMARA#issuecomment-541376580, or unsubscribe https://github.com/notifications/unsubscribe-auth/AGC3GSMU2FKX2HXMTI6QOJTQOJ2YVANCNFSM4I2EOW4A.

franksmuc commented 5 years ago

I just saw your lispworks branch; the same procedure as explained in my previous email shows this:

(match (function-lambda-expression fn)        ;; When there is no information, trusts that the function binding is correct        (nil t)        ((list* lambda-list )         (lambda-list-unary-p lambda-list)))

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2 (FUNCTION-LAMBDA-EXPRESSION FN)   (NIL T)   ((LIST* LAMBDA-LIST ) (LAMBDA-LIST-UNARY-P LAMBDA-LIST))   (_ NIL))

---- Done ----

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2+ (FUNCTION-LAMBDA-EXPRESSION FN) T   (NIL T)   ((LIST* LAMBDA-LIST ) (LAMBDA-LIST-UNARY-P LAMBDA-LIST))   (_ NIL))

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2+ ((FUNCTION-LAMBDA-EXPRESSION FN)) (T)   ((NIL) T)   (((LIST LAMBDA-LIST )) (LAMBDA-LIST-UNARY-P LAMBDA-LIST))   ((_) NIL))

The type specifier (FUNCTION (LIST &KEY &ALLOW-OTHER-KEYS) LIST) cannot be used for discrimination.

On 13-Oct-19 22:59, Frank Schorr wrote:

There is the compiler error which makes asdf stop loading.

It is the function unary-function-p in level2/derivedclass.lisp

When I compile this function in the IDE and select "Edit the code where the error occurred" this portion is higlighted:

(match (function-lambda-expression fn)        (nil t)        (#+sbcl         (or #.(if (find-symbol "NAMED-LAMBDA" (find-package "SB-INT"))                   `(list ',(read-from-string "sb-int:named-lambda") (list ) _)                   (warn "failed to find named-lambda in sb-int"))             (list 'lambda (list ) ))         #-sbcl         (list* 'lambda (list ) )         t))

Macroexpand this:

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2 (FUNCTION-LAMBDA-EXPRESSION FN) (NIL T) ((LIST* 'LAMBDA (LIST ) ) T) (_ NIL))

Macroexpand again:

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2+ (FUNCTION-LAMBDA-EXPRESSION FN) T (NIL T) ((LIST* 'LAMBDA (LIST ) ) T) (_ NIL))

Macroexpand again:

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2+ ((FUNCTION-LAMBDA-EXPRESSION FN)) (T) ((NIL) T) (((LIST 'LAMBDA (LIST ) )) T) ((_) NIL))

Try macroexpand this form:

Error: The type specifier (FUNCTION (LIST &KEY &ALLOW-OTHER-KEYS) LIST) cannot be used for discrimination.

Digging further is above my level

Let me know what else I can do

On 13-Oct-19 03:29, Masataro Asai wrote:

Well, I don't have LW on Travis CI. Can you test LW by |(asdf:test-system :trivia)| on your machine?

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/guicho271828/trivia/issues/107?email_source=notifications&email_token=AGC3GSPQGWCTHMRUVDCDB7LQOJ2YVA5CNFSM4I2EOW4KYY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOEBCMARA#issuecomment-541376580, or unsubscribe https://github.com/notifications/unsubscribe-auth/AGC3GSMU2FKX2HXMTI6QOJTQOJ2YVANCNFSM4I2EOW4A.

guicho271828 commented 5 years ago

What now? (see @265845f )

franksmuc commented 5 years ago

derived-class compiles !

the next error is in  derived3.lisp

**++++ Error in (HARLEQUIN-COMMON-LISP:SUBFUNCTION (LABELS PARSE-AUX) PARSE-LAMBDA-LIST):   The type specifier (FUNCTION (LIST &KEY &ALLOW-OTHER-KEYS) LIST) cannot be used for discrimination.

Compilation aborted.

(ematch argv                  ((list* '&aux argv)                   (multiple-value-bind (argv rest) (take-while argv

'!lambda-list-keyword-p)

                    (when argv (push `(:aux ,@(mapcar #'ensure-list argv)) results))                     (ematch rest (nil))))                  (nil))

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2 ARGV   ((LIST '&AUX ARGV)    (MULTIPLE-VALUE-BIND (ARGV REST)        (TAKE-WHILE ARGV #'!LAMBDA-LIST-KEYWORD-P)      (WHEN ARGV (PUSH `(:AUX ,@(MAPCAR #'ENSURE-LIST ARGV)) RESULTS))      (EMATCH REST (NIL))))   (NIL)   (#:OTHERWISE3008    (ERROR 'MATCH-ERROR           :PATTERN           '(((LIST '&AUX ARGV)              (MULTIPLE-VALUE-BIND (ARGV REST)                  (TAKE-WHILE ARGV #'!LAMBDA-LIST-KEYWORD-P)                (WHEN ARGV (PUSH `(:AUX ,@(MAPCAR #'ENSURE-LIST ARGV)) RESULTS))                (EMATCH REST (NIL))))             (NIL))           :VALUES           (LIST #:OTHERWISE3008))))

---- Press Space to continue ----

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2+ ARGV T   ((LIST '&AUX ARGV)    (MULTIPLE-VALUE-BIND (ARGV REST)        (TAKE-WHILE ARGV #'!LAMBDA-LIST-KEYWORD-P)      (WHEN ARGV (PUSH `(:AUX ,@(MAPCAR #'ENSURE-LIST ARGV)) RESULTS))      (EMATCH REST (NIL))))   (NIL)   (#:OTHERWISE3008    (ERROR 'MATCH-ERROR           :PATTERN           '(((LIST '&AUX ARGV)              (MULTIPLE-VALUE-BIND (ARGV REST)                  (TAKE-WHILE ARGV #'!LAMBDA-LIST-KEYWORD-P)                (WHEN ARGV (PUSH `(:AUX ,@(MAPCAR #'ENSURE-LIST ARGV)) RESULTS))                (EMATCH REST (NIL))))             (NIL))           :VALUES           (LIST #:OTHERWISE3008))))

(IN-PACKAGE "TRIVIA.LEVEL2.IMPL")

(MATCH2+ (ARGV) (T)   (((LIST '&AUX ARGV))    (MULTIPLE-VALUE-BIND (ARGV REST)        (TAKE-WHILE ARGV #'!LAMBDA-LIST-KEYWORD-P)      (WHEN ARGV (PUSH (:AUX ,@(MAPCAR #'ENSURE-LIST ARGV)) RESULTS))      (EMATCH REST (NIL))))   ((NIL))   ((#:OTHERWISE3008)    (ERROR 'MATCH-ERROR           :PATTERN           '(((LIST* '&AUX ARGV)              (MULTIPLE-VALUE-BIND (ARGV REST)                  (TAKE-WHILE ARGV #'!LAMBDA-LIST-KEYWORD-P)                (WHEN ARGV (PUSH(:AUX ,@(MAPCAR #'ENSURE-LIST ARGV)) RESULTS))                (EMATCH REST (NIL))))             (NIL))           :VALUES           (LIST #:OTHERWISE3008))))

The type specifier (FUNCTION (LIST &KEY &ALLOW-OTHER-KEYS) LIST) cannot be used for discriminatio

On 14-Oct-19 15:13, Masataro Asai wrote:

What now? (see @265845f )

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/guicho271828/trivia/issues/107?email_source=notifications&email_token=AGC3GSJNXF4HTESDPRSWBSDQORV77A5CNFSM4I2EOW4KYY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOEBETV5Y#issuecomment-541670135, or unsubscribe https://github.com/notifications/unsubscribe-auth/AGC3GSNBDRZ47WVN3JEZH4LQORV77ANCNFSM4I2EOW4A.

guicho271828 commented 5 years ago

It seems the same type of error as https://github.com/Shinmera/plump/issues/17 from you. Isn't it just a bug in LW version 6 ? Another user in https://github.com/Shinmera/plump/issues/17 writes it does not reproduce in version 7.

guicho271828 commented 5 years ago

It is also odd that you still use the version 6.0.1 from 2010 ... there are more up-to-date versions at least, and I will try to test them. (honestly first time trying LW)

Also found this: https://irclog.tymoon.eu/freenode/lisp?around=1550212904#1550212904

franksmuc commented 5 years ago

I received the confirmation from Lispworks that it was a bug fixed in the newer version.

On 15-Oct-19 00:45, Masataro Asai wrote:

It is also odd that you still use the version 6.0.1 from 2010 ... there are more up-to-date versions at least, and I will try to test them. (honestly first time trying LW)

Also found this: https://irclog.tymoon.eu/freenode/lisp?around=1550212904#1550212904

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/guicho271828/trivia/issues/107?email_source=notifications&email_token=AGC3GSMP437TP3BDXQFMZTLQOTZCJA5CNFSM4I2EOW4KYY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOEBG3ILY#issuecomment-541963311, or unsubscribe https://github.com/notifications/unsubscribe-auth/AGC3GSLZ24I2G2A4SS6VN63QOTZCJANCNFSM4I2EOW4A.

guicho271828 commented 5 years ago

thank you for checking this. I close this issue then