search

Clozure / ccl

Clozure Common Lisp
http://ccl.clozure.com
Apache License 2.0
839 stars 105 forks source link

Stack overflow when loading varjo in recent CCL #270

Open metayan opened 4 years ago

metayan commented 4 years ago

To trigger: (ql:quickload :varjo)

Works: Clozure Common Lisp Version 1.11.6 DarwinX8664 Clozure Common Lisp Version 1.12-dev (v1.12-dev.3-24-g1fd2a4b4) DarwinX8664 SBCL, ECL, ABCL Fails: Clozure Common Lisp Version 1.12-dev (v1.12-dev.5-17-g58d4d91c) DarwinX8664

Not sure that it's not an issue with varjo or fn, but appeared recently, and only with CCL, so filing here. Same behavior with both master and release-quicklisp branches.

Clozure Common Lisp Version 1.12-dev (v1.12-dev.5-17-g58d4d91c) DarwinX8664

For more information about CCL, please see http://ccl.clozure.com.

CCL is free software.  It is distributed under the terms of the Apache
Licence, Version 2.0.
? (asdf:load-system "varjo" :verbose t)
; Registering system varjo
; Registering system documentation-utils
; Registering system trivial-indent
; Registering system vas-string-metrics
; Registering system named-readtables
; Registering system glsl-symbols
; Registering system parse-float
; Warning: System definition file #P"/src/scm/lisp/parse-float/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/test") in that file.
; While executing: (:INTERNAL ASDF/PARSE-DEFSYSTEM:REGISTER-SYSTEM-DEFINITION), in process listener(1).
; Registering system alexandria
; Registering system glsl-spec
; Registering system glsl-docs
; Registering system cl-ppcre
; Registering system fn
> Error: Stack overflow on value stack.
> While executing: MACROEXPAND-1, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b :count 50
*(1019FA8) : 0 (MACROEXPAND-1 NIL NIL) 43
 (101A000) : 1 (NX-TRANSFORM-SYMBOL *PACKAGE* NIL) 189
 (101A048) : 2 (NX-TRANSFORM *PACKAGE* NIL NIL) 453
 (101A0C8) : 3 (NX-TRANSFORM-ARGLIST (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) NIL NIL) 213
 (101A128) : 4 (NX-TRANSFORM (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) NIL NIL) 1013
 (101A1B0) : 5 (FUNCALL #'#<(COMPILER-MACRO-FUNCTION IF)> (IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #)) NIL) 205
 (101A1F0) : 6 (FUNCALL #<Compiled-function (COMPILER-MACRO-FUNCTION IF) (Non-Global)  #x300000A40B6F> (IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #)) NIL) 149
 (101A220) : 7 (COMPILER-MACROEXPAND-1 (IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #)) NIL) 365
 (101A270) : 8 (E (IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 325
 (101A298) : 9 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A2D0) : 10 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A300) : 11 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A338) : 12 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A368) : 13 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A3A0) : 14 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A3D0) : 15 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A408) : 16 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A438) : 17 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A470) : 18 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A4A0) : 19 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A4D8) : 20 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A508) : 21 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A540) : 22 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A570) : 23 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A5A8) : 24 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A5D8) : 25 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A610) : 26 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A640) : 27 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A678) : 28 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A6A8) : 29 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A6E0) : 30 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A710) : 31 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A748) : 32 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A778) : 33 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A7B0) : 34 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A7E0) : 35 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A818) : 36 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A848) : 37 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A880) : 38 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A8B0) : 39 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A8E8) : 40 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A918) : 41 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101A950) : 42 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101A980) : 43 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101A9B8) : 44 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101A9E8) : 45 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (101AA20) : 46 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (101AA50) : 47 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (101AA88) : 48 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (101AAB8) : 49 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
