(ql:quickload "varjo") ; infinite loop stack overflow crash #239
Comments
|
This issue appears in newer CCL and is handled in cbaggers/fn#5 |
metayan
pushed a commit
to metayan/varjo
that referenced
this issue
Dec 21, 2020
cbaggers#239 infinite loop stack overflow crash This fix from Devon7 cbaggers/cepl#350 (comment) Issue explained in Clozure/ccl#270 (comment) 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.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
⋮
38194: (FN::E (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL))
38195: (CCL::MAP1 FN::E (((DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL))) :LIST T)
38196: (MAPCAR FN::E ((DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)))
38197: (FN::E-LIST ((DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)))
38198: (FN::HANDER-PROGN LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL))
38199: ((:INTERNAL FN::HANDLE FN::E) (LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)))
38200: (FN::E (LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)))
38201: (CCL::MAP1 FN::E (((CCL::PACKAGE-%LOCAL-NICKNAMES PACKAGE) (LOCALLY (DECLARE #) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)) ..)) :LIST T)
38202: (MAPCAR FN::E ((CCL::PACKAGE-%LOCAL-NICKNAMES PACKAGE) (LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)) ..)))
38203: (FN::E-LIST ((CCL::PACKAGE-%LOCAL-NICKNAMES PACKAGE) (LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)) ..)))
38204: (FN::DEFAULT-FORM-HANDLER IF (CCL::PACKAGE-%LOCAL-NICKNAMES PACKAGE) (LOCALLY (DECLARE (NOTINLINE INTERN)) (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)) (CCL::%PKG-REF-INTERN ..))
38205: ((:INTERNAL FN::HANDLE FN::E) (IF (CCL::PACKAGE-%LOCAL-NICKNAMES PACKAGE) ..))
38206: (FN::E (IF (CCL::PACKAGE-%LOCAL-NICKNAMES PACKAGE) ..))
38207: (FN::E (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL))
38208: (CCL::MAP1 FN::E (((INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL))) :LIST T)
38209: (MAPCAR FN::E ((INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)))
38210: (FN::E-LIST ((INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)))
38211: (FN::HANDER-LET LET ((VARJO.INTERNALS:LISP-NAME (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL))) (LET* ((VARI.GLSL::LISP-TYPE (VARI.GLSL::PARSE-GL-TYPE-NAME TYPE))) ..))
38212: ((:INTERNAL FN::HANDLE FN::E) (LET ((VARJO.INTERNALS:LISP-NAME (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL))) ..))
38213: (FN::E (LET ((VARJO.INTERNALS:LISP-NAME (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL))) (LET* ((VARI.GLSL::LISP-TYPE #)) (LIST* VARJO.INTERNALS:STAGE (LIST* VARJO.INTERNALS:LISP-NAME #)))))
38214: (FN::HANDER-LET* LET* ((VARJO.INTERNALS:LISP-NAME (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)) (VARI.GLSL::LISP-TYPE (VARI.GLSL::PARSE-GL-TYPE-NAME TYPE))) (LIST* VARJO.INTERNALS:STAGE ..))
38215: ((:INTERNAL FN::HANDLE FN::E) (LET* ((VARJO.INTERNALS:LISP-NAME (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)) (VARI.GLSL::LISP-TYPE (VARI.GLSL::PARSE-GL-TYPE-NAME TYPE))) ..))
38216: (FN::E (LET* ((VARJO.INTERNALS:LISP-NAME (INTERN VARJO.INTERNALS:LISP-NAME :VARI.GLSL)) (VARI.GLSL::LISP-TYPE (VARI.GLSL::PARSE-GL-TYPE-NAME TYPE))) ..))
38217: (CCL::MAP1 FN::E (((DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) (DECLARE (IGNORE VARI.GLSL::VERSIONS)) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* (# #) (LIST* VARJO.INTERNALS:STAGE #)))) :LIST ..
38218: (MAPCAR FN::E ((DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) (DECLARE (IGNORE VARI.GLSL::VERSIONS)) (ASSERT VARJO.INTERNALS:LISP-NAME) ..)))
38219: (FN::E-LIST ((DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) (DECLARE (IGNORE VARI.GLSL::VERSIONS)) (ASSERT VARJO.INTERNALS:LISP-NAME) ..)))
38220: (FN::M-LIST (FN::M-LIST (DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F384D>)
38221: (FUNCALL #<Compiled-function FN::M-LIST Macroexpander #x3020022CA43F> (FN::M-LIST (DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F384D>)
38222: ((:INTERNAL QUICKLISP-CLIENT::MACROEXPAND-PROGRESS-FUN) #<Compiled-function FN::M-LIST Macroexpander #x3020022CA43F> (FN::M-LIST (DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) ..)) #<CCL::LEXIC..
38223: (MACROEXPAND-1 (FN::M-LIST (DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F384D>)
38224: (CCL::NX-TRANSFORM (FN::M-LIST (DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F384D> NIL)
38225: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F384D>)
38226: (CCL::NX1-FORM :VALUE (FN::M-LIST (DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F384D>)
38227: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (DECLARE (IGNORABLE #:KEYS722) (IGNORABLE #:ARGS721)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F38CD> T)
38228: (CCL::NX1-LET :VALUE (LET (VARJO.INTERNALS:STAGE) ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F38CD>)
38229: (CCL::NX1-COMBINATION :VALUE (LET (VARJO.INTERNALS:STAGE) ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F38CD>)
38230: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (VARJO.INTERNALS:STAGE) ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F38CD>)
38231: (CCL::NX1-TYPED-FORM :VALUE (LET (VARJO.INTERNALS:STAGE) ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F38CD>)
38232: (CCL::NX1-FORM :VALUE (LET (VARJO.INTERNALS:STAGE) ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F38CD>)
38233: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (VARJO.INTERNALS:STAGE) (DECLARE (IGNORABLE VARJO.INTERNALS:STAGE)) (FN::M-LIST (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL:..
38234: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (VARJO.INTERNALS:STAGE) (DECLARE (IGNORABLE VARJO.INTERNALS:STAGE)) (FN::M-LIST (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<..
38235: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (VARJO.INTERNALS:STAGE) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38236: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38237: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38238: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:STAGE) (DECLARE #) (FN::M-LIST # # # #)))) 1)
38239: (CCL::NX1-LIST* :VALUE (LIST* 'LET ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38240: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38241: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38242: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38243: (CCL::NX1-FORM :VALUE (LIST* 'LET ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38244: (CCL::NX1-FORMLIST :VALUE ((LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:STAGE #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38245: (CCL::NX1-LIST-VECTOR-VALUES :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:STAGE #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38246: (CCL::NX1-COMBINATION :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:STAGE #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38247: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:STAGE #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38248: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* ((VARJO.INTERNALS:STAGE #)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38249: (CCL::NX1-FORM :VALUE (FN::M-LIST (LET* ((VARJO.INTERNALS:STAGE #)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B1D>)
38250: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (LET* (#) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B9D> T)
38251: (CCL::NX1-LET :VALUE (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* (#) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICA..
38252: (CCL::NX1-COMBINATION :VALUE (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* (#) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL..
38253: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (#:KEY-SUPPLIED-P723) ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F6B9D>)
38254: (CCL::NX1-TYPED-FORM :VALUE (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* (#) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL:..
38255: (CCL::NX1-FORM :VALUE (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* (#) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXIC..
38256: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38257: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38258: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38259: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38260: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (#:KEY-SUPPLIED-P723) (DECLARE (IGNORABLE #:KEY-SUPPLIED-P723)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38261: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (#:KEY-SUPPLIED-P723) (DECLARE #) (FN::M-LIST #)))) 1)
38262: (CCL::NX1-LIST* :VALUE (LIST* 'LET (LIST (LIST '#:KEY-SUPPLIED-P723 (LIST 'CCL::%KEYWORD-PRESENT-P '#:KEYS722 #))) (FN::WITH-IMPOSED-BINDINGS (LET (#:KEY-SUPPLIED-P723) (DECLARE #) (FN::M-LIST #)))) #..
38263: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38264: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38265: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38266: (CCL::NX1-FORM :VALUE (LIST* 'LET (LIST (LIST '#:KEY-SUPPLIED-P723 (LIST 'CCL::%KEYWORD-PRESENT-P '#:KEYS722 #))) (FN::WITH-IMPOSED-BINDINGS (LET (#:KEY-SUPPLIED-P723) (DECLARE #) (FN::M-LIST #)))) #<..
38267: (CCL::NX1-FORMLIST :VALUE ((LIST* 'LET (LIST (LIST '#:KEY-SUPPLIED-P723 #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38268: (CCL::NX1-LIST-VECTOR-VALUES :VALUE (LIST (LIST* 'LET (LIST (LIST '#:KEY-SUPPLIED-P723 #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38269: (CCL::NX1-COMBINATION :VALUE (LIST (LIST* 'LET (LIST (LIST '#:KEY-SUPPLIED-P723 #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38270: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST (LIST* 'LET (LIST (LIST '#:KEY-SUPPLIED-P723 #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38271: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* ((#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38272: (CCL::NX1-FORM :VALUE (FN::M-LIST (LET* ((#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028F744D>)
38273: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (LET* (# #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F74CD> T)
38274: (CCL::NX1-LET :VALUE (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* (# #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXI..
38275: (CCL::NX1-COMBINATION :VALUE (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* (# #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<C..
38276: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (VARI.GLSL::VERSIONS) ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028F74CD>)
38277: (CCL::NX1-TYPED-FORM :VALUE (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* (# #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CC..
38278: (CCL::NX1-FORM :VALUE (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* (# #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEX..
38279: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38280: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38281: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38282: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38283: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::VERSIONS) (DECLARE (IGNORABLE VARI.GLSL::VERSIONS)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38284: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::VERSIONS) (DECLARE #) (FN::M-LIST #)))) 1)
38285: (CCL::NX1-LIST* :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::VERSIONS) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMEN..
38286: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::VERSIONS) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVI..
38287: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::VERSIONS) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL..
38288: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::VERSIONS) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIR..
38289: (CCL::NX1-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::VERSIONS) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT..
38290: (CCL::NX1-FORMLIST :VALUE ((LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38291: (CCL::NX1-LIST-VECTOR-VALUES :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38292: (CCL::NX1-COMBINATION :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38293: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARI.GLSL::VERSIONS #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38294: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* ((VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38295: (CCL::NX1-FORM :VALUE (FN::M-LIST (LET* ((VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA52D>)
38296: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (LET* (# # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA5AD> T)
38297: (CCL::NX1-LET :VALUE (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* (# # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXI..
38298: (CCL::NX1-COMBINATION :VALUE (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* (# # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<C..
38299: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (VARI.GLSL::PLACE-P) ..) #<CCL::LEXICAL-ENVIRONMENT #x3020028FA5AD>)
38300: (CCL::NX1-TYPED-FORM :VALUE (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* (# # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CC..
38301: (CCL::NX1-FORM :VALUE (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* (# # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEX..
38302: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38303: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38304: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38305: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38306: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::PLACE-P) (DECLARE (IGNORABLE VARI.GLSL::PLACE-P)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38307: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::PLACE-P) (DECLARE #) (FN::M-LIST #)))) 1)
38308: (CCL::NX1-LIST* :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::PLACE-P) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT ..
38309: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::PLACE-P) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRO..
38310: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::PLACE-P) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-E..
38311: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::PLACE-P) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRON..
38312: (CCL::NX1-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARI.GLSL::PLACE-P) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #..
38313: (CCL::NX1-FORMLIST :VALUE ((LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38314: (CCL::NX1-LIST-VECTOR-VALUES :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38315: (CCL::NX1-COMBINATION :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38316: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARI.GLSL::PLACE-P #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38317: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* ((VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38318: (CCL::NX1-FORM :VALUE (FN::M-LIST (LET* ((VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD60D>)
38319: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (LET* (# # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028FD68D> T)
38320: (CCL::NX1-LET :VALUE (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* (# # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028F..
38321: (CCL::NX1-COMBINATION :VALUE (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* (# # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x..
38322: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* (# # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONME..
38323: (CCL::NX1-TYPED-FORM :VALUE (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* (# # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3..
38324: (CCL::NX1-FORM :VALUE (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* (# # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028..
38325: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38326: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38327: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38328: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38329: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (TYPE) (DECLARE (IGNORABLE TYPE)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38330: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (TYPE) (DECLARE #) (FN::M-LIST #)))) 1)
38331: (CCL::NX1-LIST* :VALUE (LIST* 'LET (LIST (LIST 'TYPE (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (TYPE) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38332: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET (LIST (LIST 'TYPE (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (TYPE) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38333: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (LIST (LIST 'TYPE (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (TYPE) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38334: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET (LIST (LIST 'TYPE (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (TYPE) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38335: (CCL::NX1-FORM :VALUE (LIST* 'LET (LIST (LIST 'TYPE (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (TYPE) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38336: (CCL::NX1-FORMLIST :VALUE ((LIST* 'LET (LIST (LIST 'TYPE #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38337: (CCL::NX1-LIST-VECTOR-VALUES :VALUE (LIST (LIST* 'LET (LIST (LIST 'TYPE #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38338: (CCL::NX1-COMBINATION :VALUE (LIST (LIST* 'LET (LIST (LIST 'TYPE #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38339: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST (LIST* 'LET (LIST (LIST 'TYPE #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38340: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* ((TYPE #) (VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006..
38341: (CCL::NX1-FORM :VALUE (FN::M-LIST (LET* ((TYPE #) (VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029006ED>)
38342: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (LET* (# # # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x30200290076D> T)
38343: (CCL::NX1-LET :VALUE (LET (VARJO.INTERNALS:NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:NAME)) (FN::M-LIST (LET* (# # # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<C..
38344: (CCL::NX1-COMBINATION :VALUE (LET (VARJO.INTERNALS:NAME) ..) #<CCL::LEXICAL-ENVIRONMENT #x30200290076D>)
38345: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (VARJO.INTERNALS:NAME) ..) #<CCL::LEXICAL-ENVIRONMENT #x30200290076D>)
38346: (CCL::NX1-TYPED-FORM :VALUE (LET (VARJO.INTERNALS:NAME) ..) #<CCL::LEXICAL-ENVIRONMENT #x30200290076D>)
38347: (CCL::NX1-FORM :VALUE (LET (VARJO.INTERNALS:NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:NAME)) (FN::M-LIST (LET* (# # # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<..
38348: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (VARJO.INTERNALS:NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029037CD>)
38349: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (VARJO.INTERNALS:NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029037CD>)
38350: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (VARJO.INTERNALS:NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029037CD>)
38351: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029037CD>..
38352: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029037CD>)
38353: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:NAME) (DECLARE #) (FN::M-LIST #)))) 1)
38354: (CCL::NX1-LIST* :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONM..
38355: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-EN..
38356: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXIC..
38357: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENV..
38358: (CCL::NX1-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME (LIST 'BLOCK 'NIL #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONME..
38359: (CCL::NX1-FORMLIST :VALUE ((LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38360: (CCL::NX1-LIST-VECTOR-VALUES :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029037CD>)
38361: (CCL::NX1-COMBINATION :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029037CD>)
38362: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:NAME #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020029037CD>)
38363: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* ((VARJO.INTERNALS:NAME #) (TYPE #) (VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)))) #<CCL::LEXICAL..
38364: (CCL::NX1-FORM :VALUE (FN::M-LIST (LET* ((VARJO.INTERNALS:NAME #) (TYPE #) (VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) (VARJO.INTERNALS:STAGE #)) ..)))) #<CCL::LEXICAL-ENVIR..
38365: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (LET* (# # # # # #) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x30200290384D> T)
38366: (CCL::NX1-LET :VALUE (LET (VARJO.INTERNALS:LISP-NAME) ..) #<CCL::LEXICAL-ENVIRONMENT #x30200290384D>)
38367: (CCL::NX1-COMBINATION :VALUE (LET (VARJO.INTERNALS:LISP-NAME) ..) #<CCL::LEXICAL-ENVIRONMENT #x30200290384D>)
38368: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (VARJO.INTERNALS:LISP-NAME) ..) #<CCL::LEXICAL-ENVIRONMENT #x30200290384D>)
38369: (CCL::NX1-TYPED-FORM :VALUE (LET (VARJO.INTERNALS:LISP-NAME) ..) #<CCL::LEXICAL-ENVIRONMENT #x30200290384D>)
38370: (CCL::NX1-FORM :VALUE (LET (VARJO.INTERNALS:LISP-NAME) ..) #<CCL::LEXICAL-ENVIRONMENT #x30200290384D>)
38371: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:LISP-NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302002906D9D>)
38372: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:LISP-NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302002906D9D>)
38373: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:LISP-NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302002906D9D>)
38374: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:LISP-NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302..
38375: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE (IGNORABLE VARJO.INTERNALS:LISP-NAME)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302002906..
38376: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE #) (FN::M-LIST #)))) 1)
38377: (CCL::NX1-LIST* :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME (LIST 'PROGN # #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-E..
38378: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME (LIST 'PROGN # #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEX..
38379: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME (LIST 'PROGN # #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL..
38380: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME (LIST 'PROGN # #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXI..
38381: (CCL::NX1-FORM :VALUE (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME (LIST 'PROGN # #))) (FN::WITH-IMPOSED-BINDINGS (LET (VARJO.INTERNALS:LISP-NAME) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-EN..
38382: (CCL::NX1-FORMLIST :VALUE ((LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38383: (CCL::NX1-LIST-VECTOR-VALUES :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302002906D9D>)
38384: (CCL::NX1-COMBINATION :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302002906D9D>)
38385: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST (LIST* 'LET (LIST (LIST 'VARJO.INTERNALS:LISP-NAME #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302002906D9D>)
38386: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* ((VARJO.INTERNALS:LISP-NAME #) (VARJO.INTERNALS:NAME #) (TYPE #) (VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) ...) ..)))) #<CCL:..
38387: (CCL::NX1-FORM :VALUE (FN::M-LIST (LET* ((VARJO.INTERNALS:LISP-NAME #) (VARJO.INTERNALS:NAME #) (TYPE #) (VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) (#:KEY-SUPPLIED-P723 #) ...) ..)))) #<CCL::LEXIC..
38388: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x302002906E1D> T)
38389: (CCL::NX1-LET :VALUE (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVI..
38390: (CCL::NX1-COMBINATION :VALUE (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXI..
38391: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL:..
38392: (CCL::NX1-TYPED-FORM :VALUE (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXIC..
38393: (CCL::NX1-FORM :VALUE (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENV..
38394: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38395: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38396: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38397: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38398: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (#:KEYS722) (DECLARE (IGNORABLE #:KEYS722)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38399: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (#:KEYS722) (DECLARE #) (FN::M-LIST #)))) 1)
38400: (CCL::NX1-LIST* :VALUE (LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET (#:KEYS722) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38401: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET (#:KEYS722) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38402: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET (#:KEYS722) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38403: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET (#:KEYS722) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38404: (CCL::NX1-FORM :VALUE (LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET (#:KEYS722) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38405: (CCL::NX1-FORMLIST :VALUE ((LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38406: (CCL::NX1-LIST-VECTOR-VALUES :VALUE (LIST (LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38407: (CCL::NX1-COMBINATION :VALUE (LIST (LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38408: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST (LIST* 'LET (LIST (LIST '#:KEYS722 '#:ARGS721)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E877D>)
38409: (CCL::NX1-TYPED-FORM :VALUE (FN::M-LIST (LET* ((#:KEYS722 #:ARGS721) (VARJO.INTERNALS:LISP-NAME #) (VARJO.INTERNALS:NAME #) (TYPE #) (VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) ...) ..)))) #<CCL::L..
38410: (CCL::NX1-FORM :VALUE (FN::M-LIST (LET* ((#:KEYS722 #:ARGS721) (VARJO.INTERNALS:LISP-NAME #) (VARJO.INTERNALS:NAME #) (TYPE #) (VARI.GLSL::PLACE-P #) (VARI.GLSL::VERSIONS #) ...) ..)))) #<CCL::LEXICAL..
38411: (CCL::NX1-ENV-BODY :VALUE ((FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E87FD> T)
38412: (CCL::NX1-LET :VALUE (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVI..
38413: (CCL::NX1-COMBINATION :VALUE (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXI..
38414: (CCL::NX1-TRANSFORMED-FORM :VALUE (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL:..
38415: (CCL::NX1-TYPED-FORM :VALUE (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXIC..
38416: (CCL::NX1-FORM :VALUE (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENV..
38417: (CCL::NX1-LOCALLY :VALUE (LOCALLY (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E919D>)
38418: (CCL::NX1-COMBINATION :VALUE (LOCALLY (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E919D>)
38419: (CCL::NX1-TRANSFORMED-FORM :VALUE (LOCALLY (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E919D>)
38420: (CCL::NX1-TYPED-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E919D>)
38421: (CCL::NX1-FORM :VALUE (FN::WITH-IMPOSED-BINDINGS (LET (#:ARGS721) (DECLARE (IGNORABLE #:ARGS721)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E919D>)
38422: (CCL::NX1-ARGLIST ((FN::WITH-IMPOSED-BINDINGS (LET (#:ARGS721) (DECLARE #) (FN::M-LIST #)))) 1)
38423: (CCL::NX1-LIST* :VALUE (LIST* 'LET (LIST (LIST '#:ARGS721 (LIST 'CCL::PREPARE-TO-DESTRUCTURE '#:WHOLE720 # ...))) (FN::WITH-IMPOSED-BINDINGS (LET (#:ARGS721) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXIC..
38424: (CCL::NX1-COMBINATION :VALUE (LIST* 'LET (LIST (LIST '#:ARGS721 (LIST 'CCL::PREPARE-TO-DESTRUCTURE '#:WHOLE720 # ...))) (FN::WITH-IMPOSED-BINDINGS (LET (#:ARGS721) (DECLARE #) (FN::M-LIST #)))) #<CCL:..
38425: (CCL::NX1-TRANSFORMED-FORM :VALUE (LIST* 'LET (LIST (LIST '#:ARGS721 (LIST 'CCL::PREPARE-TO-DESTRUCTURE '#:WHOLE720 # ...))) (FN::WITH-IMPOSED-BINDINGS (LET (#:ARGS721) (DECLARE #) (FN::M-LIST #)))) #..
38426: (CCL::NX1-TYPED-FORM :VALUE (LIST* 'LET (LIST (LIST '#:ARGS721 (LIST 'CCL::PREPARE-TO-DESTRUCTURE '#:WHOLE720 # ...))) (FN::WITH-IMPOSED-BINDINGS (LET (#:ARGS721) (DECLARE #) (FN::M-LIST #)))) #<CCL::..
38427: (CCL::NX1-FORM :VALUE (LIST* 'LET (LIST (LIST '#:ARGS721 (LIST 'CCL::PREPARE-TO-DESTRUCTURE '#:WHOLE720 # ...))) (FN::WITH-IMPOSED-BINDINGS (LET (#:ARGS721) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICA..
38428: (CCL::NX1-FORMLIST :RETURN ((LIST* 'LET (LIST (LIST '#:ARGS721 #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))))
38429: (CCL::NX1-LIST-VECTOR-VALUES :RETURN (LIST (LIST* 'LET (LIST (LIST '#:ARGS721 #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E919D>)
38430: (CCL::NX1-COMBINATION :RETURN (LIST (LIST* 'LET (LIST (LIST '#:ARGS721 #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E919D>)
38431: (CCL::NX1-TRANSFORMED-FORM :RETURN (LIST (LIST* 'LET (LIST (LIST '#:ARGS721 #)) (FN::WITH-IMPOSED-BINDINGS (LET # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E919D>)
38432: (CCL::NX1-TYPED-FORM :RETURN (FN::M-LIST (LET* ((#:ARGS721 #) (#:KEYS722 #:ARGS721) (VARJO.INTERNALS:LISP-NAME #) (VARJO.INTERNALS:NAME #) (TYPE #) (VARI.GLSL::PLACE-P #) ...) ..)) #<CCL::LEXICAL-ENVI..
38433: (CCL::NX1-FORM :RETURN (FN::M-LIST (LET* ((#:ARGS721 #) (#:KEYS722 #:ARGS721) (VARJO.INTERNALS:LISP-NAME #) (VARJO.INTERNALS:NAME #) (TYPE #) (VARI.GLSL::PLACE-P #) ...) ..)) #<CCL::LEXICAL-ENVIRONMEN..
38434: (CCL::NX1-ENV-BODY :RETURN ((FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E923D> T)
38435: (CCL::NX1-LET :RETURN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-E..
38436: (CCL::NX1-COMBINATION :RETURN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::L..
38437: (CCL::NX1-TRANSFORMED-FORM :RETURN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<C..
38438: (CCL::NX1-TYPED-FORM :RETURN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LE..
38439: (CCL::NX1-FORM :RETURN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* (# # # # # # ...) (DECLARE # #) (DECLARE #) (ASSERT VARJO.INTERNALS:LISP-NAME) (LET* # #)))) #<CCL::LEXICAL-..
38440: (CCL::NX1-COMBINATION :RETURN (PROGN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E923D>)
38441: (CCL::NX1-TRANSFORMED-FORM :RETURN (PROGN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E923D>)
38442: (CCL::NX1-TYPED-FORM :RETURN (PROGN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E923D>)
38443: (CCL::NX1-FORM :RETURN (PROGN (LET (#:WHOLE720) (DECLARE (IGNORABLE #:WHOLE720)) (FN::M-LIST (LET* # # # # #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E923D>)
38444: (CCL::NX1-ENV-BODY :RETURN ((PROGN (LET (#:WHOLE720) (DECLARE #) (FN::M-LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3020028E92DD> T)
38445: (CCL::NX1-LAMBDA NIL ((PROGN (LET (#:WHOLE720) (DECLARE #) (FN::M-LIST #)))) NIL)
38446: (CCL::NX1-COMPILE-LAMBDA NIL (LAMBDA NIL (PROGN (LET (#:WHOLE720) (DECLARE #) (FN::M-LIST #)))) #<CCL::AFUNC #x3020028E932D> NIL #<CCL::LEXICAL-ENVIRONMENT #x3020028E93FD> #<COMPILER-POLICY #x3020001C..
⋮
38481: (FUNCALL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) #x3020028E12BF>)
38482: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION # #<CL-SOURCE-FILE "varjo" "src/vari.glsl/variables-from-spec">)
38483: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE ((NIL) #<STANDARD-METHOD ASDF/ACTION:PERFORM (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)> # ..))
38484: (CCL::%CALL-NEXT-METHOD ((NIL) #<STANDARD-METHOD ASDF/ACTION:PERFORM (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)> # ..))
38485: ((:INTERNAL ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
38486: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)> (#<STANDARD-METHOD ASDF/ACTION:PERFORM :BEFORE #>) ..)) 75625..
38487: (NIL #)
38488: (CCL::%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (T T)> . 75625207))
38489: (#<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)> # #<CL-SOURCE-FILE "varjo" "src/vari.glsl/variables-from-spec">)
38490: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)> #<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (T T)>) 75625207)
38491: (NIL #)
38492: (#<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN (T)> #<ASDF/PLAN:SEQUENTIAL-PLAN #x3020027CAAED>)
38493: (CCL::%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN (T)> . 75625267))
38494: (CCL::CALL-WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY (ASDF/PLAN:PERFORM-PLAN :AROUND (T))) #x2421C6FF> :OVERRIDE NIL)
38495: (#<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)> #<ASDF/PLAN:SEQUENTIAL-PLAN #x3020027CAAED>)
38496: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)> #<STANDARD-METHOD ASDF/PLAN:PERFORM-PLAN (T)>) 75625267)
38497: (NIL #)
38498: (CCL::%%CHECK-KEYWORDS #(1 #() #<Combined-Method ASDF/PLAN:PERFORM-PLAN #x3020007009CF>) 75625278)
38499: (NIL #)
38500: (#<STANDARD-METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)> # #<SYSTEM "cepl"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL)
38501: (CCL::%CALL-NEXT-METHOD ((NIL) #<STANDARD-METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)> # #<SYSTEM "cepl"> :VERBOSE NIL))
38502: ((:INTERNAL (ASDF/OPERATE:OPERATE :AROUND (T T))))
38503: (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)> ((NIL) #<STANDARD-METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)> # #<SYSTEM "cepl"> :VERBOSE NIL) #<LO..
38504: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)> (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :BEFORE #> #<#>) NIL ..))) 75625357)
38505: (NIL #)
38506: (CCL::%CALL-NEXT-METHOD ((NIL) #<STANDARD-METHOD ASDF/OPERATE:OPERATE (SYMBOL T)> ASDF/LISP-ACTION:LOAD-OP "cepl" :VERBOSE NIL))
38507: ((:INTERNAL (ASDF/OPERATE:OPERATE :AROUND (T T))))
38508: (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)> ((NIL) #<STANDARD-METHOD ASDF/OPERATE:OPERATE (SYMBOL T)> ASDF/LISP-ACTION:LOAD-OP "cepl" :VERBOSE NIL) ASDF/LISP-ACTION:LOAD-OP "cepl")
38509: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)> (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :BEFORE #>) NIL ..) 75625430)
38510: (NIL #)
38511: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL (ASDF/OPERATE:OPERATE :AROUND (T T))) #x3020027CB65F> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
38512: ((:INTERNAL (ASDF/OPERATE:OPERATE :AROUND (T T))))
38513: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL (ASDF/OPERATE:OPERATE :AROUND (T T))) #x3020027C2E1F> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
38514: (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)> ((NIL) ((#<STANDARD-METHOD ASDF/OPERATE:OPERATE :BEFORE #>) NIL #<STANDARD-METHOD ASDF/OPERATE:OPERATE (SYMBOL T)>) ASDF/LISP-ACTION:LOAD-OP ..) ..
38515: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)> (#<STANDARD-METHOD ASDF/OPERATE:OPERATE :BEFORE #>) NIL ..) 75625519)
38516: (NIL #)
38517: (ASDF/OPERATE:LOAD-SYSTEM "cepl" :VERBOSE NIL)
38518: ((:INTERNAL QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY))
38519: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS #<COMPILED-LEXICAL-CLOSURE (:INTERNAL QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) #x3020027C300F>)
38520: (QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY #<LOAD-STRATEGY "cepl" (1 asdf, 0 quicklisp)>)
38521: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "cepl" :PROMPT NIL)
38522: ((:INTERNAL QUICKLISP-CLIENT::QL (QUICKLISP-CLIENT:QUICKLOAD (T))))
38523: (#<STANDARD-METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)> #<QL-IMPL:CCL #x30200072466D> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL QUICKLISP-CLIENT::QL ..))
38524: (QL-IMPL-UTIL:CALL-WITH-QUIET-COMPILATION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL QUICKLISP-CLIENT::QL (QUICKLISP-CLIENT:QUICKLOAD (T))) #x3020027C4CCF>)
38525: (#<STANDARD-METHOD QUICKLISP-CLIENT:QUICKLOAD (T)> (CEPL) :PROMPT NIL :SILENT NIL :VERBOSE NIL)
38526: (CCL::%CALL-NEXT-METHOD ((NIL) #<STANDARD-METHOD QUICKLISP-CLIENT:QUICKLOAD (T)> (CEPL)))
38527: ((:INTERNAL (QUICKLISP-CLIENT:QUICKLOAD :AROUND (T))))
38528: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<COMPILED-LEXICAL-CLOSURE (:INTERNAL (QUICKLISP-CLIENT:QUICKLOAD :AROUND (T))) #x3020027C548F>)
38529: (#<STANDARD-METHOD QUICKLISP-CLIENT:QUICKLOAD :AROUND (T)> ((NIL) #<STANDARD-METHOD QUICKLISP-CLIENT:QUICKLOAD (T)> (CEPL)) :VERBOSE (CEPL) :PROMPT NIL :EXPLAIN NIL)
38530: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD QUICKLISP-CLIENT:QUICKLOAD :AROUND (T)> #<STANDARD-METHOD QUICKLISP-CLIENT:QUICKLOAD (T)>) 75625677)
38531: (NIL #)
38532: (CCL::CALL-CHECK-REGS QUICKLISP-CLIENT:QUICKLOAD (CEPL))
38533: (CCL::CHEAP-EVAL (QL CEPL))
38534: (SWANK::EVAL-REGION "(ql cepl)\n")
38535: ((:INTERNAL SWANK-REPL::REPL-EVAL))
38536: (SWANK-REPL::TRACK-PACKAGE #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK-REPL::REPL-EVAL) #x3020027C571F>)
38537: ((:INTERNAL SWANK-REPL::REPL-EVAL))
38538: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK-REPL::REPL-EVAL) #x3020027C579F>)
38539: ((:INTERNAL SWANK-REPL::REPL-EVAL))
38540: (#<Anonymous Function #x302000A051FF> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK-REPL::REPL-EVAL) #x3020027C57DF>)
38541: (SWANK/BACKEND:CALL-WITH-SYNTAX-HOOKS #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK-REPL::REPL-EVAL) #x3020027C57DF>)
38542: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK-REPL::REPL-EVAL) #x3020027C57DF>)
38543: (SWANK-REPL::REPL-EVAL "(ql cepl)\n")
38544: (SWANK-REPL:LISTENER-EVAL "(ql cepl)\n" :WINDOW-WIDTH NIL)
38545: (CCL::CALL-CHECK-REGS SWANK-REPL:LISTENER-EVAL "(ql cepl)\n")
38546: (CCL::CHEAP-EVAL (SWANK-REPL:LISTENER-EVAL "(ql cepl)\n"))
38547: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(ql cepl)\n") "COMMON-LISP-USER" 44)
38548: (SWANK::PROCESS-REQUESTS NIL)
38549: ((:INTERNAL SWANK::HANDLE-REQUESTS))
38550: ((:INTERNAL SWANK::HANDLE-REQUESTS))
38551: (SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x302000B986CF> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302000D8509F>)
38552: (SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x302000B986CF> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302000D8509F>)
38553: ((:INTERNAL SWANK::HANDLE-REQUESTS))
38554: (SWANK::CALL-WITH-BINDINGS ((STANDARD-INPUT . #<SWANK/GRAY::SLIME-INPUT-STREAM #x302000D7DFFD>)) #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302000D8505F>)
38555: (SWANK::HANDLE-REQUESTS #<MULTITHREADED-CONNECTION #x302000C204DD> NIL)
38556: (SWANK-REPL::REPL-LOOP #<MULTITHREADED-CONNECTION #x302000C204DD>)
38557: ((:INTERNAL SWANK-REPL::SPAWN-REPL-THREAD))
38558: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK-REPL::SPAWN-REPL-THREAD) #x302000D850EF>)
38559: ((:INTERNAL SWANK-REPL::SPAWN-REPL-THREAD))
38560: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(13) [Active] #x302000D7EC9D> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x302000D7EA2F>))
38561: ((:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS))) #<PROCESS repl-thread(13) [Active] #x302000D7EC9D> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x302000D7EA2F>))
38562: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
The text was updated successfully, but these errors were encountered: