hưs8€p€,€ì€FALCONF€€2€D€ p€,€¬�COMPILE-DATAD€¬€RWK€ì�Claude Debussy†€•¦(pF€}F€D€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€¶€ ¬€SITEp€B€¶€ ¬€LMI€p€B€¶€ ¬ƒSOURCE-FILE-GENERIC-PATHNAME1€D€p€l€FSì‚MAKE-FASLOAD-PATHNAME€D€p€B€¶€+ì€QUOTE€¬€SYS€D€B€¶€:p€B€¶€ l�UNSPECIFICD€B€¶€:D€¬€SYS€D€B€¶€:ì€QCDEFSD€B€¶€:B€¶€>D€B€¶€:B€¶€>p€B€¶€ ¬ƒQFASL-SOURCE-FILE-UNIQUE-ID€1€D€B€¶€8D€B€¶€:l€DJD€B€¶€:¬€DSK€D€B€¶€:D€l€L€¬€SYS€D€B€¶€:ì€QCDEFSD€B€¶€:¬€LISPD€B€¶€:F€îp€B€¶€ l�READTABLE€p€B€¶€ l€ZLp€B€¶€ ¬€BASEF€p€B€¶€ ,�PACKAGE€p€B€¶€ ,�COMPILER9€ƒ‚COMPILER-FASD-SWITCH<€F€F€ F€F€F€ €F€=€F€F€*pÀì�LISP-INTERNALSì€LIST4€F€F€)pÀB€¶€hì€LIST*€F€F€(ƒ€CDR€F€F€%pÀB€¶€hì€LIST3€F€F€$B€¶€lF€F€"pÀB€¶€hì€LIST2€F€F€!ƒ€CAR€F€F€pÀB€¶€hì€NCONS€F€F€B€¶€qF€F€B€¶€oF€F€B€¶€qF€F€B€¶€rF€F€ƒ€CADRF€F€pÀl€SI,ƒMACRO-REPORT-ARGS-ERROR€F€F€ C�INTERNAL->F€F€ÀLENGTHF€F€C�INTERNAL-€F€F€F€F€€:«F€+€j€"@ C@Af�B@ž@@A ž€ @Až€ C@Af�B@ž@@Až€@Až€ Ab€@b�B CÅÁÁÀÁ%C@žBAžB@žBACÁÀÁj€@ÀÁ%CAžBÀ@žB@žBÁÀ$CAžBAžF;€F€ F€'ƒ€FCTNF€&�FUNCALL€F€#D€‚*FASD-INTERFACE*F€ B€¶€:F€l…No fasd interface function. ~s in ~s modeF€ÀFERRORF€D€ƒ€NULLB€¶€}F€C€IFF€B€¶€:F€B€¶€F€ƒ€GET€F€B€¶€}F€ƒ€LET€DÀÀMACRO€B€|O€‰B€¶€g9€Ã‚COMPILER-TARGET-SWITCH<€F€F€ F€F€F€ €F€=€F€F€*B€¶€jF€F€)B€¶€lF€F€(B€¶€mF€F€%B€¶€oF€F€$B€¶€lF€F€"B€¶€qF€F€!B€¶€rF€F€B€¶€tF€F€B€¶€qF€F€B€¶€oF€F€B€¶€qF€F€B€¶€rF€F€B€¶€uF€F€B€¶€xF€F€ B€¶€yF€F€B€¶€zF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€:«F€+€j€"@ C@Af�B@ž@@A ž€ @Až€ C@Af�B@ž@@Až€@Až€ Ab€@b�B CÅÁÁÀÁ%C@žBAžB@žBACÁÀÁj€@ÀÁ%CAžBÀ@žB@žBÁÀ$CAžBAžF;€F€ F€'B€¶€}F€&B€¶€~F€#D€C‚*TARGET-COMPUTER*€F€ B€¶€:F€¬…No target interface function. ~s in ~s mode€F€B€¶€‚F€D€B€¶€ƒB€¶€}F€B€¶€…F€B€¶€:F€B€¶€ŒF€B€¶€†F€B€¶€}F€B€¶€‡DÀB€¶€ˆB€‹O€�B€¶€Š1€D€pÀB€¶€v¬‚DEFVAR-RESETTABLE-1€D€B€¶€:B€¶€ŒD€B€¶€:‚LAMBDA-INTERFACED€B€¶€:B€¶€”ƒ€NIL€9€ƒTARGET-PROCESSOR-SYMBOL€<€F€F€F€F€F€ =€F€F€B€¶€‚F€F€pÀì€SYMBOLì�%SYMBOL-VALUE€F€F€ C€EQF€F€ B€¶€�F€F€B€¶€žF€F€B€¶€�F€>€F€€€:—F€Á@žB@AÀ@žB@ž@@Až€ @Až€€ÄÁ@žB@AÀ@žB@ž@@Až€@Až€€Äj€EÀÁ@žBAžF;€F€F€B€¶€ŒF€l…*TARGET-COMPUTER* is ~s, which is unknown€F€p€B€¶€ ì€FALCONF€ C€K€F€ B€¶€ŒF€p€B€¶€ ì€LAMBDAF€B€¶€”€B€¶€ŒO€ŸB€¶€š1€D€�DEFPROP€B€¶€”�FDEFINE€B€¶€§1€D€B€¶€¦B€¶€”ƒ€PEEPB€¶€ª1€D€B€¶€¦B€¶€”ÀQLAPP€B€¶€­1€D€B€¶€¦B€¶€”�P2SBIND€ƒ‚P2SBIND-FOR-TOPLEVEL1€D€B€¶€¦B€¶€”ƒ‚ASSIGN-LAP-ADDRESSESB€¶€´1€D€B€¶€¦B€¶€”‚VAR-COMPUTE-INITB€¶€·1€D€B€¶€¦B€¶€”C€P2B€¶€º1€D€B€¶€’D€B€¶€:B€¶€D€B€¶€:ÂLAMBDA-FASD-INTERFACE€D€B€¶€:B€¶€¾B€¶€—1€D€B€¶€¦B€¶€¾ƒFASD-FILE-PROPERTY-LIST€B€¶€Ã1€D€B€¶€’D€B€¶€:ƒQCOMPILE-TEMPORARY-AREA€B€¶€—B€¶€—ìˆArea for compilation itself (within QC-TRANSLATE-FUNCTION) to cons in.1€D€pÀB€¶€v,�DEFVAR-1C„GENERATING-MICRO-COMPILER-INPUT-P€B€¶€—lžThis is T if the compiler is generating macro-code to pass to the micro compiler.�In that case, the code is generated a little differently�so as to lead to more optimal microcode.�(Actually, it can fail to be valid macrocode, in little ways).1€D€B€¶€ÌƒFUNCTION-BEING-PROCESSEDp€B€¶€ ,�UNBOUND€¬ŒFunction the compiler was called on. Bound only inside the closure used in EH:*ERROR-MESSAGE-HOOK*€1€D€pÀB€¶€vl�DEFFLAVOR2D€B€¶€:Ã�INTERNAL-ERRORD€B€¶€:B€¶€—D€B€¶€:D€B€¶€‚D€B€¶€:D€D€p€B€¶€ l‚DEFAULT-INIT-PLISTp€B€¶€ ì�FORMAT-STRING€¬„~Compiler-internal error~%~A: ~S~€D€p€B€¶€ ì�DOCUMENTATION€ì…Signaled for a compiler bug or fatal condition9€ƒ€BARF<€F€€F€=€F€F€ ÀSIGNALF€F€ B€¶€qF€F€ÀFORMATF€F€B€¶€�F€F€B€¶€�F€>€F€F€F€F€€:�F€ €j€$@ Á@žB@AÀÁ@žB@žBÅÀ"A BAžF;€F€F€ p€B€¶€ ¬�FORMAT-ARGS€F€B€¶€ÙF€B€¶€ÑF€lƒ~%<< While compiling ~S >>F€Ã�*ERROR-OUTPUT*O€ïB€¶€ì1€D€B€¶€ÌÂFUNCTION-TO-BE-DEFINEDB€¶€—ìˆFunction spec to be defined as the result of the current compilation.€1€D€B€¶€ÌÂNAME-TO-GIVE-FUNCTION€B€¶€—,‘This is the function spec to put in the name of the fef produced by the compilation.�Usually this is the same as FUNCTION-TO-BE-DEFINED.1€D€pÀB€¶€vl�DEFCONST-1‚COMPILER-VERBOSEB€¶€—,ˆT means print name of each function when its compilation begins.1€D€B€¶€ÌÂTHIS-FUNCTION-ARGLIST€B€¶€—ì‰Arglist of the function being compiled. Used for warnings on recursive calls.1€D€B€¶€Ìƒ„THIS-FUNCTION-ARGLIST-FUNCTION-NAME€B€¶€—,ˆName of function that THIS-FUNCTION-ARGLIST is the arglist for.€1€D€B€¶€ý�HOLDPROGB€¶€-ì‹If NIL, the lap instructions are typed out on the terminal�instead of being saved up for lap.€1€D€B€¶€ÌÃ�*SPECIALFLAG*€B€¶€ÓìŠT means the function has bound a special variable.�This information goes into the FEF.1€D€B€¶€’D€B€¶€:C‚LOCAL-DECLARATIONSB€¶€—B€¶€—,—List of local declarations made by LOCAL-DECLARE or DECLARE.�Each one is a list starting with a local declaration type,�followed by more information meaningful according to that type.€1€D€B€¶€’D€B€¶€:ÂUNDO-DECLARATIONS-FLAGB€¶€—B€¶€—ì—T during file-to-file compilation, causes DEFMACRO and DEFSUBST to work differently.�They push elements on FILE-LOCAL-DECLARATIONS rather than�actually defining functions in the environment.1€D€B€¶€’D€B€¶€:C‚FILE-SPECIAL-LIST€B€¶€—B€¶€—lˆList of symbols declared globally special in file being compiled.€1€D€B€¶€’D€B€¶€:ƒ‚FILE-UNSPECIAL-LIST€B€¶€—B€¶€—¬ˆList of symbols declared globally unspecial in file being compiled.€1€D€B€¶€’D€B€¶€:ƒFILE-LOCAL-DECLARATIONS€B€¶€—B€¶€—l›Like LOCAL-DECLARATIONS for declarations at top level in file being compiled.�However, SPECIAL and UNSPECIAL declarations are handled differently�using FILE-SPECIALS and FILE-UNSPECIALS, for greater speed in SPECIALP.€1€D€B€¶€’D€B€¶€:ƒSELF-FLAVOR-DECLARATION€B€¶€—B€¶€—l–This is non-NIL if we are supposed to compile�direct accesses to instance variables of SELF.�Its value then is (flavor-name (special-instance-var-names...) instance-var-names...)1€D€B€¶€ÌC‚BARF-SPECIAL-LIST€B€¶€—,‡List of symbols automatically made special in this file.1€D€B€¶€Ì„THIS-FUNCTION-BARF-SPECIAL-LIST€B€¶€—l‘List of symbols used free in this function but not declared special.�These are the symbols that have been warned about for this function.€1€D€B€¶€ÌƒINHIBIT-SPECIAL-WARNINGSB€¶€—lˆIf non-NIL, no warning is made about free references to variables.1€D€B€¶€Ì„*CLOBBER-NONSPECIAL-VARS-LISTS*€1€D€B€¶€Ì�*BINDP*€B€¶€Ól‘*BINDP* on pass 1 is T if %BIND is called in the current frame.�It is then consed into the internal form of the frame, for pass 2's sake.€1€D€B€¶€Ìƒ�QCMP-OUTPUT€B€¶€Ól‰An ART-Q-LIST array into which the lap-instructions are stored by pass 2.€1€D€B€¶€ÌÂQC-TF-PROCESSING-MODE€B€¶€Ó,‰What kind of compilation this is. Either MACRO-COMPILE or MICRO-COMPILE.1€D€B€¶€ÌC‚QC-TF-OUTPUT-MODE€B€¶€Ó,žQC-TF-OUTPUT-MODE is used by LAP to determine where to put the compiled code.�It is COMPILE-TO-CORE for making an actual FEF, or QFASL, or REL, or�QFASL-NO-FDEFINE to simply dump a FEF without trying to define a function�(poor modularity).€1€D€B€¶€Ì�*TLEVEL*B€¶€Ól�*TLEVEL* on pass 1 is T if we are at "top level" within the function being compiled,�not within any actual function calls.�If a LET is seen when *TLEVEL* is set, the locals of the prog can�be initialized by the entry to the function.€1€D€B€¶€ÌC�TLFUNINIT€B€¶€Ó,¬TLFUNINIT on pass 1 is T if we have already seen a variable initialized to the�result of a function call. Such initializations can't be done except�by compiled code, and once we have initialized one thing that way�all succeeding variables must be initialized by code as well.�(This applies to serial binding constructs. Parallel is a little different)1€D€B€¶€Ìƒ‚*FAST-ARGS-POSSIBLE*B€¶€Ó,¤*FAST-ARGS-POSSIBLE* on pass 1 is T if we haven't come across�any argument to this function with a non-NIL initialization.�If this remains T after all the arguments are processed,�then it is an optimization to make top-level prog vars�be initialized at function entry instead of by code.€1€D€B€¶€ÌC�*P1VALUE*€B€¶€Ó¬³During pass 1, *P1VALUE* is NIL when compiling a form whose value is to be discarded.�P1VALUE is COMPILER::PREDICATE when compiling for predicate value (nilness or non-nilness)�P1VALUE is an integer n when compiling for at most n values (1  most-positive-fixnum)�P1VALUE is T when compiling for all the values which the form will return.�On pass 2, "destinations" are used instead, with a bit more information.€1€D€B€¶€Ì�P1VALUE€1€D€C‚FORWARD-VALUE-CELLD€B€¶€:B€¶€_D€B€¶€:B€¶€[1€D€B€¶€Ì‚*CHECK-STYLE-P*€B€¶€-¬˜During pass 1, means to perform style checking on the current outermost form being�compiler. Inner forms will have their style checked regardless of this flag, unless�somebody arranges otherwise.€1€D€B€¶€ÌCƒ*SELF-REFERENCES-PRESENT*€B€¶€Óì†Set to T during pass 1 if any SELF-REFs are generated.1€D€B€¶€Ìƒ�PEEP-ENABLE€B€¶€-ì“PEEP-ENABLE, if T, means that the peephole optimizer should be used.�The only reason for setting this to NIL is if you suspect a bug in peephole optimization.1€D€B€¶€Ìƒ‚*INHIBIT-OPTIMIZERS*B€¶€—l“If T, bypasses all calls to optimizers (Rewriters still happen).�The only reason for setting this to T is if you suspect a bug introduced by an optimizer.1€D€B€¶€Ìƒ‚FUNCTIONS-REFERENCEDB€¶€ÓìžFUNCTIONS-REFERENCED is a list of all functions referred to in the file being�compiled, and not defined in the world. Each element has as its CAR the�name of the function, and as its CDR a list of the names of the functions�which referenced it.€1€D€B€¶€ÌB€¶€gB€¶€-¬˜During pass 1, means to perform style checking on the current outermost form being�compiler. Inner forms will have their style checked regardless of this flag, unless�somebody arranges otherwise.€1€D€B€¶€Ì‚*BREAKOFF-COUNT*1€D€B€¶€Ìƒ*LEXICAL-CLOSURE-COUNT*€B€¶€Ól†Counts number of lexical closures we had to make.€1€D€B€¶€ÌÄ*HIGHEST-LEXICAL-CLOSURE-DISCONNECTED*B€¶€Ó,�Hopefully this will work!�Bound to 0 in QCOMPILE0 just before calling P2. Then, it is used to�ensure that each stack closure is only disconnected only once.�This depends on our guess that they get disconnected in increasing order.€1€D€B€¶€Ì‚*COMPILER-AREA*€D€C�MAKE-AREA€p€B€¶€ ¬€NAMED€B€¶€:Ã�COMPILER-AREA€p€B€¶€ ¬�REGION-SIZE€†€p€B€¶€ ¬€ROOMB€¶€-1€D€B€¶€’D€B€¶€:ƒƒINSIDE-QC-TRANSLATE-FUNCTIONB€¶€—B€¶€—¬„T while inside QC-TRANSLATE-FUNCTION1€D€B€¶€Ìƒ*COMPILING-BREAKOFFS-P*€B€¶€Ó¬…T when compiling breakoffs for a functions.€1€D€B€¶€ÌÃ*PLACEHOLDER-FUNCTION-NUMBER*€1€D€B€¶€Ìƒ‚*PLACEHOLDER-ALIST*€1€D€C‚ADD-INITIALIZATIONl‚Compiler warm bootD€B€¶€:D€C‚COMPILER-WARM-BOOTp€B€¶€ ¬€WARM9€B€¶€¨<€€=€F€F€CƒDEALLOCATE-WHOLE-RESOURCE€F€>€F€€€:‚F€ÅAžF;€F€€ÃƒCOMPILER-TEMPORARIES-RESOURCE€O€°B€¶€¨9€C‚LOCKING-RESOURCES€<€F€€F€=€F€F€ B€¶€lF€F€B€¶€tF€F€B€¶€lF€F€B€¶€mF€>€F€F€F€F€€:ŠF€ €j€"@ CÅÁj€@À$BACÀAžF;€F€F€D€D€B€¶€…B€¶€ÆD€Ã�.CONTINUATION.D€Ã�USING-RESOURCED€ÀTEMPS€B€¶€±D€B€¶€‡D€D€B€¶€ÆB€¶€‰D€‚FASD-HASH-TABLE€D€ÀSECONDB€¶€·D€ƒ‚FASD-EVAL-HASH-TABLED€ÀTHIRD€B€¶€·D€B€¶€CD€ÀFOURTHB€¶€·D€ÂFASD-TYO-BUFFER-ARRAY€D€ÀFIFTH€B€¶€·D€ƒ€SENDB€¶€ºp€B€¶€ l�CLEAR-HASHD€B€¶€ÊB€¶€¾B€¶€ÌD€ƒ€SETFD€ƒ�FILL-POINTERB€¶€C€D€ƒ‚MULTIPLE-VALUE-PROG1D€B€¶€´D€B€¶€ÊB€¶€ºB€¶€ÌD€B€¶€ÊB€¶€¾B€¶€ÌD€‚ARRAY-INITIALIZEB€¶€CB€¶€—F€D€�DECLARE€D€C‚DOWNWARD-FUNCTION€D€p€l€EHì‚UNINTERESTING-FUNCTIONB€¶€ˆF€B€¶€´F€ƒ€FLETDÀB€¶€ˆB€³O€èB€¶€²9€CƒLOCKING-RESOURCES-NO-QFASL<€F€€F€=€F€F€ B€¶€lF€F€B€¶€tF€F€B€¶€lF€F€B€¶€mF€>€F€F€F€F€€:ŠF€ €j€"@ CÅÁj€@À$BACÀAžF;€F€F€D€D€B€¶€…B€¶€ÆD€B€¶€´D€B€¶€¶D€B€¶€·B€¶€±D€B€¶€‡D€D€B€¶€ÆB€¶€‰D€B€¶€ºB€¶€—D€B€¶€¾B€¶€—D€B€¶€CD€B€¶€ÂB€¶€·D€B€¶€ÅB€¶€—D€B€¶€ÏD€B€¶€ÐB€¶€C€D€B€¶€ÔD€B€¶€´D€B€¶€ØB€¶€CB€¶€—F€D€B€¶€ßD€B€¶€àD€B€¶€äB€¶€ˆF€B€¶€´F€B€¶€çDÀB€¶€ˆB€êO€B€¶€é9€D€p€B€¶€ ,�PROPERTYB€¶€±pÀB€¶€v¬‚RESOURCE-CONSTRUCTOR<€€=€F€ F€ pÀB€¶€hì€LISTN€F€F€pÀB€¶€v,‚SET-FILL-POINTERF€F€pÀB€¶€vl‚SIMPLE-MAKE-ARRAY€F€F€B€¶€�F€F€B€¶€ F€F€B€¶€ F€F€B€¶€�F€F€‚MAKE-HASH-TABLE€F€F€B€¶€�F€F€ ÀEQUAL€€F€B€¶€ F€F€B€¶€�F€F€B€¶€�F€>€F€F€€:¡F€!Á@žB@EÁ@ÀÀÁAžBAžBÁ4ÀÀÀÀÁAžB@žBÁÀÁ@žBcˆB"A`�B"@ÁÀÁ@žBcˆB"A`�B#F;€F€ F€B€¶€‰F€�ART-16B€F€B€¶€‰F€C�ART-Q-LISTF€B€¶€‰F€ p€B€¶€ ¬€AREAF€ p€B€¶€ ¬€SIZEF€ p€B€¶€ ¬€TESTF€B€¶€‰F€B€¶€F€B€¶€€B€¶€‰O€B€¶€1€D€ pÀB€¶€v¬‚INITIALIZE-RESOURCE€D€B€¶€:B€¶€±D€B€¶€:B€¶€D€B€¶€:B€¶€—D€B€¶€:B€¶€—D€B€¶€:B€¶€—D€B€¶€:B€¶€—D€B€¶€:€D€B€¶€:F€D€B€¶€:B€¶€—D€B€¶€:B€¶€—D€B€¶€:B€¶€—1€D€B€¶€’D€B€¶€:CƒCOMPILER-WARNINGS-CONTEXT€B€¶€—B€¶€—¬ŠFlag when compiler warnings are being saved for a higher level, like in MAKE-SYSTEM€9€ÃƒCOMPILER-WARNINGS-CONTEXT-BIND<€F€€F€=€F€ F€B€¶€oF€F€B€¶€jF€F€B€¶€oF€F€B€¶€lF€F€ B€¶€lF€F€B€¶€tF€F€B€¶€lF€F€ÀGENSYM€F€B€¶€mF€>€F€F€F€F€€:•F€€j€"@ CA žCÅ&AÀ@žBACÁ&@ÀÁÁ%BÁ&@À@žBAžB@žBAžF;€F€F€D€D€C…PRINT-FUNCTIONS-REFERENCED-BUT-NOT-DEFINEDF€ƒ€WHENF€ ÀPROGN€F€ B€¶€ÔF€ D€D€B€¶€)B€¶€-D€B€¶€wB€¶€—D€B€¶€0B€¶€—F€ÀLET-IFF€D€D€ƒ€NOT€B€¶€)F€B€¶€‡DÀB€¶€ˆB€0O€>B€¶€.9€Ã‚FUNCTION-REFERENCED-P€<€€=€F€F€ƒ�ASSOC-EQUAL€F€F€B€¶€�F€>€F€F€€:„F€ EÁAžBAžF;€F€F€B€¶€wO€AB€¶€?9€C‚COMPILATION-DEFINE<€F€F€ F€ F€F€=€F€F€p€B€¶€vì‚FUNCTION-SPEC-PUTPROP€F€F€B€¶€�F€F€B€¶€;F€€ƒ€ATOMF€>€F€F€€:�F€ C@C@ž@@A ž€@Až€ EÁ@žB@ž@@A ž€ @Až€h€@@@ÀAžF@€D;€F€F€ p€B€¶€ ¬‚COMPILATION-DEFINED€F€ÂFDEFINE-FILE-PATHNAME€O€FB€¶€B9€ƒ‚COMPILATION-DEFINEDP<€F€F€ F€F€F€F€F€=€F€F€B€¶€;F€F€ƒ€MEMQF€F€p€B€¶€vl‚FUNCTION-SPEC-GET€F€F€ C�FDEFINEDP€F€F€B€¶€;F€€B€¶€EF€>€F€F€€:—F€ C@C@ž@@A ž€@Až€ @@@ž@@Až€@Až€ C@ž@@A ž€@Až€ AÀ@žB@AÀ@žBAG@€Dj€€D@€D;€F€F€D€B€¶€—p€B€¶€ l�UNDEFINED€F€B€¶€HO€OB€¶€J9€C„EXTRACT-DECLARATIONS-RECORD-MACROS<€F€€F€=€F€F€B€¶€oF€F€B€¶€lF€F€B€¶€mF€>€F€F€F€F€€:‡F€€j€"@ CÅÀÁ$BAžF;€F€F€ƒ‚EXTRACT-DECLARATIONSF€D€D€ÂRECORD-MACROS-EXPANDEDB€¶€-F€B€¶€‡DÀB€¶€ˆB€TO€YB€¶€S1€D€B€¶€ÌC‚ERROR-WARNING-TYPEB€¶€Ó¬†Holds the WARNING-TYPE arg inside a WARN-ON-ERRORS.€1€D€B€¶€ÌC‚ERROR-WARNING-ARGSB€¶€—ì‰Holds the WARNING-FORMAT-STRING and WARNING-ARGS args inside a WARN-ON-ERRORS.1€D€B€¶€ÌÃ�WARN-ON-ERRORSB€¶€-,ŠT to enable the WARN-ON-ERRORS feature while compiling. NIL means get an error.€1€D€B€¶€ÌÂWARN-ON-ERRORS-STREAM€B€¶€—¬‡Non-NIL => this is stream that read errors are happening on.9€B€¶€b<€F€F€F€ €F€=€F€F€"B€¶€oF€F€!B€¶€jF€F€ B€¶€oF€F€B€¶€lF€F€B€¶€qF€F€B€¶€qF€F€B€¶€lF€F€B€¶€qF€F€ ƒ€CDDRF€F€ ÀCDDADRF€F€ ÀCADADRF€F€ ÀCAADR€F€F€ B€¶€xF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€:£F€#€j€"@ C@Af�B@ž@@Až€ @Až€ Ab€@j�B C! C C! CÅÀÁh€@ÀÁÁ$B@AÁÁ&@)BAžBAžBÁÀ*BAžB@žBAžF;€F€ F€D€D€ÀERROR€D€B€¶€:„WARN-ON-ERRORS-CONDITION-HANDLERF€Ã�CONDITION-BINDF€ƒ€LISTF€B€¶€^F€B€¶€ZF€B€¶€‡F€D€B€¶€:D€B€¶€oB€¶€bB€¶€-D€lƒContinue with compilation.D€ÀLAMBDAD€À&REST€Ã€IGNORED€ÀTHROW€D€B€¶€:B€¶€bB€¶€—F€ƒ‚CONDITION-RESUME-IF€F€D€B€¶€:B€¶€bF€ÀCATCH€DÀB€¶€ˆB€nO€…B€¶€b9€B€¶€p<€F€ F€|F€„F€tF€yF€mF€yF€gF€yF€FF€LF€@F€LF€:F€LF€7F€8F€0F€8F€"F€OF€F€OF€F€F€ F€=€F€'F€„pÀB€¶€h,�UNBIND-1€F€�B€¶€‡€F€€B€¶€îF€F€xB€¶€;F€F€wB€¶€~F€F€qB€¶€;F€F€pB€¶€~F€F€jB€¶€;F€F€iB€¶€KF€F€dB€¶€�F€F€bƒ€WARNF€F€aB€¶€~F€F€[B€¶€�F€F€YÃ�RECORD-WARNINGF€F€XÀAPPLY€F€F€WB€¶€�F€F€TB€¶€î€F€LB€¶€‡€F€Kp€¬€ZWEIlƒSAVE-POSITION-IN-REGISTER€F€F€IB€¶€îF€F€CB€¶€†F€F€<p€B€¶€‹l‚MAKE-REGISTER-NAMEF€F€6B€¶€~F€F€2B€¶€�F€F€.B€¶€�F€F€*B€¶€ˆF€F€)B€¶€~F€F€B€¶€~F€F€B€¶€KF€F€CƒPRINT-ERROR-WARNING-HEADER€F€B€¶€ŠF€F€B€¶€�F€F€B€¶€î€F€B€¶€îF€F€ p€B€¶€vl„MAYBE-PRINT-OBJECT-WARNINGS-HEADER€F€B€¶€�F€F€pÀB€¶€h¬€BINDF€F€B€¶€�F€F€B€¶€~F€>€F€F€€ú¿F€‡ AÀAžBÁ@žBÁ@BÁ@žB@Až€@Až€@žCh€AÀ@žB@Až�4Àh€@Á@žB@žB@Až€ @žCÁ"B@ž@@Až€O@Až€ AÀÀ@žB@ž@@Až€O@Až€j€@@ÁÀÀ AÀAžB@žBj€$@j€&@Á@žB@Až€8@Až€Á@žB@AÀÀ@ žB8@Až€ $@@@Až€L@Až€.TÁA žB&@@@ž@@Až€L@Až€&AÀ@žB@ž@@A ž€L@Až€h€AÀ@žB&A$B@žC@Až€€Äj€AÀj€@À@Až�4Àj€@Á@žB@žB@žBÁ@žB@AÀÀ AÀAžB@žBÁ@žB@ž@@Až€y@Až€Á"B@C@ž@@Až€y@Až€ AÀ@žB@C@ž@@Až€y@Až€ AÀ@žB@Cj€@@@ž@@Až€„@Až€h€AÀÀj�B@žC@Až€€Ä@žC@Až€j€€D;€F€"F€ƒB€¶€bF€B€¶€bF€~ì…~&To debug this, recompile with ~S set to ~S.€F€vp€B€¶€ ì‚DEBUGGING-CONDITION-P€F€op€B€¶€ ì‚DANGEROUS-CONDITION-P€F€hƒ�PDL-OVERFLOWF€cB€¶€bF€`p€B€¶€ ì�REPORT-STRING€F€^l€~AF€]p€B€¶€ ì€ERROR€F€ZB€¶€ZF€VB€¶€^F€Rl€~AF€PB€¶€ F€Np€B€¶€ l�NO-ACTION€F€H¬†~&Position of this error saved in ZWEI register ".".F€Bp€B€¶€‹ì€POINT€F€5p€B€¶€ ,�READ-BP€F€4p€B€¶€ ,‚SEND-IF-HANDLES€F€1B€¶€fF€-B€¶€fF€(B€¶€�F€&l€~AF€%B€¶€ F€$C�READ-ERRORF€B€¶€£F€p€B€¶€ ì�PROCEED-TYPE-PF€ƒ�PARSE-ERROR€F€B€¶€^F€ ¬�~%Warning: €F€p€B€¶€v¬ƒOBJECT-WARNINGS-OBJECT-NAME€F€C‚DEFAULT-CONS-AREA€F€ƒ‚BACKGROUND-CONS-AREAF€p€B€¶€ ,‚CONDITION-NAMES€O€•B€¶€p9€B€¶€�<€€=€F€F€B€¶€îF€F€B€¶€ŠF€F€B€¶€�F€F€B€¶€î€>€F€€€:‰F€ h€EÀ@Až�4Àj€@Á@žB@žBAžF;€F€F€B€¶€^F€l�~%<< ~A >>O€·B€¶€�9€Ã‚ADD-OPTIMIZER-INTERNAL<€F€F€F€F€F€=€F€ F€�PUTPROP€F€F€ƒ€DELQF€F€B€¶€KF€F€B€¶€†F€F€ B€¶€ºF€F€ ÀNCONC€F€F€ ÀNCONS€F€F€B€¶€KF€F€B€¶€†F€>€F€F€€:�F€ AÀ@ žB"A$B@ž@@A ž€@Až€ A$A#CAžBÀ@žB AÀ@ žB"A$B@ž@@Až€@Až€ A"A%BÀ@žB@Až€ €D;€F€F€C�REWRITERS€F€B€¶€¿F€ C�OPTIMIZERSF€B€¶€ÀO€¾B€¶€¹9€Ã‚ADD-REWRITER-INTERNAL€<€F€F€F€F€F€=€F€ F€B€¶€ºF€F€B€¶€»F€F€B€¶€KF€F€B€¶€†F€F€ B€¶€ºF€F€ B€¶€¼F€F€ B€¶€½F€F€B€¶€KF€F€B€¶€†F€>€F€F€€:�F€ AÀ@ žB"A$B@ž@@A ž€@Až€ A$A#CAžBÀ@žB AÀ@ žB"A$B@ž@@Až€@Až€ A"A%BÀ@žB@Až€ €D;€F€F€B€¶€ÀF€B€¶€ÀF€ B€¶€¿F€B€¶€¿O€ÂB€¶€Á9€Ã�ADD-OPTIMIZER€<€F€F€F€ €F€=€F€ F€B€¶€oF€F€B€¶€qF€F€B€¶€qF€F€ ÀCDDDR€F€F€ ÀCADDR€F€F€ B€¶€uF€F€ B€¶€xF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€:“F€€j€"@ C@Ap�B@ž@@Až€ @Až€ Af€@j�B C! C CÅÁ%BÁ&BAžF;€F€F€B€¶€:F€B€¶€:F€ B€¶€¹DÀB€¶€ˆB€ÆO€ÇB€¶€Ã1€D€B€¶€ºD€B€¶€:B€¶€ÃD€B€¶€:�OBSOLETED€B€¶€:Ã�STYLE-CHECKER€1€D€B€¶€ºD€B€¶€:B€¶€ÃD€Ã�STRING-APPEND€lƒis an obsolete function; €ìƒuse defoptimzer or defrewrite€D€B€¶€:B€¶€É9€ƒ�DEFOPTIMIZER<€F€F€F€F€F€F€F€ €F€=€F€F€-B€¶€oF€F€,B€¶€oF€F€+B€¶€qF€F€)B€¶€qF€F€&B€¶€lF€F€%B€¶€qF€F€$B€¶€lF€F€B€¶€oF€F€B€¶€qF€F€B€¶€qF€F€B€¶€‚F€F€ ÀCDDDDRF€F€ ÀCADDDRF€F€ B€¶€ÅF€F€ B€¶€uF€F€ B€¶€xF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€:®F€.€j€"@ C@Ap�B@ž@@Až€ @Až€ Af€@j�B C! C C! C(@@@A ž€@Až€*@@@Až€@Až€ÅAžFÅÁ'BÁ$BAžFÅÁ$@(@ÁÁ$@ÀAžBAžB+BÁÁ'BÁ$B@žBAžF;€F€ F€*B€¶€:F€(B€¶€:F€'B€¶€¹F€#D€B€¶€×F€!‚FUNCTION-PARENT€F€ B€¶€ßF€ÀDEFUN€F€B€¶€5F€B€¶€:F€B€¶€:F€B€¶€¹F€¬…Optimizer must accept at least one argument€DÀB€¶€ˆB€ÚO€ßB€¶€×9€C�DEFREWRITE<€F€F€F€F€F€F€F€ €F€=€F€F€-B€¶€oF€F€,B€¶€oF€F€+B€¶€qF€F€)B€¶€qF€F€&B€¶€lF€F€%B€¶€qF€F€$B€¶€lF€F€B€¶€oF€F€B€¶€qF€F€B€¶€qF€F€B€¶€‚F€F€ B€¶€ØF€F€ B€¶€ÙF€F€ B€¶€ÅF€F€ B€¶€uF€F€ B€¶€xF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€:®F€.€j€"@ C@Ap�B@ž@@Až€ @Až€ Af€@j�B C! C C! C(@@@A ž€@Až€*@@@Až€@Až€ÅAžFÅÁ'BÁ$BAžFÅÁ$@(@ÁÁ$@ÀAžBAžB+BÁÁ'BÁ$B@žBAžF;€F€ F€*B€¶€:F€(B€¶€:F€'B€¶€ÁF€#D€B€¶€àF€!B€¶€ÜF€ B€¶€ßF€B€¶€ÝF€B€¶€5F€B€¶€:F€B€¶€:F€B€¶€ÁF€l…Optimizer must accept at least on argumentDÀB€¶€ˆB€áO€äB€¶€à9€ƒ‚DEFCOMPILER-SYNONYM€<€F€F€ F€F€F€ €F€=€F€ F€B€¶€F€F€B€¶€lF€F€B€¶€qF€F€ÀINTERNF€F€B€¶€ÐF€F€B€¶€ÅF€F€B€¶€uF€F€B€¶€xF€F€ B€¶€yF€F€B€¶€zF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€:ŸF€€j€"@ C@Ap�B@ž@@A ž€ @Až€ C@Ap�B@ž@@Až€@Až€ Af€@f�B C! CÅ$AÀ&BAC$@ÀÁÁ'BÀ@žBAžF;€F€F€D€D€B€¶€mƒ€FORMF€B€¶€:F€ƒ€CONSF€D€B€¶€èF€¬€-TO-F€B€¶€àDÀB€¶€ˆB€çO€îB€¶€å1€D€B€¶€ÌÀ*VARS*B€¶€ÓìˆList of variable descriptors of currently lexically visible variables.1€D€B€¶€ÌC�*ALLVARS*€B€¶€Ó,‰List of variable descriptors of all variables used within this function.1€D€B€¶€ÌC�*FREEVARS*B€¶€Óì…List of all special variables references free.1€D€B€¶€Ìƒ„*VARIABLES-USED-IN-LEXICAL-CLOSURES*1€D€B€¶€ÌC�*ARG-MAP*€1€D€B€¶€Ìƒ�*LOCAL-MAP*€1€D€B€¶€ÌC‚*BASE-STACK-SLOTS*1€D€B€¶€ÌÃ�*STACK-SLOTS*€1€D€B€¶€ÌÃ�*OPEN-FRAMES*€1€D€B€¶€Ìƒ‚*GENSYMBOL-COUNTER*€€9€C�GENSYMBOL€<€F€F€"F€$F€ F€#F€F€F€F€F€F€F€ F€F€F€=€F€F€2ƒ�MAKE-SYMBOL€F€F€1ƒGET-OUTPUT-STREAM-STRINGF€F€0ÀWRITE€F€F€)pÀB€¶€›ì€%%SET€F€F€'C€1+F€F€&B€¶€�F€F€$C�WRITE-CHARF€F€B€¶€mF€F€ƒ�WRITE-STRINGF€F€ÀSTRINGF€F€B€¶€F€F€ C‚COMMON-LISP-LISTP€F€F€�NUMBERP€F€F€B€¶€rF€F€CƒMAKE-STRING-OUTPUT-STREAM€€F€pÀB€¶€hl�CONS-REST€€>€F€FÀ€:³F€3ÀhÀ›Àn@(jÀ @AžC $@€j€&@ % C&C@ž@@A ž€@Až€&C@ž@@Až€@Až€&AÀ"@Àj€@ À~� B@Až€ &C@A"B$ C$@@@A ž€@Až€ @@@Až€#@Až€-Á$@Až€ GÁ"BÁ@žB@CÁ@B@AÀ"@Àj€@ À~� B"CAG;€F€F€/B€¶€`F€-p€B€¶€ ì€RADIX€F€+p€B€¶€ ì€STREAMF€(B€¶€ F€%B€¶€ F€B€¶€`F€B€¶€"F€B€¶€$O€ B€¶€1€D€B€¶€¦CƒMULTIPLE-VALUES-OPEN-FRAMEDÀ‚MULTIPLE-VALUES€C�OPEN-FRAMEpÀB€¶€vì�DEFSTRUCT-SLOT9€B€¶€%<€€=€F€F€ƒ€AR-1F€>€F€F€€:‚F€ Eg€F;€€O€.B€¶€%1€D€B€¶€¦Ã‚MULTIPLE-VALUES-VALUESDÀB€¶€&ÀVALUESB€¶€*9€B€¶€/<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ec€F;€€O€4B€¶€/1€D€B€¶€ºD€B€¶€:B€¶€&D€B€¶€:D€pÀB€¶€v¬€ONE€p€B€¶€ ¬�NAMED-ARRAY€B€¶€—D€D€ B€¶€0€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€/,ƒA list of destinations.€B€¶€—B€¶€—D€ B€¶€'F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€%ì…An OPEN-FRAME that this destination activates.B€¶€—B€¶€—B€¶€-D€D€ƒ‚MAKE-MULTIPLE-VALUESB€¶€—B€¶€—F€B€¶€—B€¶€&B€¶€—€B€¶€—B€¶€—‚MULTIPLE-VALUES-B€¶€-B€¶€—B€¶€—B€¶€—ƒ‚COPY-MULTIPLE-VALUESD€B€¶€-ÂPRINT-MULTIPLE-VALUES€B€¶€—ÀART-Q€D€B€¶€:pÀB€¶€vì‚DEFSTRUCT-DESCRIPTION€1€D€B€¶€ºD€B€¶€:B€¶€AD€B€¶€:B€¶€&D€B€¶€:pÀB€¶€vì�DEFSTRUCT-NAME1€D€C�DEFF-MACROB€¶€AD€B€¶€:DÀB€¶€ˆpÀB€¶€v¬ƒDEFSTRUCT-EXPAND-CONS-MACRO€9€B€¶€G<€€=€F€F€ ƒ€AS-1F€F€ B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€„MAKE-ARRAY-INTO-NAMED-STRUCTURE€F€€pÀB€¶€v¬ƒSIMPLE-MAKE-ARRAY-1D-Q-SHORTF€>€F€F€€:�F€qˆC"AÀ@žB Ab�B@A"@b�B Af�B@A"@f�B@Až€"€D;€F€F€B€¶€&O€dB€¶€G1€D€ƒRECORD-SOURCE-FILE-NAME€D€B€¶€:B€¶€&D€B€¶€:C�DEFSTRUCT€1€D€pÀB€¶€vl‚DEFSELECT-INTERNALD€B€¶€:D€B€¶€B€¶€&ÂNAMED-STRUCTURE-INVOKED€B€¶€:B€¶€zD€B€¶€:D€p€B€¶€ l�PRINT-SELFp€B€¶€ ,‚WHICH-OPERATIONSp€B€¶€ ¬‚OPERATION-HANDLED-P€B€¶€ªp€B€¶€ ,‚GET-HANDLER-FOR€B€¶€-9€D€p€B€¶€ ì�SELECT-METHOD€B€¶€nB€¶€r<€F€F€F€€F€=€F€F€B€¶€HF€F€C‚PRINT-NOT-READABLEF€F€B€¶€�F€>€F€F€F€F€€:‰F€ €j€(@ Á@žB@Až€@Až€#G"E$@'F;€F€F€Ã�PRINT-READABLYO€�B€¶€9€B€¶€H<€F€F€F€=€F€ F€pÀB€¶€vlƒPRINT-RANDOM-OBJECT-SUFFIXF€F€B€¶€îF€F€B€¶€-F€F€B€¶€-F€F€ B€¶€-F€F€ B€¶€-F€F€ B€¶€-F€F€B€¶€-F€F€pÀB€¶€vlƒPRINT-RANDOM-OBJECT-PREFIXF€>€F€F€€:›F€ A"@j€@j�B"AÀ Ab�B Ac�B Af‚B Af�B@ž@@Až€@Až€ Af�B@Ac‚Bj� B A"@j�B@Až€ €D;€F€F€l‡Multiple-values: ~:[None~*~;~{~S~^, ~}~]~:[~;; Frame: ~S~]O€‡B€¶€H1€D€B€¶€¦‚OPEN-FRAME-IDESTDÀB€¶€'ÀIDEST€B€¶€*9€B€¶€‰<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ew€F;€€O€ŽB€¶€‰1€D€B€¶€¦‚OPEN-FRAME-PDESTDÀB€¶€'ÀPDEST€B€¶€*9€B€¶€�<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eu€F;€€O€”B€¶€�1€D€B€¶€¦ƒƒOPEN-FRAME-CLEANUP-GENERATORDÀB€¶€'C‚CLEANUP-GENERATOR€B€¶€*9€B€¶€•<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Es€F;€€O€šB€¶€•1€D€B€¶€¦C‚OPEN-FRAME-THERE-PDÀB€¶€'�THERE-P€B€¶€*9€B€¶€›<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eq€F;€€O€ B€¶€›1€D€B€¶€¦C‚OPEN-FRAME-TAIL-P€DÀB€¶€'ÀTAIL-PB€¶€*9€B€¶€¡<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eg€F;€€O€¦B€¶€¡1€D€B€¶€¦ƒƒOPEN-FRAME-OPEN-INSTRUCTION€DÀB€¶€'‚OPEN-INSTRUCTIONB€¶€*9€B€¶€§<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ec€F;€€O€¬B€¶€§1€D€B€¶€ºD€B€¶€:B€¶€'D€B€¶€:D€B€¶€7B€¶€9B€¶€—D€D€ B€¶€¨€B€¶€—pÀB€¶€v¬‚%%DEFSTRUCT-EMPTY%%€B€¶€-B€¶€—B€¶€§B€¶€—B€¶€—B€¶€—D€ B€¶€¢F€B€¶€—B€¶€°B€¶€-B€¶€—B€¶€¡B€¶€—B€¶€—B€¶€—D€ B€¶€œF€B€¶€—B€¶€°B€¶€-B€¶€—B€¶€›B€¶€—B€¶€—B€¶€—D€ B€¶€–F€B€¶€—B€¶€°B€¶€-B€¶€—B€¶€•B€¶€—B€¶€—B€¶€—D€ B€¶€�F€B€¶€—B€¶€°B€¶€-B€¶€—B€¶€�B€¶€—B€¶€—B€¶€—D€ B€¶€ŠF€B€¶€—B€¶€°B€¶€-B€¶€—B€¶€‰B€¶€—B€¶€—B€¶€—B€¶€-D€D€‚MAKE-OPEN-FRAME€B€¶€—B€¶€—F€B€¶€—B€¶€'B€¶€—€B€¶€—‚ALTER-OPEN-FRAMEƒ�OPEN-FRAME-€B€¶€-B€¶€—B€¶€—B€¶€—‚COPY-OPEN-FRAME€D€B€¶€-‚PRINT-OPEN-FRAMEB€¶€—B€¶€JD€B€¶€:B€¶€N1€D€B€¶€ºD€B€¶€:B€¶€½D€B€¶€:B€¶€'D€B€¶€:B€¶€U1€D€B€¶€YB€¶€½D€B€¶€:B€¶€\1€D€B€¶€ºD€B€¶€:B€¶€ÂD€B€¶€:B€¶€'D€B€¶€:B€¶€U1€D€B€¶€YB€¶€ÂD€B€¶€:DÀB€¶€ˆpÀB€¶€v¬ƒDEFSTRUCT-EXPAND-ALTER-MACRO9€B€¶€Ä<€€=€F€F€!B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€ B€¶€`F€F€ B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€aF€€B€¶€cF€>€F€F€€:¤F€$yˆC"AÀ@žB Ab�B@A"@b�B Af�B@A"@f�B Ap�B@A"@p�B Ar�B@A"@r�B At�B@A"@t�B Av�B@A"@v�B@Až€"€D;€F€F€B€¶€'O€ßB€¶€Ä1€D€B€¶€eD€B€¶€:B€¶€'B€¶€h1€D€B€¶€lD€B€¶€:D€B€¶€B€¶€'B€¶€mD€B€¶€:B€¶€zD€B€¶€:D€B€¶€rB€¶€tB€¶€vB€¶€ªB€¶€xB€¶€-9€D€B€¶€~B€¶€ãB€¶€r<€F€F€F€€F€=€F€F€B€¶€ÅF€F€B€¶€€F€F€B€¶€�F€>€F€F€F€F€€:‰F€ €j€(@ Á@žB@Až€@Až€#G"E$@'F;€F€F€B€¶€‚O€ëB€¶€ê9€B€¶€Å<€F€F€F€!F€F€F€F€=€F€ F€$B€¶€„F€F€!B€¶€îF€F€B€¶€-F€F€B€¶€-F€F€B€¶€-F€F€ B€¶€-F€F€ B€¶€-F€F€ B€¶€-F€F€B€¶€-F€F€B€¶€†F€>€F€F€€:§F€' A"@h€@h�B"AÀ Ab�B Aq�B Af‚B At�B@ž@@A ž€@Až€ Aw‚B@ @ At�B@ž@@A ž€@Až€ À@ @ Av�B@ž@@A ž€!@Až€À@B A"@j�B@Až€ €D;€F€F€ l€??F€l€??F€ì†~A ~:[(Unfinished) ~]~:[~;(Tail-called) ~]~:[~;~A~A~]O€ìB€¶€Å9€‚WITH-OPEN-FRAME€<€F€F€@F€BF€?F€AF€;F€=F€:F€<F€5F€8F€3F€6F€)F€,F€(F€*F€#F€&F€"F€$F€F€ F€F€F€F€ €F€=€F€!F€YB€¶€oF€F€XB€¶€oF€F€WB€¶€lF€F€VB€¶€qF€F€TB€¶€oF€F€SB€¶€lF€F€QB€¶€qF€F€HB€¶€tF€F€GB€¶€qF€F€DB€¶€tF€F€CB€¶€lF€F€BÀAPPENDF€F€AB€¶€tF€F€<B€¶€tF€F€6B€¶€tF€F€0B€¶€oF€F€+B€¶€F€F€%B€¶€F€F€B€¶€F€F€B€¶€F€F€B€¶€F€F€B€¶€ÄF€F€ÀCDADDRF€F€ÀCADDARF€F€B€¶€ÅF€F€ÀCADAARF€F€ B€¶€jF€F€ ÀCAAADRF€F€ B€¶€mF€F€ B€¶€uF€F€ B€¶€xF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€ú¿hF€Z€j€"@ C@Ap�B@ž@@Až€ @Až€ Af€@j�B C CA C C@ C CA C C! CÁ@ žBÁA žB&4@*6@(8@4@@@Až€@Až€ @Až€ Á@ žB8@@@Až€$@Až€&@Až€ Á@žB6@@@Až€*@Až€,@Až€ ÁA žBÅ0A4A8@7B(@@@Až€6@Až€@Až�8€j€@ 8C@A&@@@Až€<@Až€=€j€@ 5C*@@@Až€A@Až€B€j€@ 6C,B@žBACÁ2A$BACÁ*AÀÁÀ2@ÀÁ2B À@žBAžBÁ2B.B@žBAžF;€F€F€UC�OUTI-FOR-KF€RD€p€B€¶€ l‚CLEANUP-GENERATOR€D€�FUNCTIONƒ�CLEANUP-FUN€F€Pƒ�TAIL-OPEN-P€F€Op€B€¶€ ì€TAIL-PF€Mp€B€¶€ ,‚OPEN-INSTRUCTIONF€LB€¶€½F€Kp€B€¶€ l�NEW-FRAME€F€IÃ�OPENING-FRAMESF€Eƒ€LET*F€,B€¶€çF€*¬�DESTINATION€F€$,�DISCARDPF€l�OPEN-FRAMEF€,‚OPEN-INSTRUCTIONF€¬�CLEANUP-FUN€DÀB€¶€ˆB€öO€ B€¶€ð9€B€¶€<€F€F€F€ €F€=€F€F€AB€¶€oF€F€@B€¶€oF€F€?B€¶€oF€F€>B€¶€jF€F€=B€¶€jF€F€8B€¶€oF€F€7B€¶€oF€F€/B€¶€lF€F€.B€¶€jF€F€-B€¶€lF€F€)B€¶€oF€F€(B€¶€qF€F€!B€¶€jF€F€ B€¶€qF€F€B€¶€oF€F€B€¶€qF€F€B€¶€qF€F€B€¶€lF€F€B€¶€F€F€B€¶€F€F€B€¶€F€F€ B€¶€jF€F€ B€¶€lF€F€ B€¶€mF€F€ B€¶€xF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€ú¿F€B€j€"@ C@Af�B@ž@@Až€ @Až€ Ab€@j�B C! C CÁA žBÁ@ žBÁA žBÅ*AÀ@žB@A,A%B.A&B$AÁ.@%BAžBAžBÁÁÁ.@ÁÁ/B,BÁ.@ÀAžBAžB)BÁ.@ÁÁÀÁÀ*BAžBÀÁ*@j€@%B@žB@žB@žBAžF;€F€F€:ƒ‚CLEAN-UP-OPEN-FRAMESF€9D€�FSIGNAL€ì‚How does this happen?€F€6B€¶€ F€5B€¶€žF€4D€B€¶€;C�*DROPTHRU*F€3C€ORF€2ÀUNLESSF€0B€¶€4F€,D€B€¶€ F€*ƒ€PUSHF€'B€¶€‰F€&B€¶€ÏF€$B€¶€4F€#B€¶€5F€"B€¶€ÔF€B€¶€F€D€B€¶€ F€B€¶€F€l�NEW-FRAME€F€¬‚ORIGINAL-DESTINATIONF€ ¬‚ORIGINAL-OPEN-FRAMESDÀB€¶€ˆB€ O€B€¶€9€Ã‚DISCARDING-OPEN-FRAMES<€F€F€F€ €F€=€F€F€B€¶€lF€F€B€¶€jF€F€ B€¶€jF€F€ B€¶€lF€F€ B€¶€mF€F€ B€¶€xF€F€B€¶€{F€F€B€¶€zF€>€F€F€F€F€€:”F€€j€"@ C@Af�B@ž@@Až€ @Až€ Ab€@j�B C! C CÅÀÁ$@À&B)F;€F€F€p€B€¶€ ,�DISCARD€F€B€¶€F€D€D€B€¶€ B€¶€ D€B€¶€B€¶€F€ B€¶€DÀB€¶€ˆB€O€$B€¶€1€D€B€¶€Ìƒ‚*LOCAL-FUNCTION-MAP*1€D€B€¶€¦C�VAR-PLIST€DÀƒ€VAR€Ã€PLIST€B€¶€*9€B€¶€(<€€=€F€F€B€¶€-F€>€F€F€€:ƒF€ E ÀAžF;€€O€.B€¶€(1€D€B€¶€¦‚VAR-OVERLAP-VAR€DÀB€¶€)ƒ�OVERLAP-VAR€B€¶€*9€B€¶€/<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ E€F;€€O€4B€¶€/1€D€B€¶€¦‚VAR-DECLARATIONSDÀB€¶€)ƒ�DECLARATIONSB€¶€*9€B€¶€5<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ E}€F;€€O€:B€¶€51€D€B€¶€¦�VAR-MISCDÀB€¶€)ƒ€MISCB€¶€*9€B€¶€;<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ E{€F;€€O€@B€¶€;1€D€B€¶€¦�VAR-EVALDÀB€¶€)ƒ€EVALB€¶€*9€B€¶€A<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ey€F;€€O€FB€¶€A1€D€B€¶€¦�VAR-INITDÀB€¶€)ƒ€INITB€¶€*9€B€¶€G<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ew€F;€€O€LB€¶€G1€D€B€¶€¦‚VAR-LAP-ADDRESS€DÀB€¶€)ƒ�LAP-ADDRESS€B€¶€*9€B€¶€M<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eu€F;€€O€RB€¶€M1€D€B€¶€¦Ã�VAR-USE-COUNT€DÀB€¶€)C�USE-COUNT€B€¶€*9€B€¶€S<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Es€F;€€O€XB€¶€S1€D€B€¶€¦�VAR-TYPEDÀB€¶€)ƒ€TYPEB€¶€*9€B€¶€Y<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eq€F;€€O€^B€¶€Y1€D€B€¶€¦�VAR-KINDDÀB€¶€)ƒ€KINDB€¶€*9€B€¶€_<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eg€F;€€O€dB€¶€_1€D€B€¶€¦�VAR-NAMEDÀB€¶€)ƒ€NAMEB€¶€*9€B€¶€e<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ec€F;€€O€jB€¶€e1€D€B€¶€ºD€B€¶€:B€¶€)D€B€¶€:D€B€¶€7B€¶€9B€¶€—D€ D€ B€¶€f€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€e,›The variable's name.�If this is the gensym variable that is used to implement�a local (FLET) function, then the name has a LOCAL-FUNCTION-NAME property�which is the symbol actually defined as a function in the FLET.€B€¶€—B€¶€—D€ B€¶€`F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€_,”One of FEF-ARG-REQ, FEF-ARG-OPT, FEF-ARG-REST, FEF-ARG-AUX, FEF-ARG-INTERNAL-AUX �Can also be FEF-ARG-FREE for the entry pushed by a local SPECIAL declaration.€B€¶€—B€¶€—D€ B€¶€ZF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€Y,„Either FEF-LOCAL or FEF-SPECIAL.B€¶€—B€¶€—D€ B€¶€TF€B€¶€—€B€¶€-B€¶€—B€¶€Sl‰Number of times variable is used, not counting binding and initialization.B€¶€—B€¶€—D€ B€¶€NF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€M,‹(ARG n) for an argument, (LOCAL n) for a local, (SPECIAL symbol) for a special variable.B€¶€—B€¶€—D€ B€¶€HF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€G,‡Describes how the variable should be initted on binding.B€¶€—B€¶€—D€ B€¶€BF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€A,†FEF-QT-QT for "E arg, otherwise FEF-QT-EVAL.B€¶€—B€¶€—D€ B€¶€<F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€;ì¶List of additional FEF-... symbols serving as flags about this variable.�FEF-ARG-FUNCTIONAL means it is an &FUNCTIONAL arg.�FEF-ARG-SPECIFIED-FLAG means it is the specified-p variable of an optional arg.�FEF-ARG-USED-IN-LEXICAL-CLOSURES means that lexical closures refer free to this variable.�FEF-ARG-OVERLAPPED means this is the OVERLAP-VAR of some other VAR.�Lap will add the values of these symbols into the ADL word for the variable.B€¶€—B€¶€—D€ B€¶€6F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€5l…Declarations pertaining to this variable.€B€¶€—B€¶€—D€ B€¶€0F€ B€¶€—B€¶€—B€¶€-B€¶€—B€¶€/l‰Another VAR, the one whose slot this one shares;�or NIL if there is none.€B€¶€—B€¶€—D€ B€¶€*F€ B€¶€—B€¶€—B€¶€-B€¶€—B€¶€(¬�other info!€B€¶€—B€¶€—B€¶€-D€D€�MAKE-VARB€¶€—B€¶€—F€ B€¶€—B€¶€)B€¶€—€B€¶€—B€¶€—ƒ€VAR-B€¶€-B€¶€—B€¶€—B€¶€—�COPY-VARD€B€¶€-C�PRINT-VAR€B€¶€—B€¶€JD€B€¶€:B€¶€N1€D€B€¶€ºD€B€¶€:B€¶€�D€B€¶€:B€¶€)D€B€¶€:B€¶€U1€D€B€¶€YB€¶€�D€B€¶€:B€¶€\9€B€¶€•<€€=€F€F€=B€¶€`F€F€9B€¶€-F€F€6B€¶€`F€F€3B€¶€-F€F€1B€¶€`F€F€.B€¶€-F€F€,B€¶€`F€F€)B€¶€-F€F€'B€¶€`F€F€$B€¶€-F€F€"B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€ B€¶€-F€F€ B€¶€`F€F€B€¶€-F€F€B€¶€aF€F€B€¶€cF€>€F€F€€ú¿F€@ ÁAžB"AÀ@žB Ab�B@A"@b�B Af�B@A"@f�B Ap�B@A"@p�B Ar�B@A"@r�B At�B@A"@t�B Av�B@A"@v�B Ax�B@A"@x�B Az�B@A"@z�B A|�B@A"@|�B A~�B@A"@~�B A À@žB@A"@ À@žB@Až€"€D;€F€F€B€¶€)O€¥B€¶€•1€D€B€¶€eD€B€¶€:B€¶€)B€¶€h1€D€B€¶€lD€B€¶€:D€B€¶€B€¶€)B€¶€mD€B€¶€:B€¶€zD€B€¶€:D€B€¶€rB€¶€tB€¶€vB€¶€ªB€¶€xB€¶€-9€D€B€¶€~B€¶€©B€¶€r<€F€F€F€€F€=€F€F€B€¶€–F€F€B€¶€€F€F€B€¶€�F€>€F€F€F€F€€:‰F€ €j€(@ Á@žB@Až€@Až€#G"E$@'F;€F€F€B€¶€‚O€±B€¶€°9€B€¶€–<€€=€F€F€ B€¶€„F€F€ÀPRIN1€F€F€B€¶€-F€F€B€¶€†F€>€F€F€€:�F€  A"@h€@h�B Ab�B@A"B A"@j�B@Až€ €D;€€O€³B€¶€–1€D€B€¶€ýÂFEF-ARG-SPECIFIED-FLAG€1€D€B€¶€ý„FEF-ARG-USED-IN-LEXICAL-CLOSURES€1€D€B€¶€ýC‚FEF-ARG-OVERLAPPED€1€D€B€¶€¦C‚NEW-VAR-OPEN-FRAMEDÀ�NEW-VAR€B€¶€'B€¶€*9€B€¶€À<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eg€F;€€O€ÅB€¶€À1€D€B€¶€¦ƒ�NEW-VAR-VAR€DÀB€¶€ÁB€¶€)B€¶€*9€B€¶€Æ<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ec€F;€€O€ÊB€¶€Æ1€D€B€¶€ºD€B€¶€:B€¶€ÁD€B€¶€:D€B€¶€7B€¶€9B€¶€—D€D€ B€¶€)€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€Æ¬…The VAR struct this destination will create.B€¶€—B€¶€—D€ B€¶€'F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€Àì†The OPEN-FRAME struct this destination will activate.€B€¶€—B€¶€—B€¶€-D€D€ƒ�MAKE-NEW-VARB€¶€—B€¶€—F€B€¶€—B€¶€ÁB€¶€—€B€¶€—B€¶€—�NEW-VAR-B€¶€-B€¶€—B€¶€—B€¶€—ƒ�COPY-NEW-VARD€B€¶€-Ã�PRINT-NEW-VAR€B€¶€—B€¶€JD€B€¶€:B€¶€N1€D€B€¶€ºD€B€¶€:B€¶€ÓD€B€¶€:B€¶€ÁD€B€¶€:B€¶€U1€D€B€¶€YB€¶€ÓD€B€¶€:B€¶€\9€B€¶€Ù<€€=€F€F€ B€¶€`F€F€ B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€aF€€B€¶€cF€>€F€F€€:�F€qˆC"AÀ@žB Ab�B@A"@b�B Af�B@A"@f�B@Až€"€D;€F€F€B€¶€ÁO€éB€¶€Ù1€D€B€¶€eD€B€¶€:B€¶€ÁB€¶€h1€D€B€¶€lD€B€¶€:D€B€¶€B€¶€ÁB€¶€mD€B€¶€:B€¶€zD€B€¶€:D€B€¶€rB€¶€tB€¶€vB€¶€ªB€¶€xB€¶€-9€D€B€¶€~B€¶€íB€¶€r<€F€F€F€€F€=€F€F€B€¶€ÚF€F€B€¶€€F€F€B€¶€�F€>€F€F€F€F€€:‰F€ €j€(@ Á@žB@Až€@Až€#G"E$@'F;€F€F€B€¶€‚O€õB€¶€ô9€B€¶€Ú<€F€F€F€F€F€=€F€F€B€¶€„F€F€B€¶€F€F€B€¶€²F€F€ B€¶€-F€F€ B€¶€-F€F€B€¶€-F€F€B€¶€†F€>€F€F€€:—F€ A"@h€@h�B Ab�B@ž@@Až€@Až€ Ab�B@Ab�B@A"B@Až€ Á"B A"@j�B@Až€ €D;€F€F€ì€(none)O€öB€¶€Ú1€D€B€¶€Ìƒ‚*GOTAG-ENVIRONMENT*€B€¶€Ó,ˆAlist of GOTAGs for each lexically visible tag meaningful to GO.1€D€B€¶€ÌC�ALLGOTAGS€B€¶€ÓlŠList of all tags (actual symbols, not GOTAGs) defined within the current function.1€D€B€¶€¦ƒ„GOTAG-USED-IN-LEXICAL-CLOSURES-FLAG€DÀÀGOTAG€ÃƒUSED-IN-LEXICAL-CLOSURES-FLAG€B€¶€*9€B€¶€<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eu€F;€€O€B€¶€1€D€B€¶€¦Ã�GOTAG-PROGDESCDÀB€¶€�PROGDESCB€¶€*9€B€¶€<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Es€F;€€O€ B€¶€1€D€B€¶€¦‚GOTAG-PDL-LEVEL€DÀB€¶€C�PDL-LEVEL€B€¶€*9€B€¶€ <€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eq€F;€€O€B€¶€ 1€D€B€¶€¦Ã�GOTAG-LAP-TAG€DÀB€¶€�LAP-TAG€B€¶€*9€B€¶€<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eg€F;€€O€B€¶€1€D€B€¶€¦Ã�GOTAG-PROG-TAGDÀB€¶€�PROG-TAGB€¶€*9€B€¶€<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ec€F;€€O€B€¶€1€D€B€¶€ºD€B€¶€:B€¶€D€B€¶€:D€B€¶€7B€¶€9B€¶€—D€D€ B€¶€€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€¬‰Actual tag name that the user used. For rettags of blocks, this is a gensym.B€¶€—B€¶€—D€ B€¶€F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€¬‡Tag name to use for LAP. May be the same as GOTAG-PROG-TAG.€B€¶€—B€¶€—D€ B€¶€F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€ ,ŽPdl level we are supposed to have at that point in the code.�Used to tell how many words to pop when you branch.B€¶€—B€¶€—D€ B€¶€F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€,‹Pointer to the element of PROGDESCS for the BLOCK or TAGBODY�that generated this GOTAG.€B€¶€—B€¶€—D€ B€¶€F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€¬‘T if this tag used in internal lambdas.�The PROGDESC-USED-IN-LEXICAL-CLOSURES-FLAG of our GOTAG-PROGDESC�will also be non-NIL in that case.€B€¶€—B€¶€—B€¶€-D€D€ƒ‚MAKE-GOTAG-INTERNAL€B€¶€—B€¶€—F€B€¶€—B€¶€B€¶€—€B€¶€—B€¶€—ÀGOTAG-B€¶€-B€¶€—B€¶€—B€¶€—B€¶€—B€¶€—B€¶€—B€¶€JD€B€¶€:B€¶€N1€D€B€¶€ºD€B€¶€:B€¶€0D€B€¶€:B€¶€D€B€¶€:B€¶€U1€D€B€¶€YB€¶€0D€B€¶€:B€¶€\1€D€B€¶€eD€B€¶€:B€¶€B€¶€h9€C�MAKE-GOTAG<€F€F€F€ €F€=€F€ F€B€¶€F€ F€B€¶€ÙF€F€ B€¶€mF€F€ B€¶€ÙF€F€ B€¶€ÅF€F€ B€¶€uF€F€ B€¶€xF€F€B€¶€yF€F€B€¶€zF€>€F€F€F€F€€:˜F€€j€"@ C@At�B@ž@@Až€ @Až€ A`€@r�B C! C C CA CÅÀ$@À&@ À( @À+F;€F€F€p€B€¶€ ,�PROGDESCF€p€B€¶€ l�PDL-LEVEL€F€p€B€¶€ ,�LAP-TAG€F€p€B€¶€ ,�PROG-TAGF€B€¶€0DÀB€¶€ˆB€GO€PB€¶€F1€D€B€¶€ÌÂ*PROGDESC-ENVIRONMENT*B€¶€Ól�The elements describe the active BLOCK, LET and TAGBODY constructs, innermost first.�Each element is a PROGDESC structure.1€D€B€¶€¦ƒ‚PROGDESC-OPEN-FRAMESDÀB€¶€ƒ�OPEN-FRAMES€B€¶€*9€B€¶€U<€€=€F€F€B€¶€-F€>€F€F€€:ƒF€ E ÀAžF;€€O€ZB€¶€U1€D€B€¶€¦Ã„PROGDESC-USED-IN-LEXICAL-CLOSURES-FLAGDÀB€¶€B€¶€B€¶€*9€B€¶€[<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ E€F;€€O€_B€¶€[1€D€B€¶€¦ƒ„PROGDESC-EXIT-LEXICAL-CLOSURE-COUNT€DÀB€¶€CƒEXIT-LEXICAL-CLOSURE-COUNTB€¶€*9€B€¶€`<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ E}€F;€€O€eB€¶€`1€D€B€¶€¦ƒ„PROGDESC-ENTRY-LEXICAL-CLOSURE-COUNTDÀB€¶€ƒƒENTRY-LEXICAL-CLOSURE-COUNT€B€¶€*9€B€¶€f<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ E{€F;€€O€kB€¶€f1€D€B€¶€¦Ã�PROGDESC-VARS€DÀB€¶€ƒ€VARSB€¶€*9€B€¶€l<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ey€F;€€O€qB€¶€l1€D€B€¶€¦‚PROGDESC-NBINDS€DÀB€¶€ÀNBINDSB€¶€*9€B€¶€r<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ew€F;€€O€wB€¶€r1€D€B€¶€¦C‚PROGDESC-PDL-LEVELDÀB€¶€B€¶€B€¶€*9€B€¶€x<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eu€F;€€O€|B€¶€x1€D€B€¶€¦ƒ‚PROGDESC-M-V-TARGET€DÀB€¶€C�M-V-TARGETB€¶€*9€B€¶€}<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Es€F;€€O€‚B€¶€}1€D€B€¶€¦Ã�PROGDESC-IDESTDÀB€¶€B€¶€ŠB€¶€*9€B€¶€ƒ<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eq€F;€€O€‡B€¶€ƒ1€D€B€¶€¦‚PROGDESC-RETTAG€DÀB€¶€ÀRETTAGB€¶€*9€B€¶€ˆ<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eg€F;€€O€�B€¶€ˆ1€D€B€¶€¦Ã�PROGDESC-NAME€DÀB€¶€B€¶€fB€¶€*9€B€¶€Ž<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ec€F;€€O€’B€¶€Ž1€D€B€¶€ºD€B€¶€:B€¶€D€B€¶€:D€B€¶€7B€¶€9B€¶€—D€ D€ B€¶€f€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€Žl–Name of this block, or (TAGBODY) or (LET).�(TAGBODY) is used for PROGDESCs for TAGBODY forms,�(LET) is used for PROGDESCs for variable binding forms,�a symbol is used for BLOCKs.B€¶€—B€¶€—D€ B€¶€‰F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€ˆì–Tag to branch to to exit this construct. Used for blocks only.�The rettag is followed, if necessary, by code to transfer the�block's value from its IDEST to the actual destination.€B€¶€—B€¶€—D€ B€¶€ŠF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€ƒ,ŠDestination to compile contents of block with, on pass 2.�Used for blocks only.€B€¶€—B€¶€—D€ B€¶€~F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€}ì¿!Value of *M-V-TARGET* around this block.�Says whether the block's caller wants multiple values. Used for blocks only.�If it is NIL, only one value is wanted.�If it is MULTIPLE-VALUE-LIST, then the block should really�return the list of the values that RETURN wants to return.�If it is THROW or RETURN, the block should do the hairy things�to pass all but the last value to the frame that is going to get them,�then return the last value on the stack.�If it is a number, the block should return that many values on the stack.��On pass 1, this is *P1VALUE* on entry to the block.B€¶€—B€¶€—D€ B€¶€F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€x,—The PDL-LEVEL is the pdl level at entry to the construct,�which is also the level in between statements in the construct.�Used in all PROGDESCs, for blocks, binding forms and TAGBODYs.B€¶€—B€¶€—D€ B€¶€sF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€rl¦Number of special bindings to unbind at exit from the construct.�Can also be a list containing the number to unbind, which means�that in addition an unknown number of %BINDs will be done�and therefore UNBIND-TO-INDEX must be used to unbind them�to a specpdl pointer saved at the beginning of the construct.B€¶€—B€¶€—D€ B€¶€mF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€lì‡Value of *VARS* at entry to this block. Used only in blocks.€B€¶€—B€¶€—D€ B€¶€gF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€f,�Unused.€B€¶€—B€¶€—D€ B€¶€aF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€`,�Unused.€B€¶€—B€¶€—D€ B€¶€F€ B€¶€—B€¶€—B€¶€-B€¶€—B€¶€[,•For blocks, non-NIL if any lexical closure within this block tries to RETURN from it.�The actual value is a list which is used as a catch tag to implement such RETURNs.B€¶€—B€¶€—D€ B€¶€VF€ B€¶€—B€¶€ B€¶€-B€¶€—B€¶€UìšOpen frames at entry to the construct, which is also the level in between�statements in the construct. Used in all PROGDESCs, for blocks, binding forms, and�TAGBODYs. This is the K's generalization of PDL-LEVEL.€B€¶€—B€¶€—B€¶€-D€D€Ã�MAKE-PROGDESC€B€¶€—B€¶€—F€ B€¶€—B€¶€B€¶€—€B€¶€—B€¶€—C�PROGDESC-€B€¶€-B€¶€—B€¶€—B€¶€—Ã�COPY-PROGDESC€D€B€¶€-Ã�PRINT-PROGDESCB€¶€—B€¶€JD€B€¶€:B€¶€N1€D€B€¶€ºD€B€¶€:B€¶€¶D€B€¶€:B€¶€D€B€¶€:B€¶€U1€D€B€¶€YB€¶€¶D€B€¶€:B€¶€\9€B€¶€¼<€€=€F€F€=B€¶€`F€F€9B€¶€-F€F€6B€¶€`F€F€3B€¶€-F€F€1B€¶€`F€F€.B€¶€-F€F€,B€¶€`F€F€)B€¶€-F€F€'B€¶€`F€F€$B€¶€-F€F€"B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€B€¶€-F€F€B€¶€`F€F€ B€¶€-F€F€ B€¶€`F€F€B€¶€-F€F€B€¶€aF€F€B€¶€cF€>€F€F€€ú¿F€@ ÁAžB"AÀ@žB Ab�B@A"@b�B Af�B@A"@f�B Ap�B@A"@p�B Ar�B@A"@r�B At�B@A"@t�B Av�B@A"@v�B Ax�B@A"@x�B Az�B@A"@z�B A|�B@A"@|�B A~�B@A"@~�B A À@žB@A"@ À@žB@Až€"€D;€F€F€B€¶€O€ÌB€¶€¼1€D€pÀB€¶€vl‚SET-DOCUMENTATION€D€B€¶€:B€¶€D€B€¶€:C�STRUCTURE€¬„Describes one element of PROGDESCS.€1€D€B€¶€eD€B€¶€:B€¶€B€¶€h1€D€B€¶€lD€B€¶€:D€B€¶€B€¶€B€¶€mD€B€¶€:B€¶€zD€B€¶€:D€B€¶€rB€¶€tB€¶€vB€¶€ªB€¶€xB€¶€-9€D€B€¶€~B€¶€ØB€¶€r<€F€F€F€€F€=€F€F€B€¶€½F€F€B€¶€€F€F€B€¶€�F€>€F€F€F€F€€:‰F€ €j€(@ Á@žB@Až€@Až€#G"E$@'F;€F€F€B€¶€‚O€àB€¶€ß9€B€¶€½<€€=€F€F€B€¶€„F€F€ B€¶€îF€F€ B€¶€-F€F€ B€¶€-F€F€B€¶€-F€F€B€¶€†F€>€F€F€€:“F€ A"@h€@h�B"AÀ Ab�B Aq�B A À@žB@žB A"@j�B@Až€ €D;€F€F€lƒ~S  ~A; Frame level = ~S€O€áB€¶€½1€D€B€¶€ÌÃ�COMPILER-QUEUEB€¶€Óì�List of pending functions to be compiled inside QC-TRANSLATE-FUNCTION.�Each element is a COMPILER-QUEUE-ENTRY.1€D€B€¶€¦C…COMPILER-QUEUE-ENTRY-FUNCTION-ENVIRONMENT€DÀƒ‚COMPILER-QUEUE-ENTRYƒ‚FUNCTION-ENVIRONMENTB€¶€*9€B€¶€ç<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ E}€F;€€O€íB€¶€ç1€D€B€¶€¦ƒƒCOMPILER-QUEUE-ENTRY-GOTAGS€DÀB€¶€èÀGOTAGSB€¶€*9€B€¶€î<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ E{€F;€€O€óB€¶€î1€D€B€¶€¦ÃƒCOMPILER-QUEUE-ENTRY-PROGDESCSDÀB€¶€èC�PROGDESCS€B€¶€*9€B€¶€ô<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ey€F;€€O€ùB€¶€ô1€D€B€¶€¦ƒ„COMPILER-QUEUE-ENTRY-LOCAL-FUNCTIONSDÀB€¶€è‚LOCAL-FUNCTIONS€B€¶€*9€B€¶€ú<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ew€F;€€O€ÿB€¶€ú1€D€B€¶€¦ÃƒCOMPILER-QUEUE-ENTRY-VARIABLESDÀB€¶€èC�VARIABLES€B€¶€*9€B€¶€<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eu€F;€€O€B€¶€1€D€B€¶€¦C„COMPILER-QUEUE-ENTRY-DECLARATIONS€DÀB€¶€èB€¶€6B€¶€*9€B€¶€<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Es€F;€€O€ B€¶€1€D€B€¶€¦„COMPILER-QUEUE-ENTRY-DEFINITION€DÀB€¶€èC�DEFINITIONB€¶€*9€B€¶€ <€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eq€F;€€O€B€¶€ 1€D€B€¶€¦C„COMPILER-QUEUE-ENTRY-FUNCTION-NAMEDÀB€¶€èÃ�FUNCTION-NAME€B€¶€*9€B€¶€<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Eg€F;€€O€B€¶€1€D€B€¶€¦C„COMPILER-QUEUE-ENTRY-FUNCTION-SPECDÀB€¶€èÃ�FUNCTION-SPEC€B€¶€*9€B€¶€<€€=€F€F€B€¶€-F€>€F€F€€:‚F€ Ec€F;€€O€B€¶€1€D€B€¶€ºD€B€¶€:B€¶€èD€B€¶€:D€B€¶€7B€¶€9B€¶€—D€ D€ B€¶€€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€l†Function spec to define once compilation is done.€B€¶€—B€¶€—D€ B€¶€F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€ì‡Function spec to record in the compiled function as its name.€B€¶€—B€¶€—D€ B€¶€ F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€ ìƒLambda expression to compile.€B€¶€—B€¶€—D€ B€¶€6F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€,†Declarations in effect from containing function.B€¶€—B€¶€—D€ B€¶€F€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€¬ŠVariables accessible through containing function.�This becomes the value of *VARS*.€B€¶€—B€¶€—D€ B€¶€ûF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€úì†Lexical functions inherited from containing function.€B€¶€—B€¶€—D€ B€¶€õF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€ô,ŒPROGDESCS inherited from containing function.�This becomes the value of *PROGDESC-ENVIRONMENT*.€B€¶€—B€¶€—D€ B€¶€ïF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€îlŒGOTAGS from containing function that we can go to.�This becomes the value of *GOTAG-ENVIRONMENT*.€B€¶€—B€¶€—D€ B€¶€éF€B€¶€—B€¶€—B€¶€-B€¶€—B€¶€çl“Standard environment function environment frame containing local macros and functions�we are inheriting. This becomes the value of *FUNCTION-ENVIRONMENT*€B€¶€—B€¶€—B€¶€-D€D€CƒMAKE-COMPILER-QUEUE-ENTRY€B€¶€—B€¶€—F€ B€¶€—B€¶€èB€¶€—€B€¶€—B€¶€—ÂCOMPILER-QUEUE-ENTRY-€B€¶€-B€¶€—B€¶€—B€¶€—B€¶€—B€¶€—B€¶€—B€¶€JD€B€¶€:B€¶€N1€D€B€¶€ºD€B€¶€:B€¶€:D€B€¶€:B€¶€èD€B€¶€:B€¶€U1€D€B€¶€YB€¶€:D€B€¶€:B€¶€\1€D€B€¶€ÎD€B€¶€:B€¶€èB€¶€Ñ,…Describes one element of COMPILER-QUEUE.1€D€B€¶€eD€B€¶€:B€¶€èB€¶€h1€D€B€¶€Ìƒ‚*OUTER-CONTEXT-VARS*B€¶€Ó,¸Intended lexical variable environment of the function being compiled.�For a top-level function in a file, it is NIL.�In general it is a list of *VARS* lists, to be scanned in the order listed.�Each element corresponds to one environment level,�and the position of a variable home within the element�is its index within that level.�The level number and the index within the level are the two quantities�that are passed to %LOCATE-IN-HIGHER-CONTEXT.€1€D€B€¶€Ì„*OUTER-CONTEXT-LOCAL-FUNCTIONS*€B€¶€ÓìˆUsed to initialize *LOCAL-FUNCTIONS* for compilation of one function.€1€D€B€¶€Ìƒ„*OUTER-CONTEXT-FUNCTION-ENVIRONMENT*B€¶€Ól‰Used to initialize *FUNCTION-ENVIRONMENT* for compilation of one function.1€D€B€¶€Ìƒ„*OUTER-CONTEXT-PROGDESC-ENVIRONMENT*B€¶€Ól‰Used to initialize *PROGDESC-ENVIRONMENT* for compilation of one function.1€D€B€¶€ÌC„*OUTER-CONTEXT-GOTAG-ENVIRONMENT*€B€¶€Ó,‰Used to initialize *GOTAG-ENVIRONMENT* for compilation of one function.€1€D€B€¶€ÌÂ*FUNCTION-ENVIRONMENT*B€¶€Ó,“List of frames describing local macro and function definitions.�The format of this object is the same as that of SI::*INTERPRETER-FUNCTION-ENVIRONMENT*.1€D€B€¶€ÌC‚*LOCAL-FUNCTIONS*€B€¶€Ó,šAlist of elements (local-function-name vars-entry function-definition)�It records, for each local function name (defined by FLET or LABELS)�the local variable in which the function definition actually lives.€9€„FSYMEVAL-IN-FUNCTION-ENVIRONMENT<€F€F€F€=€F€F€ƒFSYMEVAL-IN-ENVIRONMENT€F€F€B€¶€tF€F€B€¶€�F€>€F€F€F€F€€:‡F€ÁAžB@Až€ " C E$@k€F;€F€€B€¶€hO€rB€¶€p1€D€B€¶€Ìƒ‚OPEN-CODE-MAP-SWITCHB€¶€-lˆThis, if T, causes MAP, etc. to be open-coded. It is normally T.€1€D€B€¶€ÌC‚ALL-SPECIAL-SWITCHB€¶€—,„If T makes all variabes special.1€D€B€¶€ÌÃINHIBIT-STYLE-WARNINGS-SWITCH€B€¶€—,‡If T prevents warnings about a lot of stylistic losses.€1€D€pÀB€¶€v,„FASL-RECORD-FILE-MACROS-EXPANDEDD€B€¶€:D€D€C�WITH-LIST€†€´¨D€B€¶€Ž†€BŠD€B€¶€ƒ†€B ŠD€B€¶€U†€B-ŠD€B€¶€Æ†€ìóD€B€¶€e†€.=äD€B€¶€†€;$@D€p€¬€LISPl€IF†€uÄ}D€pÀB€¶€v¬�XR-BQ-APPEND†€k�D€B€¶€›†€œ˜D€B€¶€¡†€œšD€B€¶€�†€œ”D€B€¶€‰†€œ’D€ÂPRINTING-RANDOM-OBJECT†€46)D€B€¶€/†€;( D€B€¶€%†€;$ D€B€¶€4†€·�D€B€¶€§†€œœD€ÂWITH-OUTPUT-TO-STRING€†€wi•D€ÀDOLIST†€5êÒD€�TYPECASE†€ZÌD€p€B€¶€�ì€LISTP€†€s¯€D€ÀPSETQ€†€+FýD€ƒ€INCF†€9QD€B€¶€Ê†€X¡D€ÀCONSP€†€Nî±D€ÂMAKE-EQUAL-HASH-TABLE€†€rFD€B€¶€Ï†€J¸ÇD€ƒ€CASE†€:Â-D€pÀB€¶€vl�XR-BQ-LIST†€~ËD€pÀB€¶€v¬�XR-BQ-LIST*€†€Bº+€€