1 > :b :start 39770
 (1212F10) : 39770 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (1212F40) : 39771 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (1212F78) : 39772 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (1212FA8) : 39773 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (1212FE0) : 39774 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (1213010) : 39775 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (1213048) : 39776 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (1213078) : 39777 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (12130B0) : 39778 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (12130E0) : 39779 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (1213118) : 39780 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (1213148) : 39781 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (1213180) : 39782 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (12131B0) : 39783 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (12131E8) : 39784 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (1213218) : 39785 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (1213250) : 39786 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (1213280) : 39787 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (12132B8) : 39788 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (12132E8) : 39789 (E-LIST ((DECLARE #) (INTERN LISP-NAME :VARI.GLSL))) 141
 (1213320) : 39790 (HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN LISP-NAME :VARI.GLSL)) 141
 (1213350) : 39791 (E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY # #) (CCL::%PKG-REF-INTERN LISP-NAME #))) 141
 (1213388) : 39792 (DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*) (LOCALLY (DECLARE #) (INTERN LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #))) 197
 (12133B8) : 39793 (E-LIST ((INTERN LISP-NAME :VARI.GLSL))) 141
 (12133F0) : 39794 (HANDER-LET LET ((LISP-NAME #)) (LET* (#) (LIST* STAGE #))) 701
 (1213470) : 39795 (E-LIST ((DECLARE # #) (DECLARE #) (ASSERT LISP-NAME) (LET* # #))) 141
 (12134A8) : 39796 (FUNCALL #'#<FN::M-LIST> (FN::M-LIST (DECLARE # #) (DECLARE #) (ASSERT LISP-NAME) (LET* # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001660BAD>) 157
 (12134F0) : 39797 (FUNCALL #<Compiled-function FN::M-LIST Macroexpander #x30200115B4CF> (FN::M-LIST (DECLARE # #) (DECLARE #) (ASSERT LISP-NAME) (LET* # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001660BAD>) 149
 (1213520) : 39798 (MACROEXPAND-1 (FN::M-LIST (DECLARE # #) (DECLARE #) (ASSERT LISP-NAME) (LET* # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001660BAD>) 261
 (1213550) : 39799 (NX-TRANSFORM (FN::M-LIST (DECLARE # #) (DECLARE #) (ASSERT LISP-NAME) (LET* # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001660BAD> NIL) 2445
 (12135C8) : 39800 (NX1-TYPED-FORM :VALUE (FN::M-LIST (DECLARE # #) (DECLARE #) (ASSERT LISP-NAME) (LET* # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001660BAD>) 101
 (12135F8) : 39801 (NX1-FORM :VALUE (FN::M-LIST (DECLARE # #) (DECLARE #) (ASSERT LISP-NAME) (LET* # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001660BAD>) 493
 (1213660) : 39802 (NX1-ENV-BODY :VALUE ((FN::M-LIST # # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD> NIL) 189
 (1213698) : 39803 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (STAGE) (DECLARE #) (FN::M-LIST # # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 1205
 (1213790) : 39804 (NX1-COMBINATION :VALUE (LET* (STAGE) (DECLARE #) (FN::M-LIST # # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 549
 (12137F8) : 39805 (NX1-TRANSFORMED-FORM :VALUE (LET* (STAGE) (DECLARE #) (FN::M-LIST # # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 333
 (1213850) : 39806 (NX1-TYPED-FORM :VALUE (LET* (STAGE) (DECLARE #) (FN::M-LIST # # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 261
 (12138B0) : 39807 (NX1-FORM :VALUE (LET* (STAGE) (DECLARE #) (FN::M-LIST # # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 493
 (1213918) : 39808 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (1213970) : 39809 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 221
 (12139B8) : 39810 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 549
 (1213A20) : 39811 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 333
 (1213A78) : 39812 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 261
 (1213AD8) : 39813 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 493
 (1213B40) : 39814 (FUNCALL #'#<CCL::NX1-BINOP> :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 205
 (1213B90) : 39815 (NX1-COMBINATION :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 549
 (1213BF8) : 39816 (NX1-TRANSFORMED-FORM :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 333
 (1213C50) : 39817 (NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 261
 (1213CB0) : 39818 (NX1-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x30200163FFCD>) 493
 (1213D18) : 39819 (NX1-ENV-BODY :VALUE ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D> NIL) 189
 (1213D50) : 39820 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (#:KEY-SUPPLIED-P120) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 1205
 (1213E48) : 39821 (NX1-COMBINATION :VALUE (LET* (#:KEY-SUPPLIED-P120) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 549
 (1213EB0) : 39822 (NX1-TRANSFORMED-FORM :VALUE (LET* (#:KEY-SUPPLIED-P120) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 333
 (1213F08) : 39823 (NX1-TYPED-FORM :VALUE (LET* (#:KEY-SUPPLIED-P120) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 261
 (1213F68) : 39824 (NX1-FORM :VALUE (LET* (#:KEY-SUPPLIED-P120) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 493
 (1213FD0) : 39825 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (1214028) : 39826 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 221
 (1214070) : 39827 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 549
 (12140D8) : 39828 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 333
 (1214130) : 39829 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 261
 (1214190) : 39830 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 493
 (12141F8) : 39831 (FUNCALL #'#<CCL::NX1-BINOP> :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 205
 (1214248) : 39832 (NX1-COMBINATION :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 549
 (12142B0) : 39833 (NX1-TRANSFORMED-FORM :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 333
 (1214308) : 39834 (NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 261
 (1214368) : 39835 (NX1-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x30200164089D>) 493
 (12143D0) : 39836 (NX1-ENV-BODY :VALUE ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D> NIL) 189
 (1214408) : 39837 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (VERSIONS) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 1205
 (1214500) : 39838 (NX1-COMBINATION :VALUE (LET* (VERSIONS) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 549
 (1214568) : 39839 (NX1-TRANSFORMED-FORM :VALUE (LET* (VERSIONS) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 333
 (12145C0) : 39840 (NX1-TYPED-FORM :VALUE (LET* (VERSIONS) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 261
 (1214620) : 39841 (NX1-FORM :VALUE (LET* (VERSIONS) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 493
 (1214688) : 39842 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (12146E0) : 39843 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 221
 (1214728) : 39844 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 549
 (1214790) : 39845 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 333
 (12147E8) : 39846 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 261
 (1214848) : 39847 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 493
 (12148B0) : 39848 (FUNCALL #'#<CCL::NX1-BINOP> :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 205
 (1214900) : 39849 (NX1-COMBINATION :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 549
 (1214968) : 39850 (NX1-TRANSFORMED-FORM :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 333
 (12149C0) : 39851 (NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 261
 (1214A20) : 39852 (NX1-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x302001643A0D>) 493
 (1214A88) : 39853 (NX1-ENV-BODY :VALUE ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D> NIL) 189
 (1214AC0) : 39854 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (PLACE-P) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 1205
 (1214BB8) : 39855 (NX1-COMBINATION :VALUE (LET* (PLACE-P) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 549
 (1214C20) : 39856 (NX1-TRANSFORMED-FORM :VALUE (LET* (PLACE-P) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 333
 (1214C78) : 39857 (NX1-TYPED-FORM :VALUE (LET* (PLACE-P) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 261
 (1214CD8) : 39858 (NX1-FORM :VALUE (LET* (PLACE-P) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 493
 (1214D40) : 39859 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (1214D98) : 39860 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 221
 (1214DE0) : 39861 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 549
 (1214E48) : 39862 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 333
 (1214EA0) : 39863 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 261
 (1214F00) : 39864 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 493
 (1214F68) : 39865 (FUNCALL #'#<CCL::NX1-BINOP> :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 205
 (1214FB8) : 39866 (NX1-COMBINATION :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 549
 (1215020) : 39867 (NX1-TRANSFORMED-FORM :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 333
 (1215078) : 39868 (NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 261
 (12150D8) : 39869 (NX1-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x302001646B7D>) 493
 (1215140) : 39870 (NX1-ENV-BODY :VALUE ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED> NIL) 189
 (1215178) : 39871 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (TYPE) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 1205
 (1215270) : 39872 (NX1-COMBINATION :VALUE (LET* (TYPE) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 549
 (12152D8) : 39873 (NX1-TRANSFORMED-FORM :VALUE (LET* (TYPE) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 333
 (1215330) : 39874 (NX1-TYPED-FORM :VALUE (LET* (TYPE) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 261
 (1215390) : 39875 (NX1-FORM :VALUE (LET* (TYPE) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 493
 (12153F8) : 39876 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (1215450) : 39877 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 221
 (1215498) : 39878 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 549
 (1215500) : 39879 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 333
 (1215558) : 39880 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 261
 (12155B8) : 39881 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 493
 (1215620) : 39882 (FUNCALL #'#<CCL::NX1-BINOP> :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 205
 (1215670) : 39883 (NX1-COMBINATION :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 549
 (12156D8) : 39884 (NX1-TRANSFORMED-FORM :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 333
 (1215730) : 39885 (NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 261
 (1215790) : 39886 (NX1-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x302001649CED>) 493
 (12157F8) : 39887 (NX1-ENV-BODY :VALUE ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD> NIL) 189
 (1215830) : 39888 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 1205
 (1215928) : 39889 (NX1-COMBINATION :VALUE (LET* (NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 549
 (1215990) : 39890 (NX1-TRANSFORMED-FORM :VALUE (LET* (NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 333
 (12159E8) : 39891 (NX1-TYPED-FORM :VALUE (LET* (NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 261
 (1215A48) : 39892 (NX1-FORM :VALUE (LET* (NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 493
 (1215AB0) : 39893 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (1215B08) : 39894 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 221
 (1215B50) : 39895 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 549
 (1215BB8) : 39896 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 333
 (1215C10) : 39897 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 261
 (1215C70) : 39898 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 493
 (1215CD8) : 39899 (FUNCALL #'#<CCL::NX1-BINOP> :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 205
 (1215D28) : 39900 (NX1-COMBINATION :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 549
 (1215D90) : 39901 (NX1-TRANSFORMED-FORM :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 333
 (1215DE8) : 39902 (NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 261
 (1215E48) : 39903 (NX1-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x3020016330CD>) 493
 (1215EB0) : 39904 (NX1-ENV-BODY :VALUE ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D> NIL) 189
 (1215EE8) : 39905 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (LISP-NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 1205
 (1215FE0) : 39906 (NX1-COMBINATION :VALUE (LET* (LISP-NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 549
 (1216048) : 39907 (NX1-TRANSFORMED-FORM :VALUE (LET* (LISP-NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 333
 (12160A0) : 39908 (NX1-TYPED-FORM :VALUE (LET* (LISP-NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 261
 (1216100) : 39909 (NX1-FORM :VALUE (LET* (LISP-NAME) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 493
 (1216168) : 39910 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (12161C0) : 39911 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 221
 (1216208) : 39912 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 549
 (1216270) : 39913 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 333
 (12162C8) : 39914 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 261
 (1216328) : 39915 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 493
 (1216390) : 39916 (FUNCALL #'#<CCL::NX1-BINOP> :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 205
 (12163E0) : 39917 (NX1-COMBINATION :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 549
 (1216448) : 39918 (NX1-TRANSFORMED-FORM :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 333
 (12164A0) : 39919 (NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 261
 (1216500) : 39920 (NX1-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x30200163672D>) 493
 (1216568) : 39921 (NX1-ENV-BODY :VALUE ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D> NIL) 189
 (12165A0) : 39922 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (#:KEYS119) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 1205
 (1216698) : 39923 (NX1-COMBINATION :VALUE (LET* (#:KEYS119) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 549
 (1216700) : 39924 (NX1-TRANSFORMED-FORM :VALUE (LET* (#:KEYS119) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 333
 (1216758) : 39925 (NX1-TYPED-FORM :VALUE (LET* (#:KEYS119) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 261
 (12167B8) : 39926 (NX1-FORM :VALUE (LET* (#:KEYS119) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 493
 (1216820) : 39927 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (1216878) : 39928 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 221
 (12168C0) : 39929 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 549
 (1216928) : 39930 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 333
 (1216980) : 39931 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 261
 (12169E0) : 39932 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 493
 (1216A48) : 39933 (FUNCALL #'#<CCL::NX1-BINOP> :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 205
 (1216A98) : 39934 (NX1-COMBINATION :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 549
 (1216B00) : 39935 (NX1-TRANSFORMED-FORM :VALUE (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 333
 (1216B58) : 39936 (NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 261
 (1216BB8) : 39937 (NX1-FORM :VALUE (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x302001636D4D>) 493
 (1216C20) : 39938 (NX1-ENV-BODY :VALUE ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D> NIL) 189
 (1216C58) : 39939 (FUNCALL #'#<CCL::NX1-LET*> :VALUE (LET* (#:ARGS118) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 1205
 (1216D50) : 39940 (NX1-COMBINATION :VALUE (LET* (#:ARGS118) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 549
 (1216DB8) : 39941 (NX1-TRANSFORMED-FORM :VALUE (LET* (#:ARGS118) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 333
 (1216E10) : 39942 (NX1-TYPED-FORM :VALUE (LET* (#:ARGS118) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 261
 (1216E70) : 39943 (NX1-FORM :VALUE (LET* (#:ARGS118) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 493
 (1216ED8) : 39944 (NX1-ARGLIST ((LET* # # #)) 1) 437
 (1216F30) : 39945 (FUNCALL #'#<CCL::NX1-LIST*> :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 221
 (1216F78) : 39946 (NX1-COMBINATION :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 549
 (1216FE0) : 39947 (NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 333
 (1217038) : 39948 (NX1-TYPED-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 261
 (1217098) : 39949 (NX1-FORM :VALUE (LIST* 'LET (CONS # NIL) (LET* # # #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 493
 (1217100) : 39950 (FUNCALL #'#<CCL::NX1-BINOP> :RETURN (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 205
 (1217150) : 39951 (NX1-COMBINATION :RETURN (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 549
 (12171B8) : 39952 (NX1-TRANSFORMED-FORM :RETURN (CONS (LIST* # # #) NIL) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 333
 (1217210) : 39953 (NX1-TYPED-FORM :RETURN (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 261
 (1217270) : 39954 (NX1-FORM :RETURN (FN::M-LIST (LET* # # # # ...)) #<CCL::LEXICAL-ENVIRONMENT #x30200163770D>) 493
 (12172D8) : 39955 (NX1-ENV-BODY :RETURN ((FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016377DD> NIL) 189
 (1217310) : 39956 (FUNCALL #'#<CCL::NX1-LET*> :RETURN (LET* (#:WHOLE117) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016377DD>) 1205
 (1217408) : 39957 (NX1-COMBINATION :RETURN (LET* (#:WHOLE117) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016377DD>) 549
 (1217470) : 39958 (NX1-TRANSFORMED-FORM :RETURN (LET* (#:WHOLE117) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016377DD>) 333
 (12174C8) : 39959 (NX1-TYPED-FORM :RETURN (PROGN (LET # # #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016377DD>) 261
 (1217528) : 39960 (NX1-FORM :RETURN (PROGN (LET # # #)) #<CCL::LEXICAL-ENVIRONMENT #x3020016377DD>) 493
 (1217590) : 39961 (NX1-ENV-BODY :RETURN ((PROGN #)) #<CCL::LEXICAL-ENVIRONMENT #x30200163787D> NIL) 189
 (12175C8) : 39962 (NX1-LAMBDA NIL ((PROGN #)) NIL) 1453
 (12176A0) : 39963 (NX1-COMPILE-LAMBDA NIL (LAMBDA NIL (PROGN #)) #<CCL::AFUNC #x3020016378CD> NIL #<CCL::LEXICAL-ENVIRONMENT #x30200163799D> #<CCL:COMPILER-POLICY #x3020001CF43D> NIL) 2357
 (1217958) : 39964 (COMPILE-NAMED-FUNCTION (LAMBDA NIL (PROGN #)) :NAME NIL :ENV #<CCL::LEXICAL-ENVIRONMENT #x302001637AFD> :FUNCTION-NOTE #<SOURCE-NOTE "/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp":53-317 "(eval-when (:compile-toplevel :load-toplevel :execute) (defvar *definitions-missing-from-glsl-spec* '((:lisp-name \"GL-IN..."> :KEEP-LAMBDA NIL :KEEP-SYMBOLS T :SOURCE-NOTES NIL) 2709
 (1217BD8) : 39965 (CHEAP-EVAL-FUNCTION NIL (LAMBDA NIL (PROGN #)) #<CCL::LEXICAL-ENVIRONMENT #x302001637AFD>) 229
 (1217C08) : 39966 (CHEAP-EVAL-IN-ENVIRONMENT (LET (#:WHOLE117) (DECLARE #) (FN::M-LIST #)) #<CCL::LEXICAL-ENVIRONMENT #x302001637AFD>) 3205
 (1217C30) : 39967 (CHEAP-EVAL-IN-ENVIRONMENT (LIST* 'LET (LIST #) (FN::WITH-IMPOSED-BINDINGS #)) NIL) 3533
 (1217C78) : 39968 (CHEAP-EVAL (LIST* 'LET (LIST #) (FN::WITH-IMPOSED-BINDINGS #))) 101
 (1217CB0) : 39969 (MACROEXPAND-DAMMIT (DESTRUCTURING-BIND (&KEY LISP-NAME NAME TYPE PLACE-P ...) _ (DECLARE #) (ASSERT LISP-NAME) ...) NIL) 157
 (1217CF0) : 39970 (FN*-INTERNALS (DESTRUCTURING-BIND (&KEY LISP-NAME NAME TYPE PLACE-P ...) _ (DECLARE #) (ASSERT LISP-NAME) ...) NIL) 53
 (1217D18) : 39971 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> #\Greek_Small_Letter_Lamda (NIL)) 437
 (1217D70) : 39972 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> (NIL) #\)) 221
 (1217DB0) : 39973 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> NIL #\)) 629
 (1217E28) : 39974 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> #\( (NIL)) 437
 (1217E80) : 39975 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> (NIL) #\)) 221
 (1217EC0) : 39976 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> NIL #\)) 629
 (1217F38) : 39977 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> #\( (NIL)) 437
 (1217F90) : 39978 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> (NIL) #\)) 221
 (1217FD0) : 39979 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> NIL #\)) 309
 (1218030) : 39980 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> #\( (NIL)) 437
 (1218088) : 39981 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> (NIL) #\)) 221
 (12180C8) : 39982 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> NIL #\)) 629
 (1218140) : 39983 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> #\( (NIL)) 437
 (1218198) : 39984 (%READ-LIST-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> (NIL) #\)) 221
 (12181D8) : 39985 (READ-LIST #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> NIL #\)) 629
 (1218250) : 39986 (%PARSE-EXPRESSION #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> #\( NIL) 437
 (12182A8) : 39987 (%READ-FORM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> NIL (NIL)) 581
 (12182E0) : 39988 (READ-INTERNAL #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> NIL (NIL) NIL) 261
 (1218358) : 39989 (READ-RECORDING-SOURCE #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp"/4 UTF-8) #x30200162F19D> :EOFVAL (NIL) :FILE-NAME "/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" :START-OFFSET 0 :MAP #<HASH-TABLE :TEST EQ size 87/90 #x30200162EDDD> :SAVE-SOURCE-TEXT T) 445
 (12183F0) : 39990 (FCOMP-READ-LOOP "/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" "/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" 0 #<CCL::LEXICAL-ENVIRONMENT #x30200162FA2D> :NOT-COMPILE-TIME) 1981
 (12185D0) : 39991 (FCOMP-FILE "/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" "/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" 0 #<CCL::LEXICAL-ENVIRONMENT #x30200162FA2D>) 829
 (1218768) : 39992 (%COMPILE-FILE "/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" "/src/quicklisp/cache/common-lisp/ccl-1.12-f98-macosx-x64/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec-tmpGYSY3UZJ.dx64fsl" NIL NIL T T NIL T :DEFER NIL #<BACKEND DARWINX8664 #x3020001D0BED> :UTF-8 NIL 0) 2373
 (1218A38) : 39993 (COMPILE-FILE #P"/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" :OUTPUT-FILE #P"/src/quicklisp/cache/common-lisp/ccl-1.12-f98-macosx-x64/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec-tmpGYSY3UZJ.dx64fsl" :VERBOSE NIL :PRINT NIL :LOAD NIL :FEATURES NIL :TARGET :DARWINX8664 :SAVE-LOCAL-SYMBOLS T :SAVE-DOC-STRINGS T :SAVE-DEFINITIONS NIL :SAVE-SOURCE-LOCATIONS T :EXTERNAL-FORMAT :UTF-8 :FORCE NIL :COMPILE-FILE-ORIGINAL-TRUENAME NIL :COMPILE-FILE-ORIGINAL-BUFFER-OFFSET 0 :BREAK-ON-PROGRAM-ERRORS :DEFER :LOAD-PRESERVES-OPTIMIZATION-SETTINGS NIL) 1973
 (1218BB8) : 39994 (CALL-WITH-MUFFLED-CONDITIONS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL UIOP/LISP-BUILD:COMPILE-FILE*) #x30200163018F> NIL) 349
 (1218C08) : 39995 (CALL-WITH-ENOUGH-PATHNAME #P"/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL UIOP/LISP-BUILD:COMPILE-FILE*) #x3020016301DF>) 197
 (1218C60) : 39996 (COMPILE-FILE* #P"/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.lisp" :OUTPUT-FILE #P"/src/quicklisp/cache/common-lisp/ccl-1.12-f98-macosx-x64/src/scm/lisp/varjo/src/vari.glsl/variables-from-spec.dx64fsl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL) 541
 (1218CD8) : 39997 (FUNCALL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) #x3020016222AF>) 149
 (1218D08) : 39998 (PERFORM-LISP-COMPILATION #<COMPILE-OP> #<CL-SOURCE-FILE "varjo" "src/vari.glsl/variables-from-spec">) 621
 (1218D58) : 39999 (%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE ((NIL) #<STANDARD-METHOD ASDF/ACTION:PERFORM #> #<COMPILE-OP> #<CL-SOURCE-FILE "varjo" "src/vari.glsl/variables-from-spec">)) 861
 (1218DB8) : 40000 (%CALL-NEXT-METHOD ((NIL) #<STANDARD-METHOD ASDF/ACTION:PERFORM #> #<COMPILE-OP> #<CL-SOURCE-FILE "varjo" "src/vari.glsl/variables-from-spec">)) 485
 (1218E20) : 40001 (FUNCALL #'#<(:INTERNAL ASDF/ACTION:CALL-WHILE-VISITING-ACTION)>) 757
 (1218E90) : 40002 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/ACTION:PERFORM :AROUND #> (#<#>) (#<#>) #<STANDARD-METHOD ASDF/ACTION:PERFORM #>) 2372062) 701
 (1218F08) : 40003 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS #> . 2372103)) 1037
 (1218F80) : 40004 (FUNCALL #'#<#<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)>> #<COMPILE-OP> #<CL-SOURCE-FILE "varjo" "src/vari.glsl/variables-from-spec">) 645
 (1218FE0) : 40005 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND #> #<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS #>) 2372103) 701
 (1219050) : 40006 (FUNCALL #'#<#<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN (T)>> #<ASDF/PLAN:SEQUENTIAL-PLAN #x30200092856D>) 325
 (1219088) : 40007 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN #> . 2372163)) 1037
 (1219100) : 40008 (CALL-WITH-COMPILATION-UNIT #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY #) #x133BB7F> :OVERRIDE NIL) 197
 (1219148) : 40009 (FUNCALL #'#<#<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)>> #<ASDF/PLAN:SEQUENTIAL-PLAN #x30200092856D>) 493
 (12191B8) : 40010 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND #> #<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN #>) 2372163) 701
 (1219228) : 40011 (%%CHECK-KEYWORDS #(1 #() #<Combined-Method ASDF/PLAN:PERFORM-PLAN #x302000755F7F>) 2372174) 261
 (1219280) : 40012 (FUNCALL #'#<#<STANDARD-METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)>> #<LOAD-OP> #<SYSTEM "varjo"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) 229
 (12192C8) : 40013 (%CALL-NEXT-METHOD ((NIL) #<STANDARD-METHOD ASDF/OPERATE:OPERATE #> #<LOAD-OP> #<SYSTEM "varjo"> :VERBOSE ...)) 485
 (1219330) : 40014 (FUNCALL #'#<(:INTERNAL (ASDF/OPERATE:OPERATE :AROUND (T T)))>) 1565
 (1219418) : 40015 (FUNCALL #'#<#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)>> ((NIL) #<STANDARD-METHOD ASDF/OPERATE:OPERATE #> #<LOAD-OP> #<SYSTEM "varjo"> :VERBOSE ...) #<LOAD-OP> #<SYSTEM "varjo">) 573
 (1219488) : 40016 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND #> (#<#> #<#>) NIL #<STANDARD-METHOD ASDF/OPERATE:OPERATE #>) 2372253) 701
 (1219510) : 40017 (%CALL-NEXT-METHOD ((NIL) #<STANDARD-METHOD ASDF/OPERATE:OPERATE #> ASDF/LISP-ACTION:LOAD-OP "varjo" :VERBOSE ...)) 485
 (1219578) : 40018 (FUNCALL #'#<(:INTERNAL (ASDF/OPERATE:OPERATE :AROUND (T T)))>) 1565
 (1219660) : 40019 (FUNCALL #'#<#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)>> ((NIL) #<STANDARD-METHOD ASDF/OPERATE:OPERATE #> ASDF/LISP-ACTION:LOAD-OP "varjo" :VERBOSE ...) ASDF/LISP-ACTION:LOAD-OP "varjo") 573
 (12196D0) : 40020 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND #> (#<#>) NIL #<STANDARD-METHOD ASDF/OPERATE:OPERATE #>) 2372326) 701
 (1219758) : 40021 (CALL-WITH-ASDF-SESSION #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x30200090316F> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 1141
 (1219808) : 40022 (FUNCALL #'#<(:INTERNAL (ASDF/OPERATE:OPERATE :AROUND (T T)))>) 1077
 (1219880) : 40023 (CALL-WITH-ASDF-SESSION #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x3020008FC6CF> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 1141
 (1219930) : 40024 (FUNCALL #'#<#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)>> ((NIL) (# NIL #<#>) ASDF/LISP-ACTION:LOAD-OP "varjo" :VERBOSE ...) ASDF/LISP-ACTION:LOAD-OP "varjo") 573
 (12199A0) : 40025 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND #> (#<#>) NIL #<STANDARD-METHOD ASDF/OPERATE:OPERATE #>) 2372415) 701
 (1219A20) : 40026 (LOAD-SYSTEM "varjo" :VERBOSE T) 173
 (1219A80) : 40027 (CALL-CHECK-REGS ASDF/OPERATE:LOAD-SYSTEM "varjo" :VERBOSE T) 229
 (1219AB8) : 40028 (TOPLEVEL-EVAL (ASDF/OPERATE:LOAD-SYSTEM "varjo" :VERBOSE T) NIL) 789
 (1219B30) : 40029 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x3020004774DD> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x30200047737D> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x3000005888DF>) 2341
 (1219D78) : 40030 (RUN-READ-LOOP :BREAK-LEVEL 0) 157
 (1219DA0) : 40031 (TOPLEVEL-LOOP) 93
 (1219DB0) : 40032 (FUNCALL #'#<(:INTERNAL (CCL:TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 109
 (1219DD0) : 40033 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 661
 (1219E68) : 40034 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x30200047631D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302000475E4F>)) 669
 (1219EF0) : 40035 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS)))> #<TTY-LISTENER listener(1) [Active] #x30200047631D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302000475E4F>)) 581
 (1219F98) : 40036 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 277
1 > ^D
phoe commented 4 years ago

This seems related to the package local nickname system, which I introduced into CCL. I'll take this bug.

phoe commented 4 years ago

The issue seems related to the functions DEFAULT-FORM-HANDLER and E-LIST from the system fn.

https://github.com/cbaggers/fn/blob/8d8587d03a7b5e26b306fc90018e385d9e5acc2c/mad.lisp#L297-L300 https://github.com/cbaggers/fn/blob/8d8587d03a7b5e26b306fc90018e385d9e5acc2c/mad.lisp#L314-L333

(defun default-form-handler (first &rest rest)
  `(list ,(if (symbolp first)
              `',first
              (e first)) ,@(e-list rest)))
(defun e (form)
  (flet ((handle (form)
           (apply (form-handler (first form)) form)))
    (cond ((and (listp form) (gethash (first form) *form-handler*))
           (handle form))
          (t
           (multiple-value-bind (form expanded)
               (macroexpand-1 form *env*)
             (cond (expanded
                    (e form))
                   (t
                    (typecase form
                      (null nil)
                      (list
                       (let ((next (compiler-macroexpand-1 form)))
                         (if (eq form next)
                             (handle form)
                             (e next))))
                      (t
                       `',form)))))))))
phoe commented 4 years ago

The four repeating backtrace lines are:

(HANDER-PROGN LOCALLY
              (DECLARE (NOTINLINE INTERN))
              (INTERN LISP-NAME :VARI.GLSL))
(E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*)
         (LOCALLY # #)
         (CCL::%PKG-REF-INTERN LISP-NAME #)))
(DEFAULT-FORM-HANDLER IF
                      (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*)
                      (LOCALLY (DECLARE #)
                        (INTERN LISP-NAME :VARI.GLSL))
                      (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #)))
(E-LIST ((DECLARE #)
         (INTERN LISP-NAME :VARI.GLSL)))
phoe commented 4 years ago

I recognize the following form.

(IF
 (CCL::PACKAGE-%LOCAL-NICKNAMES *PACKAGE*)
 (LOCALLY (DECLARE #)
   (INTERN LISP-NAME :VARI.GLSL))
 (CCL::%PKG-REF-INTERN LISP-NAME (LOAD-TIME-VALUE #)))

It is this part of my commit:

https://github.com/Clozure/ccl/pull/188/files#diff-7dbee25941139b1e1582d8f0c87f1b23R2430-R2432

This code from fn seems to drop into an infinite recursion when trying to compute package-local nicknames of a symbol while macroexpanding and compiler-macroexpanding a form. I will try to reproduce it in a smaller way later today.

phoe commented 4 years ago

I say that this is not a CCL issue.

CLHS NOTINLINE says,

In the presence of a compiler macro definition for function-name, a notinline declaration prevents that compiler macro from being used.

The macroexpansion machinery contained in the fn library ignores this fact and recursively compiler-macroexpands the INTERN form which was explicitly declared NOTINLINE, which leads into infinite loops as demonstrated here.

Devon7 commented 3 years ago

Until FN is fixed, a workaround is available at https://github.com/cbaggers/cepl/issues/350#issuecomment-693713107