(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "26-Jan-98 13:59:08" ("compiled on " IL:|{DSK}disk2>jdstools>lc3>lispcore3.0>sources>XCLC-GENCODE.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED " 2-Oct-91 11:38:50" IL:|{PELE:MV:ENVOS}SOURCES>XCLC-GENCODE.;4| 70006 IL:|changes| IL:|to:| (IL:FUNCTIONS GENCODE-CALL) IL:|previous| IL:|date:| " 4-Jun-90 13:14:30" IL:|{PELE:MV:ENVOS}SOURCES>XCLC-GENCODE.;3|) (IL:RPAQQ IL:XCLC-GENCODECOMS ((IL:* IL:|;;;| "Code Generation") (IL:VARIABLES *AVAILABLE-LEXICAL-NAMES* *BLIP-VAR* *CODE* *CURRENT-FRAME* *FRAME-NAME* *FREE-VENV* *NON-LOCALS* *OTHERS* *PC-VAR* *SPECIAL-LOCALS-BOUND* *SPECIAL-VENV* *STACK-NUMBER* *SUPPRESS-POPS* *TAG-NUMBER* *TAIL-RECURSION-THRESHOLD* *VAR-NUMBER* *LOCAL-FUNCTIONS*) (IL:FUNCTIONS START-LAP EMIT-LAP EMIT-LAP-LIST END-LAP) (IL:FUNCTIONS COLLECT-CODE FIND-SEGMENT MAKE-LAP-VAR MAKE-LAP-VAR-REFERENCE) ( IL:FUNCTIONS SET-UP-RETURN-TO TAKE-DOWN-RETURN-TO) (IL:FUNCTIONS FRAME INTERCEPT-NON-LOCALS) (IL:COMS (IL:STRUCTURES UNBIND-FOR-TAIL-RECURSION) (IL:FUNCTIONS STOP-UNBINDS-AT-FRAME-BOUNDARY)) (IL:FUNCTIONS GENERATE-CODE GENCODE) (IL:* IL:\; "Yet to be written: gencode-progv") (IL:FUNCTIONS GENCODE-BLOCK GENCODE-CALL GENCODE-CATCH GENCODE-GO GENCODE-IF GENCODE-LABELS GENCODE-LAMBDA GENCODE-LET GENCODE-LITERAL GENCODE-MV-CALL GENCODE-MV-PROG1 GENCODE-OPCODES GENCODE-PROGN GENCODE-PROGV GENCODE-RETURN GENCODE-SEGMENT GENCODE-SETQ GENCODE-TAGBODY GENCODE-TAGBODY-INLINE GENCODE-THROW GENCODE-UNWIND-PROTECT GENCODE-VAR-REF) (IL:* IL:|;;| "Policy variables.") (IL:VARIABLES *POP-SUPPRESSION-POLICY* *TAIL-RECURSION-POLICY*) (IL:* IL:|;;| "Testing Code Generation") (IL:FUNCTIONS TEST-GENCODE TEST-GENCODE1) (IL:* IL:|;;| "Arrange to use the correct compiler.") (IL:PROP IL:FILETYPE IL:XCLC-GENCODE) (IL:* IL:|;;| "Arrange to use the proper makefile environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCLC-GENCODE))) (PROCLAIM (QUOTE (SPECIAL *AVAILABLE-LEXICAL-NAMES*))) (OR (BOUNDP (QUOTE *AVAILABLE-LEXICAL-NAMES*)) (SETQ *AVAILABLE-LEXICAL-NAMES* NIL)) (PROCLAIM (QUOTE (SPECIAL *BLIP-VAR*))) (OR (BOUNDP (QUOTE *BLIP-VAR*)) (SETQ *BLIP-VAR* NIL)) (IL:SET-DOCUMENTATION (QUOTE *BLIP-VAR*) (QUOTE VARIABLE) "If non-NIL, this is the LAP variable to be used for naming the blip variable in the current frame.") (PROCLAIM (QUOTE (SPECIAL *CODE*))) (OR (BOUNDP (QUOTE *CODE*)) (SETQ *CODE* NIL)) (IL:SET-DOCUMENTATION (QUOTE *CODE*) (QUOTE VARIABLE) "The current collection of LAP instructions, in reverse order. Added to during code generation.") (PROCLAIM (QUOTE (SPECIAL *CURRENT-FRAME*))) (OR (BOUNDP (QUOTE *CURRENT-FRAME*)) (SETQ *CURRENT-FRAME* NIL)) (PROCLAIM (QUOTE (SPECIAL *FRAME-NAME*))) (OR (BOUNDP (QUOTE *FRAME-NAME*)) (SETQ *FRAME-NAME* NIL)) (IL:SET-DOCUMENTATION (QUOTE *FRAME-NAME*) (QUOTE VARIABLE) "The name of the frame currently under construction. Used in the code generator.") (PROCLAIM (QUOTE (SPECIAL *FREE-VENV*))) (OR (BOUNDP (QUOTE *FREE-VENV*)) (SETQ *FREE-VENV* NIL)) (IL:SET-DOCUMENTATION (QUOTE *FREE-VENV*) (QUOTE VARIABLE) "An AList mapping the symbols naming freely referenced special variables into the LAP variables representing them. See also *special-venv*." ) (PROCLAIM (QUOTE (SPECIAL *NON-LOCALS*))) (OR (BOUNDP (QUOTE *NON-LOCALS*)) (SETQ *NON-LOCALS* NIL)) (IL:SET-DOCUMENTATION (QUOTE *NON-LOCALS*) (QUOTE VARIABLE) "A list of the lexical variables (in the form of VARIABLE structures) used freely below this point. Added to and reset at various points during code generation." ) (PROCLAIM (QUOTE (SPECIAL *OTHERS*))) (OR (BOUNDP (QUOTE *OTHERS*)) (SETQ *OTHERS* NIL)) (IL:SET-DOCUMENTATION (QUOTE *OTHERS*) (QUOTE VARIABLE) "A list of all auxillary variables used below the current point. It eventually includes all non-parameter variables created within a given lambda. Used during code generation." ) (PROCLAIM (QUOTE (SPECIAL *PC-VAR*))) (OR (BOUNDP (QUOTE *PC-VAR*)) (SETQ *PC-VAR* NIL)) (PROCLAIM (QUOTE (SPECIAL *SPECIAL-LOCALS-BOUND*))) (OR (BOUNDP (QUOTE *SPECIAL-LOCALS-BOUND*)) (SETQ *SPECIAL-LOCALS-BOUND* NIL)) (IL:SET-DOCUMENTATION (QUOTE *SPECIAL-LOCALS-BOUND*) (QUOTE VARIABLE) "Bound to T in contexts in which local (i.e., non-argument) specials have been bound, in order to diable the tail-recursion optimization." ) (PROCLAIM (QUOTE (SPECIAL *SPECIAL-VENV*))) (OR (BOUNDP (QUOTE *SPECIAL-VENV*)) (SETQ *SPECIAL-VENV* NIL)) (IL:SET-DOCUMENTATION (QUOTE *SPECIAL-VENV*) (QUOTE VARIABLE) "An AList mapping the symbols naming currently-bound special variables into the LAP variables representing them. See also *free-venv*." ) (PROCLAIM (QUOTE (SPECIAL *STACK-NUMBER*))) (OR (BOUNDP (QUOTE *STACK-NUMBER*)) (SETQ *STACK-NUMBER* NIL)) (IL:SET-DOCUMENTATION (QUOTE *STACK-NUMBER*) (QUOTE VARIABLE) "Counter for generation of unique LAP stack-level names.") (PROCLAIM (QUOTE (SPECIAL *SUPPRESS-POPS*))) (OR (BOUNDP (QUOTE *SUPPRESS-POPS*)) (SETQ *SUPPRESS-POPS* NIL)) (IL:SET-DOCUMENTATION (QUOTE *SUPPRESS-POPS*) (QUOTE VARIABLE) "If non-NIL code in effect context will suppress any extra pop's that might normally be generated. This variable is rebound throughout the code generator. To turn off this optimization, set the variable *pop-suppression-policy* to NIL." ) (PROCLAIM (QUOTE (SPECIAL *TAG-NUMBER*))) (OR (BOUNDP (QUOTE *TAG-NUMBER*)) (SETQ *TAG-NUMBER* 0)) (IL:SET-DOCUMENTATION (QUOTE *TAG-NUMBER*) (QUOTE VARIABLE) "Counter for the generation of unique LAP statement labels.") (PROCLAIM (QUOTE (SPECIAL *TAIL-RECURSION-THRESHOLD*))) (IL:SETQ *TAIL-RECURSION-THRESHOLD* 6) (IL:SET-DOCUMENTATION (QUOTE *TAIL-RECURSION-THRESHOLD*) (QUOTE VARIABLE) "The maximum number of required arguments a function can have and still enable the tail-recursion optimization." ) (PROCLAIM (QUOTE (SPECIAL *VAR-NUMBER*))) (OR (BOUNDP (QUOTE *VAR-NUMBER*)) (SETQ *VAR-NUMBER* 0)) (IL:SET-DOCUMENTATION (QUOTE *VAR-NUMBER*) (QUOTE VARIABLE) "Counter for the generation of unique LAP variables.") (PROCLAIM (QUOTE (SPECIAL *LOCAL-FUNCTIONS*))) |expand-START-LAP| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) hNIL NIL () (IL:SETF-MACRO-FUNCTION (QUOTE START-LAP) (QUOTE |expand-START-LAP|)) |expand-EMIT-LAP| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 PUSH) ( 16 (*CODE*)) (IL:SETF-MACRO-FUNCTION (QUOTE EMIT-LAP) (QUOTE |expand-EMIT-LAP|)) |expand-EMIT-LAP-LIST| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) #@gggHohNIL (20 REVAPPEND 15 *CODE* 10 SETQ) ( 26 (*CODE*)) (IL:SETF-MACRO-FUNCTION (QUOTE EMIT-LAP-LIST) (QUOTE |expand-EMIT-LAP-LIST|)) |expand-END-LAP| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) oNIL NIL ( 4 (NREVERSE *CODE*)) (IL:SETF-MACRO-FUNCTION (QUOTE END-LAP) (QUOTE |expand-END-LAP|)) COLLECT-CODE :D8 (IL:L (1 CONTEXT 0 NODE) IL:P 0 *CODE*) @A H (15 NREVERSE 9 GENCODE) NIL () FIND-SEGMENT :D8 (IL:L (1 TAG 0 TAGBODY)) $@ Hµh¹AIÉ‘IHX°é(5 TAGBODY-SEGMENTS) (23 SEGMENT) () (IL:SET-DOCUMENTATION (QUOTE FIND-SEGMENT) (QUOTE FUNCTION) "Return the segment in the given tagbody that contains the given tag.") MAKE-LAP-VAR :D8 (IL:L (1 ARG-P 0 VAR) IL:F 4 *VAR-NUMBER* IL:F 5 *OTHERS* IL:F 6 *AVAILABLE-LEXICAL-NAMES* IL:F 7 *SPECIAL-VENV*) @dÃ¡@É1Hdgð²2¿g@ÉTkÔch¹@ÉIWcA¤IUc Igð¢±”V² @dÉ³¿@dÉgð²Q¿@Égð•g„g@ÉTkÔchº@JA³@Égð¤JUc Jg@ÉVVc¿h[KHgð´g@ÉhoHo(274 IL:ECASE-FAIL) (252 VARIABLE-STRUCT 246 :G 238 :GLOBAL 214 VARIABLE-STRUCT 208 :L 203 VARIABLE-STRUCT 189 :FUNCTION 182 VARIABLE-STRUCT 170 VARIABLE-STRUCT 152 VARIABLE-STRUCT 146 :L 140 :FN 133 :FUNCTION 126 VARIABLE-STRUCT 116 :FUNCTION 109 VARIABLE-STRUCT 97 VARIABLE-STRUCT 82 :LEXICAL 59 VARIABLE-STRUCT 41 VARIABLE-STRUCT 35 :S 26 :SPECIAL 14 VARIABLE-STRUCT 6 VARIABLE-STRUCT) ( 269 (:SPECIAL :LEXICAL :GLOBAL) 263 (VARIABLE-SCOPE VAR)) MAKE-LAP-VAR-REFERENCE :D8 (IL:L (0 VAR) IL:F 4 *FREE-VENV* IL:F 5 *NON-LOCALS* IL:F 6 *OTHERS* IL:F 7 *VAR-NUMBER* IL:F 8 *SPECIAL-VENV*) º@É1Hdgð²+¿@U¹dI’¿IIc @ÉZ¿Jµxo@ °ñgð²J@ÉWµ;@ÉTµ/g@ÉWkÔch»@ÉKTcKVcKHgð´g@ÉhoHo(183 IL:ECASE-FAIL 59 IL:ASSERT-FAIL) (161 VARIABLE-STRUCT 155 :G 147 :GLOBAL 124 VARIABLE-STRUCT 105 VARIABLE-STRUCT 99 :F 88 VARIABLE-STRUCT 75 VARIABLE-STRUCT 66 :SPECIAL 41 VARIABLE-STRUCT 17 :LEXICAL 5 VARIABLE-STRUCT) ( 178 (:LEXICAL :SPECIAL :GLOBAL) 172 (VARIABLE-SCOPE VAR) 53 "BUG: ~S should should have a LAP var by now.") SET-UP-RETURN-TO :D8 (IL:F 0 *VAR-NUMBER* IL:F 1 *OTHERS* IL:F 2 *BLIP-VAR* IL:F 3 *PC-VAR*) >R³ggPkÔchcQc¿S³ggPkÔchcdQchNIL (41 SI::*CATCH-RETURN-PC* 36 :S 12 SI::*CATCH-RETURN-TO* 7 :S) () TAKE-DOWN-RETURN-TO :D8 (IL:F 0 *CODE* IL:F 1 *BLIP-VAR*) ogQhoP c(26 REVAPPEND) (9 :VAR_) ( 18 ((:POP)) 4 (:CONST NIL)) |expand-FRAME| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ~@AH¹gI dºgI d»gI ¿H¼Io gJ´ gJhhK´ gKhhogoLh(106 APPEND 63 IL:KEYWORD-TEST 48 IL:FIND-KEYWORD 33 IL:FIND-KEYWORD 18 IL:FIND-KEYWORD) (111 HANDLER-BIND 90 *FRAME-NAME* 76 *CURRENT-FRAME* 68 LET 42 :BLIPS-ALLOWED 27 :NAME 12 :CURRENT-FRAME) ( 116 ((UNBIND-FOR-TAIL-RECURSION (FUNCTION STOP-UNBINDS-AT-FRAME-BOUNDARY))) 101 ((*BLIP-VAR* NIL) (*PC-VAR* NIL) (*CODE* (START-LAP)) *OTHERS* *SPECIAL-LOCALS-BOUND* *SPECIAL-VENV* *FREE-VENV* *AVAILABLE-LEXICAL-NAMES* *LOCAL-FUNCTIONS*) 58 (:BLIPS-ALLOWED :NAME :CURRENT-FRAME)) (IL:SETF-MACRO-FUNCTION (QUOTE FRAME) (QUOTE |expand-FRAME|)) |expand-INTERCEPT-NON-LOCALS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) B@!H¹HºgogoJggIhh o(53 APPEND) (41 OUTER-NON-LOCALS 36 SETQ 25 LET 15 LET) ( 60 ((SETQ *NON-LOCALS* (UNION OUTER-NON-LOCALS *NON-LOCALS*))) 30 (*NON-LOCALS*) 20 (OUTER-NON-LOCALS)) (IL:SETF-MACRO-FUNCTION (QUOTE INTERCEPT-NON-LOCALS) (QUOTE |expand-INTERCEPT-NON-LOCALS|)) (CL::SET-PARSED-STRUCTURE (QUOTE UNBIND-FOR-TAIL-RECURSION) T (QUOTE (CL::PS UNBIND-FOR-TAIL-RECURSION |UNBIND-FOR-TAIL-RECURSION constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL CONDITION "UNBIND-FOR-TAIL-RECURSION-" (|UNBIND-FOR-TAIL-RECURSION constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (UNBIND-FOR-TAIL-RECURSION 0 IL:XPOINTER) NIL) ) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE UNBIND-FOR-TAIL-RECURSION) (QUOTE (IL:XPOINTER)) (QUOTE (( UNBIND-FOR-TAIL-RECURSION 0 IL:XPOINTER))) 2 (QUOTE CONDITION)) (IL:PUTPROP (QUOTE UNBIND-FOR-TAIL-RECURSION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE) ) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE UNBIND-FOR-TAIL-RECURSION)) |UNBIND-FOR-TAIL-RECURSION constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdÈnðåhÒnÿåäÍ¿HjkØÐhÓÍHNIL (4 |UNBIND-FOR-TAIL-RECURSIONTYPE#|) () (IL:PUTPROP (QUOTE UNBIND-FOR-TAIL-RECURSION) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE UNBIND-FOR-TAIL-RECURSION) (QUOTE IL:%CONDITION-HANDLER) NIL) STOP-UNBINDS-AT-FRAME-BOUNDARY :D8 (IL:L (0 CONDITION)) <@Ã¬o ¿°îg Hµoo ¿H (57 INVOKE-RESTART 50 CERROR 29 FIND-RESTART 16 IL:ASSERT-FAIL) (24 CONTINUE-TAIL-CALL-TRANSFORMATION 5 UNBIND-FOR-TAIL-RECURSION) ( 45 "BUG: Can't find restart for tail call transformation" 40 "Muddle on anyway" 11 "BUG: Unbind stopper called with bad condition.") GENERATE-CODE :D8 (IL:L (0 TREE) IL:P 3 *CODE* IL:P 2 *STACK-NUMBER* IL:P 1 *TAG-NUMBER* IL:P 0 *VAR-NUMBER*) A@ ¬o ¿°îj1jYº@g K [d¿o ¿°ê(58 IL:ASSERT-FAIL 43 NREVERSE 37 GENCODE-LAMBDA 16 IL:ASSERT-FAIL 5 LAMBDA-P) (32 :ARGUMENT) ( 53 "Code generation returned more than one instruction!" 11 "Root tree for code generation is not a LAMBDA") GENCODE :D8 (IL:L (1 CONTEXT 0 NODE)) B@!HYZdÃ˜¿HA dÃ˜¿HA Ã—HA JdÃ˜¿HA Ã—HA JdÃ˜¿HA Ã—HA JdÃ˜¿HA Ã—HA JdÃ˜¿HA Ã—HA JdÃ˜¿HA Ã—HA JdÃ˜¿HA Ã—HA JdÃ˜¿HA Ã—HA JdÃ˜¿HA Ã´ HA gIoh (319 IL:CHECK-TYPE-FAIL 300 GENCODE-BLOCK 285 GENCODE-CALL 268 GENCODE-CATCH 254 GENCODE-GO 237 GENCODE-IF 223 GENCODE-LABELS 206 GENCODE-LAMBDA 192 GENCODE-LITERAL 175 GENCODE-MV-CALL 161 GENCODE-MV-PROG1 144 GENCODE-OPCODES 130 GENCODE-PROGN 113 GENCODE-PROGV 99 GENCODE-RETURN 82 GENCODE-SETQ 68 GENCODE-TAGBODY 51 GENCODE-THROW 37 GENCODE-UNWIND-PROTECT 21 GENCODE-VAR-REF) (306 $$NODE$$ 291 BLOCK-NODE 276 CALL-NODE 260 CATCH-NODE 245 GO-NODE 229 IF-NODE 214 LABELS-NODE 198 LAMBDA-NODE 183 LITERAL-NODE 167 MV-CALL-NODE 152 MV-PROG1-NODE 136 OPCODES-NODE 121 PROGN-NODE 105 PROGV-NODE 90 RETURN-NODE 74 SETQ-NODE 59 TAGBODY-NODE 43 THROW-NODE 28 UNWIND-PROTECT-NODE 12 VAR-REF-NODE) ( 312 (OR (VAR-REF-NODE) (UNWIND-PROTECT-NODE) (THROW-NODE) (TAGBODY-NODE) (SETQ-NODE) (RETURN-NODE) (PROGV-NODE) (PROGN-NODE) (OPCODES-NODE) (MV-PROG1-NODE) (MV-CALL-NODE) (LITERAL-NODE) (LAMBDA-NODE) (LABELS-NODE) (IF-NODE) (GO-NODE) (CATCH-NODE) (CALL-NODE) (BLOCK-NODE))) (IL:SET-DOCUMENTATION (QUOTE GENCODE) (QUOTE FUNCTION) "Dispatching function for code generation.") GENCODE-BLOCKA0001 :D8 (IL:P 1 *NON-LOCALS* IL:F 2 *CODE* IL:F 3 END-TAG IL:F 4 REMOTE-RETURN-TAG IL:F 5 NODE IL:F 6 STK-NUM IL:F 7 CONTEXT IL:F 8 *NON-LOCALS* IL:F 9 *FRAME-NAME* IL:F 10 *BLIP-VAR* IL:F 11 BLIP-VAR IL:F 12 *PC-VAR*) dgU hgWhogWhgWhogThgWhogVhhR cU W ¿U I XHW cWHdgð²:¿gShgThgVhgShhR cgðªHdgð²:¿gShgThgVhgShhR cgð´ gThgShhR cgHo(353 IL:ECASE-FAIL 334 REVAPPEND 298 TAKE-DOWN-RETURN-TO 291 REVAPPEND 225 TAKE-DOWN-RETURN-TO 218 REVAPPEND 152 UNION 142 DELETE 136 BLOCK-BLIP-VAR 129 GENCODE 122 BLOCK-STMT 108 REVAPPEND 15 BLOCK-NAME 4 SET-UP-RETURN-TO) (342 CONTEXT 321 :TAG 312 :TAG 304 :RETURN 276 :TAG 267 :SET-STACK 258 :TAG 249 :JUMP 240 :ARGUMENT 231 :MV 203 :TAG 194 :DSET-STACK 185 :TAG 176 :JUMP 167 :EFFECT 87 :NOTE-STACK 72 :VAR_ 63 :PUSH-TAG 48 :VAR_ 38 :VAR_ 23 :CONST 9 :CONST) ( 348 (:EFFECT :MV :ARGUMENT :RETURN) 82 (:POP) 58 (:POP) 33 (:CALL CONS 2)) GENCODE-BLOCK :D8 (IL:P 36 REMOTE-RETURN-TAG IL:P 35 BLIP-VAR IL:P 29 STK-NUM IL:P 28 END-TAG IL:P 27 *NON-LOCALS* IL:P 22 IL:*CONDITION-HANDLER-BINDINGS* IL:P 21 *LOCAL-FUNCTIONS* IL:P 20 *AVAILABLE-LEXICAL-NAMES* IL:P 19 *FREE-VENV* IL:P 18 *SPECIAL-VENV* IL:P 17 *SPECIAL-LOCALS-BOUND* IL:P 16 *OTHERS* IL:P 15 *CODE* IL:P 14 *PC-VAR* IL:P 13 *BLIP-VAR* IL:P 12 *FRAME-NAME* IL:P 11 *CURRENT-FRAME* IL:I 1 CONTEXT IL:I 0 NODE IL:F 37 *CODE* IL:F 38 *TAG-NUMBER* IL:F 39 *VAR-NUMBER* IL:F 40 *NON-LOCALS* IL:F 41 *STACK-NUMBER* IL:F 42 *FRAME-NAME* IL:F 43 IL:*CONDITION-HANDLER-BINDINGS* IL:F 44 *SUPPRESS-POPS* IL:F 45 *CURRENT-FRAME*) l% @ ¢±u° @ho@ WT’gg WVAYdgð—¿g°8dgð—¿g°(gð¨Igð´ggIoWLkÔcL"@O¿@O.¿@O0¿@ ²kggWNkÔcNh_¿@ _2¿gOhoogOhgO2hoO _¿O2Oh°ggWNkÔcNh_h_ ¿@ O. ¿@ O6 _4ZJWP cP¿gO0hoO _¿ghO ´gO hgOgOO4´gO4¾h]\»Nµ‚±‚Mh@ ´!g@ _¿h___¿OµvOhO*´gO*h O XgHoWJcJAgð´UWX³PoWJcJÉ»M”LK&¼„Kh\½N^±ÿcÉ_¿O˜OO&_¿ˆOh__¿O_±ÿehWLkÔcLWRkÔcRR"@WZ@O8@O:@A@ ¢±‡@ WLkÔcL$@ §jgjg¿O _<¿g@ _D¿h_B_@¿ODµOBO<WJcJÉ_>¿OB˜O@O>&_@¿ˆO>h_@_B¿OD_D°ÍgO:hWJcJ@ A gO8hWJcJ(858 GENCODE 852 BLOCK-STMT 767 BLOCK-CLOSED-OVER-VARS 752 NREVERSE 725 BLOCK-CLOSED-OVER-VARS 710 MAKE-LAP-VAR 705 BLOCK-BLIP-VAR 695 BLOCK-CLOSED-OVER-P 518 NREVERSE 510 APPEND 501 APPEND 462 BLOCK-CLOSED-OVER-VARS 449 BLOCK-CLOSED-OVER-VARS 379 REVAPPEND 353 UNION 341 DELETE 334 BLOCK-BLIP-VAR 327 GENCODE 320 BLOCK-STMT 273 REVAPPEND 213 MAKE-LAP-VAR 208 BLOCK-BLIP-VAR 177 BLOCK-CLOSED-OVER-P 129 IL:ECASE-FAIL 50 SYMBOL-FUNCTION 32 FORMAT 25 BLOCK-NAME 5 BLOCK-NEW-FRAME-P) (863 :TAG 836 :NOTE-STACK 798 VARIABLE-STRUCT 761 :CLOSE 743 GENCODE-BLOCKA0001 732 GENCODE-BLOCKA0001 686 BLOCK-NODE 676 BLOCK-NODE 666 BLOCK-NODE 656 BLOCK-NODE 599 VARIABLE-STRUCT 572 VARIABLE-STRUCT 548 :EFFECT 529 :CALL 491 :LOCAL-FUNCTIONS 456 :CLOSED-OVER 425 :NON-LOCAL 414 :BLIP 407 :NAME 397 :OTHERS 387 :LAMBDA 361 :TAG 294 SI::*CATCH-RETURN-TO* 289 :S 251 :VAR_ 241 :VAR_ 221 :CONST 189 SI::*CATCH-RETURN-FROM* 184 :S 166 BLOCK-NODE 155 BLOCK-NODE 144 BLOCK-NODE 118 CONTEXT 112 :ARGUMENT 104 :ARGUMENT 96 :EFFECT 89 :RETURN 81 :RETURN 73 :MV 65 :MV 45 STOP-UNBINDS-AT-FRAME-BOUNDARY 40 UNBIND-FOR-TAIL-RECURSION) ( 560 (:POP) 535 (0) 371 ((:RETURN)) 261 ((:POP)) 236 (:CALL CONS 2) 231 (:CONST NIL) 124 (:MV :RETURN :EFFECT :ARGUMENT) 19 "block ~A in ~A") GENCODE-CALLA0001 :D8 (IL:P 1 SI::*CATCH-RETURN-FROM* IL:P 0 SI::*DUMMY-FOR-CATCH* IL:F 2 IL:A23000) i@g cg(19 IL:\\MVLIST 14 SIGNAL) (26 :NORMAL 9 UNBIND-FOR-TAIL-RECURSION) () GENCODE-CALL :D8 (IL:L (1 CONTEXT 0 NODE) IL:P 28 *CODE* IL:P 27 IL:*PROCEED-CASES* IL:P 26 IL:A23000 IL:F 29 *CODE* IL:F 30 *CURRENT-FRAME* IL:F 31 *AVAILABLE-LEXICAL-NAMES* IL:F 32 *SUPPRESS-POPS* IL:F 33 *FRAME-NAME* IL:F 34 *TAG-NUMBER* IL:F 35 *OTHERS* IL:F 36 *VAR-NUMBER* IL:F 37 *TAIL-RECURSION-POLICY* IL:F 38 *SPECIAL-LOCALS-BOUND* IL:F 39 *TAIL-RECURSION-THRESHOLD* IL:F 40 IL:*PROCEED-CASES*) ƒ@ ñ @ Y ºh»Agð¢±dWJ¢±^WL’±X@É’±LHd ¢±B¿H \Égð¢±(WBLÉÌ¢±W< WNó’±W< ¨W< ²W< Jÿi»¢±áW< ’±ÖIdg ¿µñK²8W< °%d½gM hoW: c:¿µÜ°5W< °$d¾gN hoW: c:¿µÝoWPO6 dgð–¿O4$‚jðgW< µW<WDkÔcD_"¿OhW:c:H_ ¢±O _Égð¢±ôOÉgð¢±áH _dÉgð²A¿Agð³#og °çog ¿I ²éI cBhÉdgð§dgð’¿i¿h¢±ýId ¢±¿@É’±äI _¿OÉ_dgð–¿gŒgð´g_¿Od3@ð³ooOÉO¿W< ²AW< Oð²5Ig ¿IžIg ¿gOI kÕ°AgOhW:c:¿Ig ¿IžIg ¿gOI h°3Idg ¿µñgOÉJ@É´oW:c:¿Adgð²¿W@’±þœoW:c:gð´‚±ñoW:c:Hd ¢±‚¿Hd ³w¿HIA¿O8_¿H _$¿h_"_ ¿O$µO"_&³5OW: c:É_¿O"˜O O&_ ¿ˆOh_ _"¿O$_$°ÇgO&O W:c: ²cIdg ¿µñggH JhW:c:Adgð²¿W@’±ýªoW:c:gð´‚±ÿoW:c:Ih_*¿_(µ i¢±I°%_*¿HO* ¢h°ëO(°àdg ¿µñHd ²<¿Hg _,¿gO,O,_,¿JhW:c:¿O,¢±‹o °ï ²MH Égð³8H _.¿O.Égð›o °ågO. Jh°$gJhW:c:¿Hg ¿gJhW:c:¿H ¢±»HgA±«W>³"goWHkÔcHh_0WFcF¿O0°goW>W>c>¿h_2¿Hd ¿HgA‰g ¿gO2hoW: c:¿Idg ¿µñgO2JhW:c:¿O2W>c>¿Adgð²¿W@’±û¾oW:c:gð´H ’±û¡oW:c:(1650 LAMBDA-P 1574 GENCODE 1557 REVAPPEND 1533 GENCODE 1522 GENCODE-LAMBDA 1508 LAMBDA-P 1436 GENCODE-LAMBDA 1420 LAMBDA-P 1398 GENCODE 1367 MAKE-LAP-VAR-REFERENCE 1353 IL:ASSERT-FAIL 1324 VAR-REF-VARIABLE 1303 VAR-REF-VARIABLE 1295 VAR-REF-P 1288 IL:ASSERT-FAIL 1244 COLLECT-CODE 1230 LAMBDA-P 1218 GENCODE 1197 PASSABLE 1105 OPCODES-BYTES 1084 GENCODE 1068 OPCODES-P 1055 NREVERSE 999 IL:\\NCONC2 971 LAMBDA-CLOSED-OVER-VARS 958 GENCODE-LET 944 LAMBDA-NEW-FRAME-P 932 LAMBDA-P 830 GENCODE 813 LENGTH 799 GENCODE 779 GENCODE 746 LENGTH 732 GENCODE 712 GENCODE 694 LAMBDA-NO-SPREAD-NAME 685 LAMBDA-P 677 CERROR 598 LITERAL-VALUE 574 LITERAL-P 530 LITERAL-VALUE 521 LITERAL-P 513 IL:ASSERT-FAIL 496 IL:ASSERT-FAIL 453 VAR-REF-VARIABLE 409 VAR-REF-VARIABLE 398 VAR-REF-P 359 LAMBDA-TAIL-CALL-TAG 327 GENCODE-CALLA0001 299 REVAPPEND 283 MAKE-LAP-VAR-REFERENCE 267 REVERSE 262 LAMBDA-REQUIRED 246 REVAPPEND 230 MAKE-LAP-VAR-REFERENCE 213 REVERSE 208 LAMBDA-OPTIONAL 193 GENCODE 175 LAMBDA-KEYWORD 160 LENGTH 155 LAMBDA-OPTIONAL 146 LAMBDA-REST 138 LAMBDA-OPTIONAL 124 LENGTH 119 LAMBDA-REQUIRED 79 VAR-REF-VARIABLE 68 VAR-REF-P 23 LENGTH 17 CALL-ARGS 5 CALL-FN) (1641 :MV 1615 :EFFECT 1584 :CALL 1569 :ARGUMENT 1539 :VAR_ 1528 :ARGUMENT 1516 :ARGUMENT 1480 :L 1448 :L 1430 :ARGUMENT 1404 :STKCALL 1393 :ARGUMENT 1377 :CONST 1360 :CALL 1341 :GLOBAL 1334 VARIABLE-STRUCT 1315 :GLOBAL 1308 VARIABLE-STRUCT 1252 :CALL 1239 :ARGUMENT 1213 :ARGUMENT 1149 :MV 1123 :EFFECT 1099 :OPCODES 1094 :CALL 1079 :ARGUMENT 1046 :CLOSE 1008 VARIABLE-STRUCT 907 :MV 881 :EFFECT 856 CALLER 847 VARIABLE-STRUCT 840 :CALL 825 :ARGUMENT 805 :CALL 794 :ARGUMENT 774 :ARGUMENT 755 :CONST 738 :CALL 727 :ARGUMENT 707 :ARGUMENT 668 VARIABLE-STRUCT 640 IL:\\SETARG0 632 IL:\\SETARG 626 IL:\\ARG0 618 IL:\\ARG 608 VARIABLE-STRUCT 585 CALLER 555 IL:\\SETARG 547 IL:\\ARG 539 VARIABLE-STRUCT 508 IL:\\CALLME 491 IL:\\CALLME 478 :EFFECT 468 IL:\\CALLME 461 VARIABLE-STRUCT 442 :FUNCTION 435 VARIABLE-STRUCT 423 :GLOBAL 416 VARIABLE-STRUCT 368 LAMBDA-NODE 352 :JUMP 334 :NORMAL 277 :VAR_ 223 :VAR_ 188 :ARGUMENT 105 VARIABLE-STRUCT 92 :FUNCTION 85 VARIABLE-STRUCT 55 CALLER 32 :RETURN) ( 1659 (:CALL IL:\\MVLIST 1) 1630 (:POP) 1549 ((:POP)) 1485 "APPLYFN Variable" 1453 "APPLYFN Variable" 1348 "BUG: external function call got into the general case." 1283 "BUG: a lambda generated more than one LAP op." 1161 (:CALL IL:\\MVLIST 1) 1138 (:POP) 919 (:CALL IL:\\MVLIST 1) 896 (:POP) 865 (:NOT-INLINE T) 661 "Illegal argument to the ~S function: ~S" 656 "Use the symbol %LOSE% instead" 503 "BUG: The ~S special form has an unquoted argument in code generation." 486 "BUG: The ~S special form not in effect context in code generation." 314 #S(RESTART NAME CONTINUE-TAIL-CALL-TRANSFORMATION TAG NIL SELECTOR 0 TEST NIL REPORT NIL INTERACTIVE-FN NIL FUNCTION NIL) 291 ((:POP)) 238 ((:POP))) GENCODE-CATCH :D8 (IL:L (1 CONTEXT 0 NODE) IL:P 28 *NON-LOCALS* IL:P 27 IL:*CONDITION-HANDLER-BINDINGS* IL:P 26 *LOCAL-FUNCTIONS* IL:P 25 *AVAILABLE-LEXICAL-NAMES* IL:P 24 *FREE-VENV* IL:P 23 *SPECIAL-VENV* IL:P 22 *SPECIAL-LOCALS-BOUND* IL:P 21 *OTHERS* IL:P 20 *CODE* IL:P 19 *PC-VAR* IL:P 18 *BLIP-VAR* IL:P 17 *FRAME-NAME* IL:P 16 *CURRENT-FRAME* IL:F 29 *CODE* IL:F 30 *VAR-NUMBER* IL:F 31 *TAG-NUMBER* IL:F 32 *NON-LOCALS* IL:F 33 *STACK-NUMBER* IL:F 34 *FRAME-NAME* IL:F 35 IL:*CONDITION-HANDLER-BINDINGS* IL:F 36 *PC-VAR* IL:F 37 *BLIP-VAR*) @É¢±,ð@hoWD’gg WFAgð•g„g_¿gOWkÔc>_¿@ A ¿O8_YIW@ c@¿gOhgOgO"gOAgð´OhO* O´gO½h\[ºMµ‚±ôLh@ ´#g@ _¿h__¾Oµ‚±çOhO4´gO4hgOhgOhoAgð´gOhgOhoO( oAgð´gOhoX@ g gHoW:c:Agð´‚±¥oW:c:ÉºL”KJ&»„Jh[¼M]±þñÉ¾O—ON&_¿‡Nh__¿O_±þõW>kÔc>dkÔc>WBkÔcB@ g gWJhogIhgWHhogJhhW: c:@ A A[dgð²;¿gHhgIhgJhgHhhW: c:gð²@gHhgIhogJhgHhhW: c:Kdgð²;¿gHhgIhgJhgHhhW: c:gð´gIhW:c:gKo(925 IL:ECASE-FAIL 885 TAKE-DOWN-RETURN-TO 878 REVAPPEND 818 TAKE-DOWN-RETURN-TO 811 REVAPPEND 748 TAKE-DOWN-RETURN-TO 741 REVAPPEND 681 GENCODE 675 CATCH-STMT 667 REVAPPEND 605 GENCODE 595 CATCH-TAG 589 SET-UP-RETURN-TO 459 GENCODE 449 CATCH-TAG 435 APPEND 399 NREVERSE 324 APPEND 283 CATCH-CLOSED-OVER-VARS 270 CATCH-CLOSED-OVER-VARS 236 APPEND 183 UNION 168 GENCODE 162 CATCH-STMT 49 SYMBOL-FUNCTION 31 FORMAT) (914 CONTEXT 899 :TAG 891 :RETURN 862 :TAG 853 :SET-STACK 844 :TAG 835 :JUMP 826 :ARGUMENT 794 :TAG 785 :SET-STACK 771 :TAG 762 :JUMP 754 :MV 725 :TAG 716 :DSET-STACK 707 :TAG 698 :JUMP 689 :EFFECT 649 :NOTE-STACK 634 :VAR_ 625 :PUSH-TAG 610 :VAR_ 600 :ARGUMENT 534 VARIABLE-STRUCT 507 VARIABLE-STRUCT 483 :EFFECT 464 :CALL 454 :ARGUMENT 418 :TAG 410 :MV 380 :VAR_ 370 :PUSH-TAG 362 :MV 346 :VAR_ 336 :VAR 314 :LOCAL-FUNCTIONS 277 :CLOSED-OVER 246 :NON-LOCAL 222 :MV 214 :OTHERS 207 :NAME 200 :BLIP 191 :LAMBDA 131 SI::*CATCH-RETURN-PC* 126 :S 103 :L 83 :S 75 SI::*CATCH-RETURN-FROM* 69 SI::*CATCH-RETURN-TO* 62 :MV 44 STOP-UNBINDS-AT-FRAME-BOUNDARY 39 UNBIND-FOR-TAIL-RECURSION 5 BLIPPER) ( 920 (:EFFECT :MV :ARGUMENT :RETURN) 780 (:CALL IL:\\MVLIST 1) 644 (:POP) 620 (:POP) 495 (:POP) 470 (1) 428 ((:CALL IL:\\MVLIST 1) (:RETURN)) 404 (:RETURN) 390 ((:POP)) 356 (:POP) 108 "%TAG" 24 "catch in ~A") GENCODE-GO :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 2 *CODE* IL:F 3 *NON-LOCALS* IL:F 4 *CURRENT-FRAME*) Š@ H@ ¹TH ð²,gH hgIÉhhR cgH ÉhgIÉhoR cH Sc(131 TAGBODY-BLIP-VAR 123 REVAPPEND 84 TAGBODY-BLIP-VAR 70 REVAPPEND 42 TAGBODY-STK-NUM 28 TAGBODY-FRAME 20 FIND-SEGMENT 15 GO-TAG 5 GO-TAGBODY) (105 SEGMENT 99 :PUSH-TAG 89 VARIABLE-STRUCT 78 :VAR 56 SEGMENT 50 :JUMP 36 :DSET-STACK) ( 115 ((:CALL SI::NON-LOCAL-GO 2))) GENCODE-IF :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 2 *CODE* IL:F 3 *TAG-NUMBER*) „SkÔcdkÔc@ g gHhRc@ A Agð•oˆgIhRc¿gHhRc@ A AgðgIhRch(106 GENCODE 100 IF-ELSE 53 GENCODE 47 IF-THEN 28 GENCODE 18 IF-PRED) (119 :TAG 112 :RETURN 86 :TAG 72 :JUMP 59 :RETURN 33 :FJUMP 23 :ARGUMENT) ( 66 (:RETURN)) GENCODE-LABELSA0001 :D8 (IL:L (0 VAR) IL:F 0 NODE) @ÉPðNIL (5 VARIABLE-STRUCT) () GENCODE-LABELS :D8 (IL:L (1 CONTEXT) IL:P 9 *NON-LOCALS* IL:I 0 NODE IL:F 10 *CODE* IL:F 11 *NON-LOCALS* IL:F 12 *LOCAL-FUNCTIONS*) ¾ @ Hµ\ @ h»ZµW@ A ¸@ _¿h^½OµYN¹gO _OW c¿I³UHW c ¿HX°™[ Kg Wc¿J°‹É¼N”ML&½„Lh]¾O_°gIHWc(134 COLLECT-CODE 122 MAKE-LAP-VAR-REFERENCE 108 MAKE-LAP-VAR 98 REVAPPEND 84 UNION 72 DELETE-IF 48 LABELS-CLOSED-OVER-VARS 41 COLLECT-CODE 35 LABELS-BODY 24 LABELS-FUNS 5 LABELS-FUNS) (178 :CLOSE 151 VARIABLE-STRUCT 129 :ARGUMENT 65 GENCODE-LABELSA0001) () GENCODE-LAMBDAA0001 :D8 (IL:L (0 VAR) IL:F 0 NODE) @ÉPðNIL (5 VARIABLE-STRUCT) () GENCODE-LAMBDA :D8 (IL:L (1 CONTEXT) IL:P 45 *NON-LOCALS* IL:P 44 IL:*CONDITION-HANDLER-BINDINGS* IL:P 43 *LOCAL-FUNCTIONS* IL:P 42 *AVAILABLE-LEXICAL-NAMES* IL:P 41 *FREE-VENV* IL:P 40 *SPECIAL-VENV* IL:P 39 *SPECIAL-LOCALS-BOUND* IL:P 38 *OTHERS* IL:P 37 *CODE* IL:P 36 *PC-VAR* IL:P 35 *BLIP-VAR* IL:P 34 *FRAME-NAME* IL:P 33 *CURRENT-FRAME* IL:I 0 NODE IL:F 46 *CODE* IL:F 47 *NON-LOCALS* IL:F 48 *FRAME-NAME* IL:F 49 IL:*CONDITION-HANDLER-BINDINGS*) =.Agð‘hðð0 @d d«oW`’+gg Wb,h_0¿-@ _¿h___¿Oµ+O»@ _¿h___¿Oµ9O¼@ _"d³w±«i _¿O˜OO&_¿ˆOh__¿O_°±_ g _¿O i OO i h_¿O˜OO&_¿ˆOh__¿O_±ÿ~Égð²!O"dÉ³¿O"dÉ ¨¿g‡O"i ½@ _*¿h_(_&_$¿O*µ‚±TO(¾@ g ¿gOZ Y_0O0W^ c^¿@ _8¿h_6_4_2¿O8µ‚±^O6ºgKL´gLhM´gMhN´gNh@ ´oOL´gOLhOF´gOFhgOD@ ´g@ hJ´gJhI´ gI_@¿h_>_<_:¿O@µ‚±ëO>hOV´gOVh @ ´g@ hhOJ oXHW\c\Agð´oW\ c\_.g _,¿O.O.i O,O.i h_$¿O(˜O&O$&_&¿ˆO$h_&_(¿O*_*±þYÉ_2¿O6˜O4O2&_4¿ˆO2h_4_6¿O8_8±þzÉ_:¿O>˜O¿O@_@±þí(710 MAKE-LAP-VAR 696 MAKE-LAP-VAR 680 COLLECT-CODE 661 REVAPPEND 629 APPEND 619 NREVERSE 607 LAMBDA-TAIL-CALL-TAG 594 LAMBDA-TAIL-CALL-TAG 587 APPEND 579 APPEND 512 LAMBDA-ARG-TYPE 499 LAMBDA-ARG-TYPE 451 LAMBDA-ALLOW-OTHER-KEYS 381 LAMBDA-CLOSED-OVER-VARS 372 UNION 359 DELETE-IF 346 GENCODE 336 LAMBDA-BODY 308 LAMBDA-KEYWORD 301 MAKE-LAP-VAR 211 MAKE-LAP-VAR 198 MAKE-LAP-VAR 186 COLLECT-CODE 140 MAKE-LAP-VAR 125 LAMBDA-REST 101 LAMBDA-OPTIONAL 77 LAMBDA-REQUIRED 57 SYMBOL-FUNCTION 39 FORMAT 25 LAMBDA-NAME) (793 VARIABLE-STRUCT 753 VARIABLE-STRUCT 675 :ARGUMENT 646 :MV 601 :TAG 569 :LOCAL-FUNCTIONS 535 :NON-LOCAL 523 :CLOSED-OVER 506 :ARG-TYPE 491 :NAME 481 :BLIP 467 :OTHERS 441 :KEY 429 :REST 417 :OPTIONAL 408 :LAMBDA 352 GENCODE-LAMBDAA0001 341 :RETURN 292 :IGNORED 283 VARIABLE-STRUCT 270 VARIABLE-STRUCT 259 :LEXICAL 252 VARIABLE-STRUCT 181 :ARGUMENT 52 STOP-UNBINDS-AT-FRAME-BOUNDARY 47 UNBIND-FOR-TAIL-RECURSION 5 :EFFECT) ( 654 ((:CONST NIL) (:CALL CONS 2)) 624 ((:RETURN)) 458 (:ALLOW-OTHER-KEYS T) 32 "lambda in ~A") GENCODE-LETA0001 :D8 (IL:L (0 VAR) IL:F 0 FN) @ÉPðNIL (5 VARIABLE-STRUCT) () GENCODE-LET :D8 (IL:L (2 CONTEXT 1 ARGS) IL:P 25 IL:*CONDITION-HANDLER-BINDINGS* IL:P 24 *SPECIAL-LOCALS-BOUND* IL:P 23 *NON-LOCALS* IL:P 0 *SPECIAL-VENV* IL:I 0 FN IL:F 26 *CODE* IL:F 27 *STACK-NUMBER* IL:F 28 *NON-LOCALS* IL:F 29 *AVAILABLE-LEXICAL-NAMES* IL:F 30 *SPECIAL-VENV* IL:F 31 *SPECIAL-LOCALS-BOUND* IL:F 32 IL:*CONDITION-HANDLER-BINDINGS* IL:F 33 *SUPPRESS-POPS*) ³WµJK¤L¢±VgLKIh_¿googgOhhh_¿gOW@@ B ±_,Égð‘iºO*d ²M¿O*d ³B¿O,dÉgð²*¿ogO, hoW4 c4¿°HK»°Cg ¿O,dÉgð²#¿gO, hoW4 c4¿‚L¼O(_(¿O&_&¿±þ‚ ½O”NM&¾†Mh^_¿O_±þƒ _¿O˜OO&_¿ˆOh__¿O_±þt@ B ¿gO. _OW8 c8¿K¢L²jB_ dgð²¿WB³YgLKIhW4c4°Dgð«O dgð²¿gLKIhW4c4°gð´°gO o¿@ _"µh_$Égð²O$dÉ®ÉW:c:¿O"°É(632 LAMBDA-REQUIRED 625 IL:ECASE-FAIL 514 UNION 502 DELETE-IF 488 GENCODE 482 LAMBDA-BODY 444 MAKE-LAP-VAR 414 MAKE-LAP-VAR 386 REVAPPEND 370 MAKE-LAP-VAR 338 GENCODE 318 REVAPPEND 301 MAKE-LAP-VAR 262 LITERAL-VALUE 251 LITERAL-P 220 GENCODE 214 LAMBDA-BODY 90 NREVERSE 19 LAMBDA-REQUIRED) (673 VARIABLE-STRUCT 665 VARIABLE-STRUCT 654 :LEXICAL 647 VARIABLE-STRUCT 613 CONTEXT 603 :RETURN 583 :UNBIND 574 :MV 564 :ARGUMENT 544 :DUNBIND 531 :EFFECT 495 GENCODE-LETA0001 363 :VAR_ 354 :LEXICAL 347 VARIABLE-STRUCT 333 :ARGUMENT 294 :VAR_ 280 :LEXICAL 273 VARIABLE-STRUCT 239 :SPECIAL 232 VARIABLE-STRUCT 199 UNBIND-FOR-TAIL-RECURSION 178 QUOTE 173 EMIT-LAP 158 LAMBDA 142 :DUNBIND 101 :BIND) ( 620 (:EFFECT :ARGUMENT :MV :RETURN) 378 ((:POP)) 309 ((:POP)) 289 (:CONST NIL) 168 (DECLARE (IGNORE CONDITION)) 163 (CONDITION)) GENCODE-LITERAL :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 1 *CODE*) kAHdgð‘hgðªHdgð²¿g@ hQcgð´g@ hoQ cgHo(104 IL:ECASE-FAIL 85 REVAPPEND 70 LITERAL-VALUE 43 LITERAL-VALUE) (93 CONTEXT 64 :CONST 56 :MV 37 :CONST 28 :RETURN 19 :ARGUMENT 10 :EFFECT) ( 99 (:EFFECT :ARGUMENT :RETURN :MV) 78 ((:CONST NIL) (:CALL CONS 2))) GENCODE-MV-CALLA0001 :D8 (IL:F 0 ARGS IL:F 1 *CODE*) -Pg P°dg ¿oQc¿µçh(26 GENCODE 11 GENCODE) (21 :MV 6 :MV) ( 32 (:CALL IL:\\NCONC2 2)) GENCODE-MV-CALL :D8 (IL:L (1 CONTEXT 0 NODE) IL:P 1 ARGS IL:F 6 *CODE* IL:F 7 *SUPPRESS-POPS*) ò@ @ BH[d ²I¿K ZÉgð²1JÉgð²!Hd Égðš¿jg°hH] ²BM \Égð²,LÉgð²gH ÉhVcŠHg ¿jg¿oVc¿AdgðŸ¿W©oVchgð´oVc(178 GENCODE 152 VAR-REF-VARIABLE 109 VAR-REF-VARIABLE 101 VAR-REF-P 70 VAR-REF-VARIABLE 31 VAR-REF-VARIABLE 22 VAR-REF-P 11 MV-CALL-ARG-EXPRS 5 MV-CALL-FN) (227 :MV 204 :EFFECT 185 GENCODE-MV-CALLA0001 173 :ARGUMENT 157 VARIABLE-STRUCT 146 :CONST 138 :FUNCTION 131 VARIABLE-STRUCT 122 :GLOBAL 115 VARIABLE-STRUCT 91 GENCODE-MV-CALLA0001 82 LIST 75 VARIABLE-STRUCT 60 :FUNCTION 53 VARIABLE-STRUCT 44 :GLOBAL 37 VARIABLE-STRUCT) ( 235 (:CALL IL:\\MVLIST 1) 215 (:POP) 192 (:CALL APPLY 2)) GENCODE-MV-PROG1 :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 4 *CODE*) dA1Hgð¨Hgð´?@ YºI»Jg Kdg ¿µñAgð´oTcgHo(97 IL:ECASE-FAIL 57 GENCODE 43 GENCODE 26 MV-PROG1-STMTS) (86 CONTEXT 68 :RETURN 52 :EFFECT 38 :MV 17 :RETURN 9 :MV) ( 92 (:MV :RETURN) 76 (:CALL VALUES-LIST 1)) GENCODE-OPCODES :D8 (IL:L (1 CONTEXT 0 NODE)) o ¿°õ(9 IL:ASSERT-FAIL) NIL ( 4 "BUG: GENCODE-OPCODES was called!") GENCODE-PROGN :D8 (IL:L (1 CONTEXT 0 NODE) IL:P 0 *SUPPRESS-POPS* IL:F 2 *POP-SUPPRESSION-POLICY*) /R´ Agð@ °dYI¡A„g ¿µëh(38 GENCODE 18 PROGN-STMTS) (33 :EFFECT 8 :RETURN) () GENCODE-PROGV :D8 (IL:L (0 IL:|-args-|)) 3eHk2JIóžK¿o °õJa½Lµ Mh\»JkÔZ°ßM&¼°÷(25 IL:ASSERT-FAIL) NIL ( 20 "BUG: GENCODE-PROGV was called.") GENCODE-RETURN :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 4 *CODE* IL:F 5 *NON-LOCALS* IL:F 6 *CURRENT-FRAME*) û@ 1VH ð¢±+@ H Hd ²{¿H Ydgð²¿gH hhT cgðªIdgð²¿gH hhT cgð´oTcoIo Zdgð²+¿gH hgH hhT cgðªJdgð²+¿gH hgH hhT cgð´oTcoJogH ÉhTcH [dgð²¿@ g ¿oTc°dgðªKdgð² ¿@ H ¿oTc°5gð´@ g ¿oTcoKo¿oTcH Uc (500 BLOCK-BLIP-VAR 484 IL:ECASE-FAIL 457 GENCODE 447 RETURN-VALUE 421 GENCODE 416 BLOCK-CONTEXT 410 RETURN-VALUE 374 GENCODE 364 RETURN-VALUE 347 BLOCK-CONTEXT 327 BLOCK-BLIP-VAR 315 IL:ECASE-FAIL 278 REVAPPEND 266 BLOCK-END-TAG 252 BLOCK-STK-NUM 220 REVAPPEND 208 BLOCK-END-TAG 194 BLOCK-STK-NUM 172 BLOCK-CONTEXT 166 IL:ECASE-FAIL 129 REVAPPEND 118 BLOCK-END-TAG 86 REVAPPEND 75 BLOCK-END-TAG 53 BLOCK-CONTEXT 44 BLOCK-NEW-FRAME-P 37 GENCODE 32 BLOCK-CONTEXT 26 RETURN-VALUE 15 BLOCK-FRAME 5 RETURN-BLOCK) (452 :MV 438 :RETURN 400 :ARGUMENT 391 :MV 369 :EFFECT 354 :EFFECT 332 VARIABLE-STRUCT 321 :VAR 286 :RETURN 260 :JUMP 246 :SET-STACK 237 :MV 228 :ARGUMENT 202 :JUMP 188 :DSET-STACK 179 :EFFECT 137 :RETURN 112 :JUMP 103 :MV 94 :ARGUMENT 69 :JUMP 60 :EFFECT) ( 490 (:RETURN) 479 (:EFFECT :MV :ARGUMENT :RETURN) 473 (BLOCK-CONTEXT BLOCK) 463 (:CALL SI::NON-LOCAL-RETURN-VALUES 2) 427 (:CALL SI::NON-LOCAL-RETURN 2) 380 (:CALL SI::NON-LOCAL-RETURN 1) 310 (:EFFECT :ARGUMENT :MV :RETURN) 304 (BLOCK-CONTEXT BLOCK) 294 (:RETURN) 161 (:EFFECT :ARGUMENT :MV :RETURN) 155 (BLOCK-CONTEXT BLOCK) 145 (:RETURN)) GENCODE-SEGMENT :D8 (IL:L (0 SEGMENT) IL:P 0 *SUPPRESS-POPS* IL:F 2 *CODE*) 4 g@ÉhRc@ÉYd g ¿I°î(45 GENCODE) (40 :EFFECT 28 SEGMENT 13 SEGMENT 7 :TAG) () GENCODE-SETQ :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 0 *CODE* IL:F 1 *SUPPRESS-POPS*) x@d Égð¿o ¿°ß g g@ hPcAdgðž¿Q©oPchgð´oP c(115 REVAPPEND 65 MAKE-LAP-VAR-REFERENCE 60 SETQ-VAR 49 GENCODE 39 SETQ-VALUE 31 IL:ASSERT-FAIL 6 SETQ-VAR) (101 :MV 79 :EFFECT 54 :VAR_ 44 :ARGUMENT 18 :FUNCTION 11 VARIABLE-STRUCT) ( 109 ((:CONST NIL) (:CALL CONS 2)) 89 (:POP) 26 "BUG: Attempt to set a function variable.") GENCODE-TAGBODY :D8 (IL:L (1 CONTEXT 0 NODE) IL:P 28 *NON-LOCALS* IL:P 24 IL:*CONDITION-HANDLER-BINDINGS* IL:P 23 *LOCAL-FUNCTIONS* IL:P 22 *AVAILABLE-LEXICAL-NAMES* IL:P 21 *FREE-VENV* IL:P 20 *SPECIAL-VENV* IL:P 19 *SPECIAL-LOCALS-BOUND* IL:P 18 *OTHERS* IL:P 17 *CODE* IL:P 16 *PC-VAR* IL:P 15 *BLIP-VAR* IL:P 14 *FRAME-NAME* IL:P 13 *CURRENT-FRAME* IL:F 29 *CODE* IL:F 30 *VAR-NUMBER* IL:F 31 *TAG-NUMBER* IL:F 32 *STACK-NUMBER* IL:F 33 *NON-LOCALS* IL:F 34 *FRAME-NAME* IL:F 35 IL:*CONDITION-HANDLER-BINDINGS* IL:F 36 *SUPPRESS-POPS*) @@d ¢±Ý¿Ð@hoWD’gg WFW@kÔc@!@O¿@O2¿@ ²kggWkÔc>¿IÉžIW>kÔc>¿µÕ@ ˆd ¿µö@ O8 _6ZJWB cB¿Agð•o„oO" _"¿@ Ÿ@ h¼[µ‚±ÊghgOO$´gO$hgOO6´gO6_¿h_^½Oµ‚±ÕOh@ ´%g@ _¿h___¿Oµ‚±ÊOhO.´gO.h O" XgHoW:c:Agð´‚±¥WH’±žoW:c:\É²:gLÉhgO2hgLÉhhO" _"¿K±þìÉ½O”NM&¾†Mh^_¿O_±ÿÉ_¿O˜OO&_¿ˆOh__¿O_±ÿh §@A @A ¿O" Ag@ ¼h[ºLµKHW:c:É¹K”JI&º„IhZ»L\°Ü(787 TAGBODY-CLOSED-OVER-VARS 772 NREVERSE 764 GENCODE-TAGBODY-INLINE 753 GENCODE-TAGBODY-INLINE 745 TAGBODY-CLOSED-OVER-VARS 658 REVAPPEND 540 NREVERSE 530 APPEND 523 APPEND 480 TAGBODY-CLOSED-OVER-VARS 467 TAGBODY-CLOSED-OVER-VARS 385 TAGBODY-SEGMENTS 378 TAGBODY-CLOSED-OVER-P 369 REVAPPEND 340 UNION 328 DELETE 321 TAGBODY-BLIP-VAR 310 GENCODE-SEGMENT 302 TAGBODY-SEGMENTS 246 TAGBODY-SEGMENTS 186 REVAPPEND 126 MAKE-LAP-VAR 121 TAGBODY-BLIP-VAR 90 TAGBODY-CLOSED-OVER-P 46 SYMBOL-FUNCTION 28 FORMAT 6 TAGBODY-NEW-FRAME-P) (810 VARIABLE-STRUCT 781 :CLOSE 704 VARIABLE-STRUCT 672 VARIABLE-STRUCT 642 SEGMENT 636 :JUMP 626 :DSET-STACK 616 SEGMENT 610 :TAG 601 SEGMENT 570 :EFFECT 551 :CALL 513 :LOCAL-FUNCTIONS 474 :CLOSED-OVER 438 :NON-LOCAL 427 :BLIP 417 :OTHERS 406 :NAME 400 :LAMBDA 349 :MV 280 SEGMENT 271 SEGMENT 256 SEGMENT 229 :NOTE-STACK 207 SI::*CATCH-RETURN-TO* 202 :S 164 :VAR_ 154 :VAR_ 134 :CONST 102 SI::*CATCH-RETURN-FROM* 97 :S 79 TAGBODY-NODE 68 TAGBODY-NODE 41 STOP-UNBINDS-AT-FRAME-BOUNDARY 36 UNBIND-FOR-TAIL-RECURSION) ( 588 (:POP) 557 (0) 362 ((:CONST NIL) (:RETURN)) 356 ((:CONST NIL) (:CONST NIL) (:CALL CONS 2) (:RETURN)) 174 ((:POP)) 149 (:CALL CONS 2) 144 (:CONST NIL) 21 "tagbody in ~A") GENCODE-TAGBODY-INLINE :D8 (IL:L (1 CONTEXT 0 NODE) IL:P 8 *NON-LOCALS* IL:F 9 *CODE* IL:F 10 *TAG-NUMBER* IL:F 11 *STACK-NUMBER* IL:F 12 *NON-LOCALS* IL:F 13 *CURRENT-FRAME* IL:F 14 *FRAME-NAME* IL:F 15 *BLIP-VAR*) ö WkÔcq@W@H@ ¢±A@ WkÔc¾½¿ogWhogWhgMhogHhhW c¿@ °,dYWkÔc¿IÉžIWkÔc¿µÕ@ ˆd ¿µö@ O ZJW c¿¿gNhWc¿@ h¼[µgNhWc¿±‡\É²9gLÉhgHhgLÉhhW c¿K°¦gHhWc¿@ °dWkÔc¿µî@ ˆd ¿µöA_dgð‘hgðªOdgð›¿oWcgð´oW cgOo(499 IL:ECASE-FAIL 479 REVAPPEND 412 GENCODE-SEGMENT 404 TAGBODY-SEGMENTS 376 TAGBODY-SEGMENTS 348 REVAPPEND 261 TAGBODY-SEGMENTS 239 TAKE-DOWN-RETURN-TO 231 UNION 221 DELETE 214 TAGBODY-BLIP-VAR 203 GENCODE-SEGMENT 195 TAGBODY-SEGMENTS 139 TAGBODY-SEGMENTS 130 REVAPPEND 61 SET-UP-RETURN-TO 48 MAKE-LAP-VAR 43 TAGBODY-BLIP-VAR 33 TAGBODY-CLOSED-OVER-P) (487 CONTEXT 464 :MV 445 :RETURN 435 :ARGUMENT 426 :EFFECT 385 SEGMENT 360 :NOTE-STACK 332 SEGMENT 326 :JUMP 317 :DSET-STACK 307 SEGMENT 301 :TAG 292 SEGMENT 272 :TAG 245 :JUMP 173 SEGMENT 164 SEGMENT 149 SEGMENT 111 :NOTE-STACK 97 :VAR_ 87 :VAR_ 72 :CONST 24 TAGBODY-NODE 14 TAGBODY-NODE) ( 494 (:EFFECT :ARGUMENT :RETURN :MV) 472 ((:CONST NIL) (:CONST NIL) (:CALL CONS 2)) 453 (:CONST NIL) 106 (:POP) 82 (:CALL CONS 2) 67 (:CONST TAGBODY)) GENCODE-THROW :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 0 *CODE*) Z@ g Agð¨Agð²@ A oP c@ g oP c(85 REVAPPEND 74 GENCODE 64 THROW-VALUE 55 REVAPPEND 44 GENCODE 38 THROW-VALUE 15 GENCODE 5 THROW-TAG) (69 :MV 29 :RETURN 21 :ARGUMENT 10 :ARGUMENT) ( 79 ((:CALL SI::INTERNAL-THROW-VALUES 2) (:RETURN)) 49 ((:CALL SI::INTERNAL-THROW 2) (:RETURN))) GENCODE-UNWIND-PROTECT :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 1 *CODE* IL:F 2 *SUPPRESS-POPS*) v@ g @ g gHH¸oQc¿H³Adgð²¿R³oQco °Ùhgð´oQc(94 IL:ASSERT-FAIL 31 COLLECT-CODE 21 UNWIND-PROTECT-STMT 15 GENCODE 5 UNWIND-PROTECT-CLEANUP) (103 :MV 67 :EFFECT 39 :CALL 26 :ARGUMENT 10 :ARGUMENT) ( 111 (:CALL IL:\\MVLIST 1) 89 "BUG: unwind-protect body code generated more than one LAP instruction" 79 (:POP) 49 (1)) GENCODE-VAR-REF :D8 (IL:L (1 CONTEXT 0 NODE) IL:F 1 *CODE*) |@ Agð³iHÉgð²/HÉgð²gHÉhoQ gH hQc¿Agð´oQ ch(117 REVAPPEND 89 MAKE-LAP-VAR-REFERENCE 77 REVAPPEND 5 VAR-REF-VARIABLE) (103 :MV 83 :VAR 60 VARIABLE-STRUCT 54 :CONST 46 :FUNCTION 39 VARIABLE-STRUCT 30 :GLOBAL 23 VARIABLE-STRUCT 14 :EFFECT) ( 111 ((:CONST NIL) (:CALL CONS 2)) 70 ((:CALL SYMBOL-FUNCTION 1))) (PROCLAIM (QUOTE (SPECIAL *POP-SUPPRESSION-POLICY*))) (IL:SETQ *POP-SUPPRESSION-POLICY* NIL) (IL:SET-DOCUMENTATION (QUOTE *POP-SUPPRESSION-POLICY*) (QUOTE VARIABLE) "If this is non-NIL, the code generator will suppress unnecessary pops. This can increase stack usage." ) (PROCLAIM (QUOTE (SPECIAL *TAIL-RECURSION-POLICY*))) (OR (BOUNDP (QUOTE *TAIL-RECURSION-POLICY*)) (SETQ *TAIL-RECURSION-POLICY* T)) (IL:SET-DOCUMENTATION (QUOTE *TAIL-RECURSION-POLICY*) (QUOTE VARIABLE) "Set this to NIL to disable the tail-recursion optimization.") TEST-GENCODE :D8 (IL:L (0 FN)) @ $(15 FRESH-LINE 10 PPRINT 5 TEST-GENCODE1) NIL () TEST-GENCODE1 :D8 (IL:L (0 FN) IL:P 10 *UNKNOWN-FUNCTIONS* IL:P 9 *PROCESSED-FUNCTIONS* IL:P 8 *CONSTANTS-HASH-TABLE* IL:P 7 *ENVIRONMENT*) [@g aH¹HZ»Jhi \½L¾i " @gKNgIMh (88 COMPILE-ONE-LAMBDA 81 APPEND 54 MAKE-HASH-TABLE 49 MAKE-CHILD-ENV 36 IL:\\MVLIST 31 PARSE-BODY 10 IL:GETDEF) (70 BLOCK 63 LAMBDA 5 IL:FUNCTIONS) () (IL:PUTPROPS IL:XCLC-GENCODE IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:XCLC-GENCODE IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "COMPILER" (:USE "LISP" "XCL")))) (IL:PUTPROPS IL:XCLC-GENCODE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1989 1990 1991)) NIL