hưs8€p€,€ì€FALCONF€€2€D€ p€,€¬�COMPILE-DATAD€¬€RWK€ì€Harpo€†€«¦?­F€~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€:ƒ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€—l˜T during file-to-file compilation, causes DEFMACRO and DEFSUBST to work differently.�They store elements in *COMPILATION-ENVIRONMENT* rather than�actually defining functions in the environment.€1€D€B€ÃCƒ*COMPILATION-ENVIRONMENT*€B€ÊlŠThe compilation-environment in which compile-time definitions should be recorded.€1€D€B€¦Ã„COMPILATION-ENVIRONMENT-MACRO-HASHTAB€DÀƒCOMPILATION-ENVIRONMENT€Ã�MACRO-HASHTAB€pÀB€vì�DEFSTRUCT-SLOT9€B€<€€=€F€F€ƒ€AR-1F€>€F€F€€:‚F€ Eq€F{€ €¿€ O€ B€1€D€B€¦Ã„COMPILATION-ENVIRONMENT-PLIST-HASHTAB€DÀB€Ã�PLIST-HASHTAB€B€9€B€!<€€=€F€F€B€F€>€F€F€€:‚F€ Eg€F{€&€¿€&O€&B€!1€D€B€¦ƒƒCOMPILATION-ENVIRONMENT-NEXTDÀB€ƒ€NEXTB€9€B€'<€€=€F€F€B€F€>€F€F€€:‚F€ Ec€F{€,€¿€,O€,B€'1€D€B€¦ÃƒCOMPILATION-ENVIRONMENT-TARGETDÀB€ÀTARGETB€9€B€-<€€=€F€F€B€F€>€F€F€€:‚F€ Ea€F{€2€¿€2O€2B€-1€D€�PUTPROP€D€B€:B€D€B€:D€pÀB€v¬€ONE€p€B€ ¬�NAMED-VECTORB€—D€D€ B€.€B€—B€—B€-B€—B€-¬†The *TARGET-COMPUTER* which this environment is for.B€—B€—D€ B€(F€B€—D€ƒ€AND€D€ÀBOUNDPD€B€:B€B€B€-B€—B€'lƒThe enclosing environment€B€—B€—D€ B€"F€B€—D€‚MAKE-HASH-TABLE€p€B€ ¬€TESTD€�FUNCTIONÀEQUAL€B€-B€—B€!l„Maps symbols onto property lists.€B€—B€—D€ B€F€B€—D€B€EB€GD€B€HB€IB€-B€—B€l‚Macro definitions.B€—B€—B€-D€D€ƒƒMAKE-COMPILATION-ENVIRONMENTB€—B€—F€B€—B€B€—€B€—B€—ƒCOMPILATION-ENVIRONMENT-B€-B€—B€—CƒCOMPILATION-ENVIRONMENT-P€ƒƒCOPY-COMPILATION-ENVIRONMENTD€B€-D€ÀLAMBDAD€ÀSTRUCTÀSTREAMÀLEVEL€D€ÀIGNOREB€_D€ÂPRINTING-RANDOM-OBJECTD€B€]B€^p€B€ ¬€TYPED€ƒ€WHEND€B€-B€]D€ÀPRINC€¬€for B€^D€ÀPRIN1€D€B€-B€]B€^B€-ÀART-Q€D€B€:pÀB€vì‚DEFSTRUCT-DESCRIPTION€1€D€B€3D€B€:B€TD€B€:B€D€B€:pÀB€vì�DEFSTRUCT-NAME9€B€T<€F€F€;F€=F€7F€<F€/F€1F€+F€0F€#F€%F€ F€#F€F€$F€ F€=€F€F€Oƒ€AS-1F€F€LB€‚F€F€IB€‚F€F€FB€‚F€F€C„MAKE-ARRAY-INTO-NAMED-STRUCTURE€F€F€@pÀB€vl‚SIMPLE-MAKE-ARRAY€F€F€:B€EF€F€9B€I€F€4B€žF€F€3B€�F€F€.B€EF€F€-B€I€F€(B€žF€F€'B€�F€F€"B€�F€F€B€>F€F€B€žF€F€B€�F€F€pÀB€h,�MVBIND-4F€F€pÀB€hì‚GET-KEYWORD-ARG-VALUESF€F€ B€�F€F€B€�F€F€B€�F€F€pÀB€hl�CONS-REST€€>€F€FÀ€ú¿HF€RÀhÀ›Àn@(jÀ @j€"@Á@ žBÁA žBÁ@ žB @@@Až€@Až€ AÀkˆB#C`@%@b@'@d@)@"@@$AÁAžB@žB@ž@@Až€$@Až€Á@žB@ž@@Až€#@Až€ÁA žB%€j€*@ $*@&AÁAžB@žB@ž@@Až€0@Až€Á4À@ žB1@Až€ &,@(AÁAžB@žB@ž@@Až€<@Až€Á4ÀA žB=@Až€ (.@t€AÀj€@fŒB0AÀ@žB.A0@p�B,A0@f�B*A0@b�B"A0@`�B@Až€0€D{€ŒF€ F€BB€F€>B€sF€8B€GF€2pÀB€v,‚KEYWORD-GARBAGE€F€,B€GF€&B€ŽF€!B€F€B€F€B€ŽF€D€p€B€ ì€TARGETp€B€ ¬€NEXTp€B€ ì�PLIST-HASHTAB€p€B€ ì�MACRO-HASHTAB€F€B€ŽF€B€ŽF€B€Ž¿€ŒO€ŒB€T9€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€F€€:�F€t€AÀj€@gˆB"AÀ@žB A`�B@A"@`�B Ab�B@A"@b�B Af�B@A"@f�B Ap�B@A"@p�B@Až€"€D{€˜F€F€B€F€B€s¿€˜O€˜B€[9€B€Z<€€=€F€F€CƒTYPEP-STRUCTURE-OR-FLAVOR€F€>€F€F€€:ƒF€ EÀAžF{€šF€F€B€¿€šO€šB€Z1€D€ƒRECORD-SOURCE-FILE-NAME€D€B€:B€D€B€:C�DEFSTRUCT€1€D€pÀB€vl‚DEFSELECT-INTERNALD€B€:D€p€B€ ,�PROPERTYB€ÂNAMED-STRUCTURE-INVOKED€B€:B€aD€B€:D€p€B€ l�PRINT-SELFp€B€ ,‚WHICH-OPERATIONSp€B€ ¬‚OPERATION-HANDLED-P€p€B€ ,‚SEND-IF-HANDLES€p€B€ ,‚GET-HANDLER-FOR€B€-9€D€p€B€ ì�SELECT-METHOD€B€¦B€ª<€F€F€F€F€F€€F€=€F€F€pÀB€vlƒPRINT-RANDOM-OBJECT-SUFFIXF€F€B€lF€F€B€F€F€B€iF€F€B€F€F€ pÀB€vlƒPRINT-RANDOM-OBJECT-PREFIXF€F€C‚PRINT-NOT-READABLEF€F€B€�F€>€F€F€F€F€€:�F€€j€(@ Á@žB@Až€@Až€#G"*@$,@&.@*A,@h€@h�B*A`�B@ž@@Až€@Až€Á,B*A`�B@A,B*A,@j�B@Až€*€D{€¿F€F€B€jF€Ã�PRINT-READABLY¿€¿O€¿B€¹9€Ã�PRINT-COMP-ENV<€€=€F€ F€pÀB€hì€UNBINDF€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€pÀB€h¬€BINDF€F€B€ÅF€F€pÀB€hì‚MAKE-CLOSURE-WITH-ENV€F€F€D€p€B€ ,�INTERNALB€Á€€>€F€F€€:ŸF€j€"@@Až�4À?BÁr€@Áp�B@žBh€AÀ A`�B@žBh€AÀ@žB"A Ag€B@žBh€AÀ@žB"A Aq€B@ŸBf�C`Àj€‚D{€ÌF€F€ì�~%Definitions:F€,�~%Plist:F€ ,„~&Compilation Environment for ~sF€Ã�*PRINT-LEVEL*€F€Ã�*PRINT-LENGTH*¿€ÌO€ÌB€Á9€B€Ë<€€=€F€F€ÀAPPLY€F€F€B€ÇF€F€D€B€ÉB€Ë€€€‚UNDEFINED-VALUE€€>€F€F€€:ˆF€AžC@Až�4À?B EÀ"@k€F{€ÖF€F€p€B€ ,�MAP-HASH¿€ÖO€ÖB€Ë9€B€Ô<€€=€F€F€B€åF€>€F€F€€:„F€h€EÀ @#F{€ÙF€F€¬�~% ~a~30t~a¿€ÙO€ÙB€Ô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€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€Ã‚*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€X<€€=€F€F€CƒDEALLOCATE-WHOLE-RESOURCE€F€>€F€€€:‚F€ÅAžF{€`F€€ÃƒCOMPILER-TEMPORARIES-RESOURCE€¿€`O€`B€X9€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{€cF€F€D€D€B€…B€½D€Ã�.CONTINUATION.D€Ã�USING-RESOURCED€ÀTEMPS€B€aD€B€‡D€D€B€½B€9D€‚FASD-HASH-TABLE€D€ÀSECONDB€gD€ƒ‚FASD-EVAL-HASH-TABLED€ÀTHIRD€B€gD€B€óD€ÀFOURTHB€gD€ÂFASD-TYO-BUFFER-ARRAY€D€ÀFIFTH€B€gD€ƒ€SENDB€jp€B€ l�CLEAR-HASHD€B€zB€nB€|D€ƒ€SETFD€ƒ�FILL-POINTERB€ó€D€ƒ‚MULTIPLE-VALUE-PROG1D€B€dD€B€zB€jB€|D€B€zB€nB€|D€‚ARRAY-INITIALIZEB€óB€—F€D€�DECLARE€D€C‚DOWNWARD-FUNCTION€D€p€l€EHì‚UNINTERESTING-FUNCTIONB€ˆF€B€dF€ƒ€FLET¿€cDÀB€ˆB€cO€˜B€b9€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€dD€B€fD€B€gB€aD€B€‡D€D€B€½B€9D€B€jB€—D€B€nB€—D€B€óD€B€rB€gD€B€uB€—D€B€D€B€€B€ó€D€B€„D€B€dD€B€ˆB€óB€—F€D€B€�D€B€�D€B€”B€ˆF€B€dF€B€—¿€šDÀB€ˆB€šO€±B€™9€D€B€¤B€apÀB€v¬‚RESOURCE-CONSTRUCTOR<€€=€F€ F€ pÀB€hì€LISTN€F€F€pÀB€v,‚SET-FILL-POINTERF€F€B€…F€F€B€�F€F€B€¸F€F€B€…F€F€B€�F€F€B€EF€F€B€�F€F€ B€I€F€B€EF€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€9F€�ART-16B€F€B€9F€C�ART-Q-LISTF€B€9F€ p€B€ ¬€AREAF€ p€B€ ¬€SIZEF€ B€GF€B€9F€B€½F€B€¿€B€9¿€¹O€¹B€´1€D€ pÀB€v¬‚INITIALIZE-RESOURCE€D€B€:B€aD€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€B€gF€ ÀPROGN€F€ B€„F€ D€D€B€ÑB€-D€B€'B€—D€B€àB€—F€ÀLET-IFF€D€D€ƒ€NOT€B€ÑF€B€‡¿€ØDÀB€ˆB€ØO€åB€Ö9€Ã‚FUNCTION-REFERENCED-P€<€€=€F€F€ƒ�ASSOC-EQUAL€F€F€B€�F€>€F€F€€:„F€ EÁAžBAžF{€èF€F€B€'¿€èO€èB€æ9€C‚COMPILATION-DEFINE<€F€ F€BF€GF€2F€$F€.F€=F€*F€/F€#F€0F€F€F€F€F€F€>F€ F€>F€F€=€F€F€Fp€B€vì‚FUNCTION-SPEC-PUTPROP€F€F€?B€âF€F€>ƒ€ATOMF€F€;pÀB€hì�PROG1-INTERNALF€F€:B€~F€F€5B€lF€F€/ƒ€CDDRF€F€-ÀSETCARF€F€+B€mF€F€'B€žF€F€$B€rF€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€HÁ@žB@ž@@A ž€@Až€h€"@@"@Á@žB@ž@@Až€>@Až€Á@žB@Až€>@Až€j€@@Á@ žB@Až€ $Ab‰B$Ab�B@ž@@A ž€@Až€ &@$AfŠB"*@(AÀ&@j‹B0€,.@ .C@AÀ@žB@ž@@Až€/@Až€.C@A*B=@Až€ / C.@@@A ž€$@Až€Á*@, B@Až�(AÀ&@,B@žB@Až€*€D C@C@ž@@A ž€G@Až€ E"@ÀAžF@€D{€ñF€ F€Ep€B€ ¬‚COMPILATION-DEFINED€F€8p€B€ ,�PUT-HASHF€3B€óF€&B€óF€ p€B€ ,�GET-HASHF€B€F€ B€F€B€€Ã‚FDEFINE-FILE-PATHNAME€¿€ñO€ñB€é9€ƒ‚COMPILATION-DEFINEDP<€F€F€AF€IF€=F€JF€9F€KF€3F€ F€)F€/F€F€/F€ F€1F€F€5=€F€ F€HB€âF€F€Gƒ€MEMQF€F€Dp€B€vl‚FUNCTION-SPEC-GET€F€F€>C�FDEFINEDP€F€F€6B€âF€F€5B€ìF€F€0B€F€F€"B€†F€F€B€~F€F€B€F€F€ B€Õ€F€B€�F€F€B€>F€>€F€F€€ú¿0F€LÁ@žB@ž@@Až€5@Až€ÁAžBj€@@@ÔÀd€B@` aÃÚÀ@Až€1@Až€ A žC &@"Af�B@AÀ&@j�B@ÔÀd€B@` aÃÚÀ@Až€@ž@@Až€/@Až€d€@@`aÃ@@~€B@F#C@À@AÀ@žB@ÔÀd€B@` aÃÚÀ@Až€@ž@@Až€/@Až€j€@@d€@@`aÃâÀ@Až€Ô€D"AcˆB"@@@A ž€ @Až€j€€D C@C@ž@@A ž€K@Až€ @@@ž@@Až€J@Až€ C@ž@@A ž€I@Až€ AÀ@žB@AÀ@žBAG@€Dj€€D@€D{€þF€F€FD€B€—p€B€ l�UNDEFINED€F€CB€óF€!B€óF€B€÷F€B€€B€¿€þO€þB€ù9€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€O€B€1€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€<€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€ B€ïF€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€ F€B€‡F€D€B€:D€B€B€B€-D€lƒContinue with compilation.D€B€\D€À&REST€B€aD€ÀTHROW€D€B€:B€B€—F€ƒ‚CONDITION-RESUME-IF€F€D€B€:B€F€ÀCATCH€¿€DÀB€ˆB€O€1B€9€B€<€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€3€F€€B€åF€F€xB€âF€F€wB€~F€F€qB€âF€F€pB€~F€F€jB€âF€F€iB€úF€F€dB€�F€F€bƒ€WARNF€F€aB€~F€F€[B€�F€F€YÃ�RECORD-WARNINGF€F€XB€ÒF€F€WB€�F€F€TB€å€F€LB€3€F€Kp€¬€ZWEIlƒSAVE-POSITION-IN-REGISTER€F€F€IB€åF€F€CB€†F€F€<p€B€6l‚MAKE-REGISTER-NAMEF€F€6B€~F€F€2B€�F€F€.B€�F€F€*B€4F€F€)B€~F€F€B€~F€F€B€úF€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€B€ÅF€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€F€B€F€~ì…~&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€F€`p€B€ ì�REPORT-STRING€F€^l€~AF€]p€B€ ì€ERROR€F€ZB€ F€VB€ F€Rl€~AF€PB€IF€Np€B€ l�NO-ACTION€F€H¬†~&Position of this error saved in ZWEI register ".".F€Bp€B€6ì€POINT€F€5p€B€ ,�READ-BP€F€4B€°F€1B€F€-B€F€(B€FF€&l€~AF€%B€IF€$C�READ-ERRORF€B€LF€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€9€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€B€3F€F€ƒ€DELQF€F€B€úF€F€B€†F€F€ B€3F€F€ ÀNCONC€F€F€ ÀNCONS€F€F€B€úF€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{€dF€F€C�REWRITERS€F€B€eF€ C�OPTIMIZERSF€B€f¿€dO€dB€`9€Ã‚ADD-REWRITER-INTERNAL€<€F€F€F€F€F€=€F€ F€B€3F€F€B€aF€F€B€úF€F€B€†F€F€ B€3F€F€ B€bF€F€ B€cF€F€B€úF€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{€hF€F€B€fF€B€fF€ B€eF€B€e¿€hO€hB€g9€Ã�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{€lF€F€B€:F€B€:F€ B€`¿€lDÀB€ˆB€lO€mB€i1€D€B€3D€B€:B€iD€B€:�OBSOLETED€B€:Ã�STYLE-CHECKER€1€D€B€3D€B€:B€iD€Ã�STRING-APPEND€lƒis an obsolete function; €ìƒuse defoptimzer or defrewrite€D€B€:B€o9€ƒ�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€kF€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€ÜF€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€kF€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€gF€#D€B€†F€!B€‚F€ B€�F€B€ƒF€B€ÜF€B€:F€B€:F€B€gF€l…Optimizer must accept at least on argument¿€‡DÀ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€vF€F€B€kF€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€B€‹€>€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-FRAMEB€9€B€É<€€=€F€F€B€F€>€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€ÕB€Ð1€D€B€3D€B€:B€ÊD€B€:D€B€6p€B€ ¬�NAMED-ARRAY€B€—D€D€ B€Ñ€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€—B€sD€B€:B€w1€D€B€3D€B€:B€àD€B€:B€ÊD€B€:B€~1€D€C�DEFF-MACROB€àD€B€:DÀB€ˆpÀB€v¬ƒDEFSTRUCT-EXPAND-CONS-MACRO€9€B€æ<€€=€F€F€ B€‚F€F€ B€F€F€B€‚F€F€B€F€F€B€ƒ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€üB€æ1€D€B€›D€B€:B€ÊB€ž1€D€B€¢D€B€:D€B€¤B€ÊB€¥D€B€:B€aD€B€:D€B€ªB€¬B€®B€°B€²B€-9€D€B€¸B€B€ª<€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€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"@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€ç1€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€3D€B€:B€ËD€B€:D€B€6B€ØB€—D€D€ B€*€B€—pÀB€v¬‚%%DEFSTRUCT-EMPTY%%€B€-B€—B€)B€—B€—B€—D€ B€$F€B€—B€2B€-B€—B€#B€—B€—B€—D€ B€F€B€—B€2B€-B€—B€B€—B€—B€—D€ B€F€B€—B€2B€-B€—B€B€—B€—B€—D€ B€F€B€—B€2B€-B€—B€B€—B€—B€—D€ B€ F€B€—B€2B€-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€sD€B€:B€w1€D€B€3D€B€:B€?D€B€:B€ËD€B€:B€~1€D€B€óB€?D€B€:B€ö1€D€B€3D€B€:B€DD€B€:B€ËD€B€:B€~1€D€B€óB€DD€B€:DÀB€ˆpÀB€v¬ƒDEFSTRUCT-EXPAND-ALTER-MACRO9€B€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€B€‚F€F€B€F€F€B€ƒF€€B€ûF€>€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{€aF€F€B€Ë¿€aO€aB€F1€D€B€›D€B€:B€ËB€ž1€D€B€¢D€B€:D€B€¤B€ËB€¥D€B€:B€aD€B€:D€B€ªB€¬B€®B€°B€²B€-9€D€B€¸B€eB€ª<€F€F€F€€F€=€F€F€B€GF€F€B€¾F€F€B€�F€>€F€F€F€F€€:‰F€ €j€(@ Á@žB@Až€@Až€#G"E$@'F{€mF€F€B€À¿€mO€mB€l9€B€G<€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{€nF€F€ l€??F€l€??F€ì†~A ~:[(Unfinished) ~]~:[~;(Tail-called) ~]~:[~;~A~A~]¿€nO€nB€G9€‚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€jF€F€ÀCDADDRF€F€ÀCADDARF€F€B€kF€F€ÀCADAARF€F€ B€ïF€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{€xF€F€UC�OUTI-FOR-KF€RD€p€B€ l‚CLEANUP-GENERATOR€D€B€Hƒ�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€¿€xDÀB€ˆB€xO€�B€r9€B€†<€F€F€F€ €F€=€F€F€?B€oF€F€>B€oF€F€=B€oF€F€<B€jF€F€;B€jF€F€6B€oF€F€5B€oF€F€-B€lF€F€,B€jF€F€+B€qF€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€ïF€F€ B€F€F€ B€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ÁA žBÁ@ žBÁA žBÅ*AÀ@žB@A,A%B.A&B$AÁ.@%BAžBAžBÁÁÁ.@ÁÁ/B,BÁ/BAžB)BÁ.@ÁÁÀÁÀ*BAžBÀÁ*@j€@%B@žB@žB@žBAžF{€ŽF€F€8ƒ‚CLEAN-UP-OPEN-FRAMESF€7D€�FSIGNAL€ì‚How does this happen?€F€4B€°F€3B€žF€2D€B€âC�*DROPTHRU*F€1C€ORF€0ÀUNLESSF€.B€gF€*C�ADD-FRAME€F€'B€ F€&B€F€$B€gF€#B€ÜF€"B€„F€B€•F€D€B€°F€B€‡F€l�NEW-FRAME€F€¬‚ORIGINAL-DESTINATIONF€ ¬‚ORIGINAL-OPEN-FRAMES¿€ŽDÀB€ˆB€ŽO€œB€†9€Ã‚DISCARDING-OPEN-FRAMES<€F€F€F€ €F€=€F€ F€B€oF€F€B€lF€F€B€jF€F€ B€ïF€F€ B€F€F€ B€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ÅÀÁÁ$@À'B(BAžF{€žF€F€p€B€ ,�DISCARD€F€B€�F€ƒ�WITH-FRAMES€F€D€D€B€­B€­F€ B€‡¿€žDÀB€ˆB€žO€¤B€�9€B€¡<€F€€F€=€F€F€B€oF€F€B€oF€F€B€qF€F€ B€lF€F€ B€lF€F€B€lF€F€B€·F€F€B€mF€>€F€F€F€F€€:’F€€j€"@ CÁA žBÅ&AÀ@žB@AÀAžBÁÁ%BÁ&B@žBAžF{€¥F€F€Ã�RESTORE-FRAME€F€ B€ÜF€ B€„F€ D€D€B€°B€°F€D€B€°F€B€‡F€l�OLD-FRAMES¿€¥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€»B€¶1€D€B€¦‚VAR-DECLARATIONSDÀB€°ƒ�DECLARATIONSB€9€B€¼<€€=€F€F€B€F€>€F€F€€:‚F€ E}€F{€Á€¿€ÁO€ÁB€¼1€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€È<€€=€F€F€B€F€>€F€F€€:‚F€ Ey€F{€Í€¿€ÍO€ÍB€È1€D€B€¦�VAR-INITDÀB€°ƒ€INITB€9€B€Î<€€=€F€F€B€F€>€F€F€€:‚F€ Ew€F{€Ó€¿€ÓO€ÓB€Î1€D€B€¦‚VAR-LAP-ADDRESS€DÀB€°ƒ�LAP-ADDRESS€B€9€B€Ô<€€=€F€F€B€F€>€F€F€€:‚F€ Eu€F{€Ù€¿€ÙO€ÙB€Ô1€D€B€¦Ã�VAR-USE-COUNT€DÀB€°C�USE-COUNT€B€9€B€Ú<€€=€F€F€B€F€>€F€F€€:‚F€ Es€F{€ß€¿€ßO€ßB€Ú1€D€B€¦�VAR-TYPEDÀB€°ƒ€TYPEB€9€B€à<€€=€F€F€B€F€>€F€F€€:‚F€ Eq€F{€å€¿€åO€åB€à1€D€B€¦�VAR-KINDDÀB€°ƒ€KINDB€9€B€æ<€€=€F€F€B€F€>€F€F€€:‚F€ Eg€F{€ë€¿€ëO€ëB€æ1€D€B€¦�VAR-NAMEDÀB€°ƒ€NAMEB€9€B€ì<€€=€F€F€B€F€>€F€F€€:‚F€ Ec€F{€ñ€¿€ñO€ñB€ì1€D€B€3D€B€:B€°D€B€:D€B€6B€ØB€—D€ D€ B€í€B€—B€—B€-B€—B€ì,›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€áF€B€—B€—B€-B€—B€à,„Either FEF-LOCAL or FEF-SPECIAL.B€—B€—D€ B€ÛF€B€—€B€-B€—B€Úl‰Number of times variable is used, not counting binding and initialization.B€—B€—D€ B€ÕF€B€—B€—B€-B€—B€Ô,‹(ARG n) for an argument, (LOCAL n) for a local, (SPECIAL symbol) for a special variable.B€—B€—D€ B€ÏF€B€—B€—B€-B€—B€Î,‡Describes how the variable should be initted on binding.B€—B€—D€ B€ÉF€B€—B€—B€-B€—B€È,†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€½F€B€—B€—B€-B€—B€¼l…Declarations pertaining to this variable.€B€—B€—D€ B€·F€ 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€sD€B€:B€w1€D€B€3D€B€:B€D€B€:B€°D€B€:B€~1€D€B€óB€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€ƒF€F€B€ûF€>€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€›D€B€:B€°B€ž1€D€B€¢D€B€:D€B€¤B€°B€¥D€B€:B€aD€B€:D€B€ªB€¬B€®B€°B€²B€-9€D€B€¸B€0B€ª<€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{€8F€F€B€À¿€8O€8B€79€B€<€€=€F€F€ B€»F€F€B€lF€F€B€F€F€B€½F€>€F€F€€:�F€  A"@h€@h�B Ab�B@A"B A"@j�B@Až€ €D{€9€¿€9O€9B€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€F€B€F€>€F€F€€:‚F€ Eg€F{€K€¿€KO€KB€F1€D€B€¦ƒ�NEW-VAR-VAR€DÀB€GB€°B€9€B€L<€€=€F€F€B€F€>€F€F€€:‚F€ Ec€F{€P€¿€PO€PB€L1€D€B€3D€B€:B€GD€B€:D€B€6B€ØB€—D€D€ B€°€B€—B€—B€-B€—B€L¬…The VAR struct this destination will create.B€—B€—D€ B€ËF€B€—B€—B€-B€—B€Fì†The OPEN-FRAME struct this destination will activate.€B€—B€—B€-D€D€ƒ�MAKE-NEW-VARB€—B€—F€B€—B€GB€—€B€—B€—�NEW-VAR-B€-B€—B€—B€—ƒ�COPY-NEW-VARD€B€-Ã�PRINT-NEW-VAR€B€—B€sD€B€:B€w1€D€B€3D€B€:B€YD€B€:B€GD€B€:B€~1€D€B€óB€YD€B€:B€ö9€B€_<€€=€F€F€ B€‚F€F€ B€F€F€B€‚F€F€B€F€F€B€ƒF€€B€ûF€>€F€F€€:�F€qˆC"AÀ@žB Ab�B@A"@b�B Af�B@A"@f�B@Až€"€D{€oF€F€B€G¿€oO€oB€_1€D€B€›D€B€:B€GB€ž1€D€B€¢D€B€:D€B€¤B€GB€¥D€B€:B€aD€B€:D€B€ªB€¬B€®B€°B€²B€-9€D€B€¸B€sB€ª<€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€z9€B€`<€F€F€F€F€F€=€F€F€B€»F€F€B€¿F€F€B€lF€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€3D€B€:B€‡D€B€:D€B€6B€ØB€—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€sD€B€:B€w1€D€B€3D€B€:B€¶D€B€:B€‡D€B€:B€~1€D€B€óB€¶D€B€:B€ö1€D€B€›D€B€:B€‡B€ž9€C�MAKE-GOTAG<€F€F€F€ €F€=€F€ F€B€¶F€ F€B€F€F€ B€mF€F€ B€F€F€ B€kF€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€¶¿€ÍDÀB€ˆB€ÍO€ÖB€Ì1€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€Û<€€=€F€F€B€F€>€F€F€€:ƒF€ E ÀAžF{€à€¿€àO€àB€Û1€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€ëB€æ1€D€B€¦ƒ„PROGDESC-ENTRY-LEXICAL-CLOSURE-COUNTDÀB€ŽƒƒENTRY-LEXICAL-CLOSURE-COUNT€B€9€B€ì<€€=€F€F€B€F€>€F€F€€:‚F€ E{€F{€ñ€¿€ñO€ñB€ì1€D€B€¦Ã�PROGDESC-VARS€DÀB€Žƒ€VARSB€9€B€ò<€€=€F€F€B€F€>€F€F€€:‚F€ Ey€F{€÷€¿€÷O€÷B€ò1€D€B€¦‚PROGDESC-NBINDS€DÀB€ŽÀNBINDSB€9€B€ø<€€=€F€F€B€F€>€F€F€€:‚F€ Ew€F{€ý€¿€ýO€ýB€ø1€D€B€¦C‚PROGDESC-PDL-LEVELDÀB€ŽB€”B€9€B€þ<€€=€F€F€B€F€>€F€F€€:‚F€ Eu€F{€€¿€O€B€þ1€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€íB€9€B€<€€=€F€F€B€F€>€F€F€€:‚F€ Ec€F{€€¿€O€B€1€D€B€3D€B€:B€ŽD€B€:D€B€6B€ØB€—D€ D€ B€í€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€þ,—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€ùF€B€—B€—B€-B€—B€øl¦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€óF€B€—B€—B€-B€—B€òì‡Value of *VARS* at entry to this block. Used only in blocks.€B€—B€—D€ B€íF€B€—B€—B€-B€—B€ì,�Unused.€B€—B€—D€ B€çF€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€ÜF€ B€—B€°B€-B€—B€Ûìš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€sD€B€:B€w1€D€B€3D€B€:B€<D€B€:B€ŽD€B€:B€~1€D€B€óB€<D€B€:B€ö9€B€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€ƒF€F€B€ûF€>€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{€RF€F€B€Ž¿€RO€RB€B1€D€pÀB€vl‚SET-DOCUMENTATION€D€B€:B€ŽD€B€:C�STRUCTURE€¬„Describes one element of PROGDESCS.€1€D€B€›D€B€:B€ŽB€ž1€D€B€¢D€B€:D€B€¤B€ŽB€¥D€B€:B€aD€B€:D€B€ªB€¬B€®B€°B€²B€-9€D€B€¸B€^B€ª<€F€F€F€€F€=€F€F€B€CF€F€B€¾F€F€B€�F€>€F€F€F€F€€:‰F€ €j€(@ Á@žB@Až€@Až€#G"E$@'F{€fF€F€B€À¿€fO€fB€e9€B€C<€€=€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{€gF€F€lƒ~S  ~A; Frame level = ~S€¿€gO€gB€C1€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€m<€€=€F€F€B€F€>€F€F€€:‚F€ E}€F{€s€¿€sO€sB€m1€D€B€¦ƒƒCOMPILER-QUEUE-ENTRY-GOTAGS€DÀB€nÀGOTAGSB€9€B€t<€€=€F€F€B€F€>€F€F€€:‚F€ E{€F{€y€¿€yO€yB€t1€D€B€¦ÃƒCOMPILER-QUEUE-ENTRY-PROGDESCSDÀB€nC�PROGDESCS€B€9€B€z<€€=€F€F€B€F€>€F€F€€:‚F€ Ey€F{€€¿€O€B€z1€D€B€¦ƒ„COMPILER-QUEUE-ENTRY-LOCAL-FUNCTIONSDÀB€n‚LOCAL-FUNCTIONS€B€9€B€€<€€=€F€F€B€F€>€F€F€€:‚F€ Ew€F{€…€¿€…O€…B€€1€D€B€¦ÃƒCOMPILER-QUEUE-ENTRY-VARIABLESDÀB€nC�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€nB€½B€9€B€Œ<€€=€F€F€B€F€>€F€F€€:‚F€ Es€F{€�€¿€�O€�B€Œ1€D€B€¦„COMPILER-QUEUE-ENTRY-DEFINITION€DÀB€nC�DEFINITIONB€9€B€‘<€€=€F€F€B€F€>€F€F€€:‚F€ Eq€F{€–€¿€–O€–B€‘1€D€B€¦C„COMPILER-QUEUE-ENTRY-FUNCTION-NAMEDÀB€nÃ�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€nÃ�FUNCTION-SPEC€B€9€B€�<€€=€F€F€B€F€>€F€F€€:‚F€ Ec€F{€¢€¿€¢O€¢B€�1€D€B€3D€B€:B€nD€B€:D€B€6B€ØB€—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€½F€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€z,ŒPROGDESCS inherited from containing function.�This becomes the value of *PROGDESC-ENVIRONMENT*.€B€—B€—D€ B€uF€B€—B€—B€-B€—B€tlŒGOTAGS from containing function that we can go to.�This becomes the value of *GOTAG-ENVIRONMENT*.€B€—B€—D€ B€oF€B€—B€—B€-B€—B€ml“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€nB€—€B€—B€—ÂCOMPILER-QUEUE-ENTRY-€B€-B€—B€—B€—B€—B€—B€—B€sD€B€:B€w1€D€B€3D€B€:B€ÀD€B€:B€nD€B€:B€~1€D€B€óB€ÀD€B€:B€ö1€D€B€TD€B€:B€nB€W,…Describes one element of COMPILER-QUEUE.1€D€B€›D€B€:B€nB€ž1€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€î¿€øO€øB€ö1€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€Û†€B-ŠD€B€L†€ìóD€B€ì†€.=äD€B€–†€;$@D€p€¬€LISPl€IF†€uÄ}D€pÀB€v¬�XR-BQ-APPEND†€k�D€B€†€œ˜D€B€#†€œšD€B€†€œ”D€B€ †€œ’D€B€Ð†€;( D€B€É†€;$ D€B€)†€œœD€ÂWITH-OUTPUT-TO-STRING€†€wi•D€ÀDOLIST†€5êÒD€�TYPECASE†€ZÌD€p€B€ì€LISTP€†€s¯€D€ƒ€INCF†€9QD€ƒ€LOCF†€xD€B€'†€ Ö#D€�GETHASH€†€hr D€B€z†€X¡D€pÀB€v,�SETHASH€†€Ä“D€ÀCONSP€†€Nî±D€ÂMAKE-EQUAL-HASH-TABLE€†€rFD€B€†€J¸ÇD€�MAPHASH€†€YÍD€C�LEXPR-SEND†€<—bD€ÀPSETQ€†€+FýD€B€!†€ Ú#D€B€†€ Þ#D€B€c†€46)D€B€-†€ Ò#D€B€g†€·�D€pÀB€v,„DEFSTRUCT-EXPAND-WITH-CONS-MACRO†€)Í¡D€ƒ€CASE†€:Â-D€pÀB€vl�XR-BQ-LIST†€~ËD€pÀB€v¬�XR-BQ-LIST*€†€Bº+€€