search

cbaggers / varjo

Lisp to GLSL Language Translator
BSD 2-Clause "Simplified" License
220 stars 23 forks source link

(ql:quickload "varjo") ; infinite loop stack overflow crash #239

Open Devon7 opened 4 years ago

Devon7 commented 4 years ago 
varjo-release-quicklisp-6150bdcb-git
quicklisp 2020-07-15
quicklisp client 2020-01-04
CCL v1.12-25-g595a5cf
MacOSX 10.14.6 "Mojave"

⋮ 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))

metayan commented 4 years ago

This issue appears in newer CCL and is handled in https://github.com/cbaggers/fn/issues/5 as investigated and explained in https://github.com/Clozure/ccl/issues/270