(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "10-Nov-93 18:35:37" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>XCLC-ALPHA.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in| "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42") (IL:FILECREATED " 4-Feb-92 10:34:19" IL:|{DSK}local>lde>lispcore>sources>XCLC-ALPHA.;3| 51540 IL:|changes| IL:|to:| (IL:FUNCTIONS ALPHA-EVAL-WHEN PROCESS-DECLARATIONS PROCESS-IL-DECLARATIONS CHECK-ARG ALPHA-FORM ALPHA-FUNCTION ALPHA-GO ALPHA-LAMBDA-LIST ALPHA-RETURN-FROM ALPHA-SETQ CONVERT-TO-CL-LAMBDA) IL:|previous| IL:|date:| " 4-Jan-92 12:31:05" IL:|{DSK}local>lde>lispcore>sources>XCLC-ALPHA.;2|) (IL:RPAQQ IL:XCLC-ALPHACOMS ((IL:* IL:|;;;| "Alphatization") (IL:FUNCTIONS BINDING-CONTOUR PROCESS-DECLARATIONS PROCESS-IL-DECLARATIONS UPDATE-ENVIRONMENT) (IL:FUNCTIONS BIND-PARAMETER CHECK-ARG) (IL:FUNCTIONS BINDING-TO-LAMBDA) (IL:VARIABLES *BLOCK-STACK* *TAGBODY-STACK*) (IL:FUNCTIONS ALPHA-ARGUMENT-FORM ALPHA-ATOM ALPHA-BLOCK ALPHA-CATCH ALPHA-COMBINATION ALPHA-COMPILER-LET ALPHA-EVAL-WHEN ALPHA-FLET ALPHA-FORM ALPHA-FUNCTION ALPHA-FUNCTIONAL-FORM ALPHA-GO ALPHA-IF ALPHA-IL-FUNCTION ALPHA-LABELS ALPHA-LAMBDA ALPHA-LAMBDA-LIST ALPHA-LET ALPHA-LET* ALPHA-LITERAL ALPHA-MACROLET ALPHA-MV-CALL ALPHA-MV-PROG1 ALPHA-PROGN ALPHA-PROGV ALPHA-RETURN-FROM ALPHA-SETQ ALPHA-TAGBODY ALPHA-THROW ALPHA-UNWIND-PROTECT) (IL:FUNCTIONS CONVERT-TO-CL-LAMBDA COMPLETELY-EXPAND EXPAND-OPENLAMBDA-CALL) (IL:* IL:|;;| "Alphatization testing") (IL:VARIABLES *INDENT-INCREMENT* *NODE-HASH* *NODE-NUMBER*) (IL:FUNCTIONS TEST-ALPHA TEST-ALPHA-2 PARSE-DEFUN PRINT-TREE PRINT-NODE) ( IL:VARIABLES CONTEXT-TEST-FORM) (IL:FUNCTIONS CTXT) (IL:* IL:|;;| "Arrange to use the correct compiler.") (IL:PROP IL:FILETYPE IL:XCLC-ALPHA) (IL:* IL:|;;| "Arrange for the correct makefile environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCLC-ALPHA))) |expand-BINDING-CONTOUR| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) *@!H¹HºgoogIhJ#:NIL (30 PROCESS-DECLARATIONS 15 LET) ( 25 (DECLARE (SPECIAL *NEW-SPECIALS* *NEW-GLOBALS* *NEW-INLINES* *NEW-NOTINLINES* IL:SPECVARS IL:LOCALVARS IL:GLOBALVARS)) 20 ((*NEW-SPECIALS* #:NIL) (*NEW-GLOBALS* #:NIL) (*NEW-INLINES* #:NIL) (*NEW-NOTINLINES* #:NIL) (IL:SPECVARS IL:SPECVARS) (IL:LOCALVARS IL:LOCALVARS) (IL:GLOBALVARS IL:GLOBALVARS))) (IL:SETF-MACRO-FUNCTION (QUOTE BINDING-CONTOUR) (QUOTE |expand-BINDING-CONTOUR|)) PROCESS-DECLARATIONSA0001 :D8 (IL:L (0 VAR)) @d3@ð‘@oo@g(23 COMPILER-CERROR) (28 %LOSE%) ( 17 "The value ~S, appearing in a declaration, is not a symbol" 12 "Use the symbol %LOSE% instead.") PROCESS-DECLARATIONSA0002 :D8 (IL:L (0 FN)) =@dd3@ð³5¿@µoo@ggð²ã@²Þ@d3@ð²Õ@(28 COMPILER-CERROR) (40 SETF 33 %LOSE%) ( 22 "The value ~S, appearing in a declaration, is not a symbol" 17 "Use the symbol %LOSE% instead.") PROCESS-DECLARATIONS :D8 (IL:L (0 DECLS) IL:F 8 IL:SPECVARS IL:F 9 IL:LOCALVARS IL:F 10 *NEW-SPECIALS* IL:F 11 *ENVIRONMENT* IL:F 12 *NEW-GLOBALS* IL:F 13 IL:GLOBALVARS IL:F 14 *NEW-INLINES* IL:F 15 *NEW-NOTINLINES*) @qHd ^µHX°õ_µooO±×]dgð²¿OYµ±ÈkgWc¿I°êgð²BOd²¿Wið’±ŸWO c±iðic¿`c±}ooO±iMdgð²C¿Od²¿Wið’±TWO c±Diðic¿`c±2ooO±gð²OZµ±kgWc¿J°êMdgð²&¿OžWO c±âooO±Îgð’±ÊMgð’±¿Mdgð’±²dgð²¿O[µ± kgWc¿K°êdgð²¿O\µ°|kgWc¿L°ëgð³cMdgð³Xdgðœ¿WO °Cgð³CK H h½¼h__ ¿L@_¿h__¾Oµ O¿O]L M"O2µ‚±Ú±à__´Ogð´O´ Od3@ð_²goO †O _¿O³Od ®¿gO_¿O_¿O˜O O&_ ¿ˆOh_ _¿gOgggggL O gO¾O—ON&_¿‡Nh__¿O_±ÿ_4¿O0µLJ L_6¿HO4gO6¿O2_2¿O0_0¿±þå(375 ENV-BIND-FUNCTION 351 ALPHA-PROGN 300 ALPHA-LAMBDA 288 BINDING-TO-LAMBDA 281 MAKE-VARIABLE 202 CHECK-ARG 187 SYMBOL-NAME 179 CONCATENATE 174 SYMBOL-NAME 101 LABELS-FUNS 58 MAKE-LABELS 53 UPDATE-ENVIRONMENT 47 PROCESS-DECLARATIONS 25 IL:\\MVLIST 20 PARSE-BODY 6 MAKE-CHILD-ENV) (367 :FUNCTION 345 LABELS-NODE 293 :NAME 274 :BINDER 269 :FUNCTION 264 :KIND 259 :LEXICAL 254 :SCOPE 247 :NAME 209 %LOSE% 160 STRING 134 SETF 73 LABELS-NODE) ( 165 "Local SETF for ") ALPHA-FORM :D8 (IL:L (0 FORM)) l@d¥ aHdgðœ¿@@ gð›@@ Hdgðœ¿@@ gð² @ ¯oo@oHdgðœ¿@@ gð›@@ Hdgð¿@@ gð˜@ Hdgð™¿@ gð²@@@Hdgðœ¿@@ gð›@@ Hdgðœ¿@@ gð©Hdgðœ¿@@ gð›@@ Hdgð˜¿@ gð—@ Hdgð²3¿@\»LºL¹gKJgghIhhb±þHgð˜@ Hdgð¿@@ gð©Hdgðš¿@@ gð—@ Hdgðš¿@b±ýãgðœ@@ Hgð›@@ @ ^½N©@@ Mb±ý˜(610 ALPHA-COMBINATION 594 IL:\\MVLIST 589 OPTIMIZE-AND-MACROEXPAND-1 582 ALPHA-UNWIND-PROTECT 562 ALPHA-THROW 522 ALPHA-TAGBODY 507 ALPHA-SETQ 480 ALPHA-RETURN-FROM 457 ALPHA-LITERAL 382 ALPHA-PROGN 367 ALPHA-MV-PROG1 349 ALPHA-MV-CALL 330 ALPHA-MACROLET 301 ALPHA-LET* 279 ALPHA-LET 260 ALPHA-LABELS 238 ALPHA-IF 212 ALPHA-GO 193 ALPHA-FUNCTION 177 ALPHA-IL-FUNCTION 154 ALPHA-FLET 135 ALPHA-EVAL-WHEN 108 COMPILER-CERROR 91 PROCESS-IL-DECLARATIONS 75 ALPHA-COMPILER-LET 53 ALPHA-CATCH 34 ALPHA-BLOCK 8 ALPHA-ATOM) (569 UNWIND-PROTECT 548 THROW 530 THE 513 TAGBODY 495 IL:SETQ 486 SETQ 465 RETURN-FROM 447 QUOTE 424 LAMBDA 419 FUNCTION 412 IL:\\DO.PROGV 390 PROGV 373 PROGN 357 MULTIPLE-VALUE-PROG1 336 MULTIPLE-VALUE-CALL 316 SI::%MACROLET 307 MACROLET 287 LET* 266 LET 246 LABELS 218 IF 201 GO 183 FUNCTION 162 IL:FUNCTION 141 FLET 121 EVAL-WHEN 81 DECLARE 61 COMPILER-LET 40 CATCH 20 BLOCK) ( 113 #.*LITERALLY-NIL* 102 "DECLARE found in executable position: ~S" 97 "Replace the declaration with NIL") ALPHA-FUNCTION :D8 (IL:L (0 IL:|-args-|) IL:F 11 *ENVIRONMENT* IL:F 12 *CURRENT-BLOCK* IL:F 13 *CONTEXT*) ðeka‘ lHñ²WÉµo‚laºIdd3@ð¢±¬¿WI [¼K½Ldgð²¿gM WI $²Lgð´aooI¿WšIW µ>I ggIgggg WI $Y°Ã ¿°’¢±¡Idgð¢±•d¢±Ždd3@ð¢±ƒ¿WI ^_¿N_¿Odgð²¿gO WI $²Ogð´0ooI¿I _¿IdOOJ ¿°ÂI_gð³ Ogð³OgðªOdgð¿IgJgð¨OgðœgI ooIogJ(493 ALPHA-LAMBDA 477 COMPILER-CERROR 460 MAKE-OPCODES 431 ALPHA-LAMBDA 374 IL:ASSERT-FAIL 368 ALPHA-FUNCTION 360 CHECK-FOR-UNKNOWN-SETF 348 XCL::DEFUN-SETF-NAME 339 COMPILER-CERROR 307 ENV-INLINE-DISALLOWED 299 MAKE-VAR-REF 264 IL:\\MVLIST 259 ENV-SETF-FBOUNDP 211 IL:ASSERT-FAIL 198 ENV-INLINE-DISALLOWED 190 MAKE-VAR-REF 185 MAKE-VARIABLE 148 CHECK-FOR-UNKNOWN-FUNCTION 139 BLOCK-DECL-FN-NAME-MAP 127 COMPILER-CERROR 96 ENV-INLINE-DISALLOWED 88 MAKE-VAR-REF 59 IL:\\MVLIST 54 ENV-FBOUNDP) (487 :CONTEXT 453 :BYTES 446 :OPCODES 437 IL:OPCODES 425 :CONTEXT 416 IL:OPENLAMBDA 406 IL:NLAMBDA 396 IL:LAMBDA 386 LAMBDA 320 :MACRO 292 :VARIABLE 283 :FUNCTION 227 SETF 179 :FUNCTION 174 :KIND 169 :GLOBAL 164 :SCOPE 158 :NAME 153 :VARIABLE 108 :MACRO 82 :VARIABLE 73 :FUNCTION 21 CONTEXT) ( 482 (LAMBDA #:NIL #:NIL) 471 "The form ~S, appearing in a functional context, is neither a symbol nor a LAMBDA-form" 466 "Use (LAMBDA () NIL) instead" 333 "The symbol ~S names a lexically-bound macro and thus cannot be used with the FUNCTION special form." 328 "Use the global function definition of ~S" 121 "The symbol ~S names a lexically-bound macro and thus cannot be used with the FUNCTION special form." 116 "Use the global function definition of ~S" 30 #.*NULL-CONTEXT*) ALPHA-FUNCTIONAL-FORM :D8 (IL:L (0 FORM) IL:P 0 *CONTEXT* IL:F 1 *CONTEXT*) D@µgkgQ@ dgð©gð²Õ@d3@ð²Ì@ (65 ALPHA-FUNCTION 29 ALPHA-FORM 20 MAKE-CONTEXT) (45 IL:FUNCTION 37 QUOTE 14 :APPLIED-CONTEXT 8 :VALUES-USED) () ALPHA-GO :D8 (IL:L (0 TAG) IL:F 1 *TAGBODY-STACK*) N@QH³2Q³oo@ooo@Q¿Q¸gHgH(75 MAKE-GO 52 COMPILER-CERROR 27 COMPILER-CERROR) (68 :TAG 61 :TAGBODY) ( 43 "The GO tag ~S does not appear in any enclosing TAGBODY" 38 "Use the tag ~*~S instead" 32 #.*LITERALLY-NIL* 21 "The GO tag ~S does not appear in any enclosing TAGBODY" 16 "Replace the GO with NIL") ALPHA-IF :D8 (IL:L (2 ELSE-FORM 1 THEN-FORM 0 PRED-FORM) IL:P 0 *CONTEXT*) 2go@ gA gB (47 MAKE-IF 41 ALPHA-FORM 30 ALPHA-FORM 18 ALPHA-FORM) (35 :ELSE 24 :THEN 4 :PRED) ( 9 #.*PREDICATE-CONTEXT*) ALPHA-IL-FUNCTION :D8 (IL:L (1 CLOSE-P-FORM 0 FN) IL:F 0 *CURRENT-BLOCK* IL:F 1 *ENVIRONMENT*) @d3@ð›P™@P µ$A³.@dd3@ð² ¿Q@ ³@ @ b¿°Ú@ gggggggg g@dd3@ð—¿@ „ A h(154 MAKE-CALL 146 ALPHA-LITERAL 140 ALPHA-FUNCTION 134 ALPHA-LITERAL 115 MAKE-VAR-REF 110 MAKE-VARIABLE 63 ALPHA-FUNCTION 50 ALPHA-LITERAL 44 CHECK-FOR-UNKNOWN-FUNCTION 36 ENV-FBOUNDP 14 BLOCK-DECL-FN-NAME-MAP) (120 :ARGS 104 :FUNCTION 99 :KIND 94 :GLOBAL 89 :SCOPE 84 IL:FUNCTION 79 :NAME 74 :VARIABLE 69 :FN) () ALPHA-LABELS :D8 (IL:L (1 BODY 0 BINDINGS) IL:P 27 *NEW-NOTINLINES* IL:P 26 *NEW-INLINES* IL:P 25 *NEW-GLOBALS* IL:P 24 *NEW-SPECIALS* IL:P 23 IL:GLOBALVARS IL:P 22 IL:LOCALVARS IL:P 21 IL:SPECVARS IL:P 0 *ENVIRONMENT* IL:F 28 *ENVIRONMENT* IL:F 29 IL:SPECVARS IL:F 30 IL:LOCALVARS IL:F 31 IL:GLOBALVARS) tW8 ñP¹@½h\[ºMµlL_¿AHh _(_&¿O(_$¿W:WCO$ ¿H ¿I@_¿O_¿h__¿O•O’±¶O¿IO& I_´Ogð´O´ Od3@ð_²goO †O _¿O§O ¿gOgggggI ¾HOgN¿NºL”KJ&»„Jh[¼M]±þúOO_"¿_ ¿O"O gO"É_¿O˜OO&_¿ˆOh__¿O_¿O_¿±þ÷(330 ALPHA-LAMBDA 311 BINDING-TO-LAMBDA 269 ENV-BIND-FUNCTION 254 MAKE-VARIABLE 214 CHECK-ARG 201 SYMBOL-NAME 193 CONCATENATE 188 SYMBOL-NAME 129 ALPHA-PROGN 80 UPDATE-ENVIRONMENT 73 PROCESS-DECLARATIONS 44 IL:\\MVLIST 39 PARSE-BODY 17 MAKE-LABELS 6 MAKE-CHILD-ENV) (323 VARIABLE-STRUCT 316 :NAME 263 :FUNCTION 247 :BINDER 242 :FUNCTION 237 :KIND 232 :LEXICAL 227 :SCOPE 220 :NAME 174 STRING 148 SETF 122 LABELS-NODE 87 LABELS-NODE) ( 179 "Local SETF for ") ALPHA-LAMBDA :D8 (IL:L (0 IL:|-args-|) IL:P 28 *NEW-NOTINLINES* IL:P 27 *NEW-INLINES* IL:P 26 *NEW-GLOBALS* IL:P 25 *NEW-SPECIALS* IL:P 24 IL:GLOBALVARS IL:P 23 IL:LOCALVARS IL:P 22 IL:SPECVARS IL:P 21 *ENVIRONMENT* IL:P 18 *CONTEXT* IL:F 29 *ENVIRONMENT* IL:F 30 IL:SPECVARS IL:F 31 IL:LOCALVARS IL:F 32 IL:GLOBALVARS) SekañHl»ºKJó¢±§oHl½¼MdLó¢±©¿h¾I __¿O_¿OOW: O(O*i __¿O_¿WW@CO O* gNgO_¿O&O _¿O _¿O°uKdagð¦lÔ[±ÿHkØa±ÿMagð–MkØa±ÿPMlÔ]±ÿ?d_"¿gO"hgO_ ¿O"O ¿gO gO"h_¿µºOOOlð›OIO(298 MAKE-CALL 260 MAKE-LAMBDA 180 ALPHA-PROGN 170 ALPHA-LAMBDA-LIST 158 MAKE-LAMBDA 140 UPDATE-ENVIRONMENT 133 PROCESS-DECLARATIONS 104 IL:\\MVLIST 99 PARSE-BODY 86 MAKE-CHILD-ENV 58 IL:\\MVLIST 53 CONVERT-TO-CL-LAMBDA) (329 LAMBDA-NODE 312 LAMBDA-NODE 288 :ARGS 281 :FN 271 VARIABLE-STRUCT 253 :BODY 243 :REQUIRED 216 :NAME 195 :CONTEXT 151 :ARG-TYPE 145 :NAME) ( 28 #.*NULL-CONTEXT*) ALPHA-LAMBDA-LIST :D8 (IL:L (1 BINDER 0 ARG-LIST) IL:F 28 *ENVIRONMENT*) «gñÀ@_4µ±š_6dgð²&¿Hgð˜gX±uoo ±cgð²-Hgð§Hgð˜gX±Boo ±0O6dgð²W¿Hgð«o °íAgA ¿AI AJ AK Lgð².Hgð³Hgð¨gX±®oo ±œO6dgð²'¿Hgð¯oo ¿Ai±lgð²%Hgð¨gX±Soo ±AH_2dgð²¿O6 ¢±*O6AW8IY±gð¢±O6d³# ¢±O6AW8ohJZ±è__¿O_d_¿O´O_¿Ohðhð¾O ¢±¹O ½OAW8MN´O ´OAW8hJZ±…O2dgð²*¿O6 ¢±oAO6AW8¿gX±Rgð²oo ±8O2dgð¢±Ø¿O6d³5 ¢±O6 o O6AW8ohK[±ñ_*_(¿O*_&d_$¿O&_"d_ ¿O"hðhð_¿h_¿O(d³"d ²"¿O( o _¿O(‡_¿O(_ ¢±O$ _¿OOAW8OO´O ´O AW8hK[°Ugð´dgð³5dgð³,dgð³#dgð³dgð¯dgð§dgð’¿i¿h³8H Y¸I’±þèHd¢±þÜdgð¢±þÏH X±þÈH(319 EXPAND-OPENLAMBDA-CALL 280 IL:\\MVLIST 275 OPTIMIZE-AND-MACROEXPAND-1) (306 IL:OPENLAMBDA 260 UNWIND-PROTECT 252 THROW 244 THE 235 TAGBODY 226 IL:SETQ 217 SETQ 208 QUOTE 199 PROGV 190 PROGN 181 MULTIPLE-VALUE-PROG1 172 MULTIPLE-VALUE-CALL 163 SI::%MACROLET 154 MACROLET 145 LET* 136 LET 125 LABELS 114 IF 103 GO 92 FUNCTION 81 IL:FUNCTION 70 FLET 59 EVAL-WHEN 48 DECLARE 37 COMPILER-LET 26 CATCH 15 BLOCK) () EXPAND-OPENLAMBDA-CALLA0001 :D8 (IL:L (0 ARG)) "@ µ@d¨d3@ðhðµ@´ @o(5 CONSTANTP) #:NIL ( 30 (IL:FUNCTION FUNCTION)) EXPAND-OPENLAMBDA-CALL :D8 (IL:L (1 ARGS 0 FN) IL:P 13 *CONTEXT*) ÁÐ@_¿o A_µ6N__¿O³BO»I’±‰gKJ@gg ¼N”ML&½„Lh]¾O°²O ³&Od§d3@ð²O² Ogð²Od3@ð™OOJºŠOH¸OI¹O_¿O±ÿkK²\gh ²OI_¿gIK_¿OO¿gH J@ggI HH¸II¹JºIšId3@ð³êIµgJ@ggdgð§dgð’¿i¿h²ŒI³)HIJZgIJ@ggHH¸IJZgIIhIYgH J@ggI (445 REVERSE 437 SUBLIS 418 REVERSE 372 SUBLIS 305 SUBLIS 252 REVERSE 244 SUBLIS 225 REVERSE 189 IL:%NOTEVERY-SINGLE 104 CONSTANTP 79 COMPLETELY-EXPAND 71 APPEND 66 SUBLIS) (432 EQ 427 :TEST 412 LAMBDA 393 PROG1 367 EQ 362 :TEST 351 PROGN 323 SETQ 315 IL:SETQ 300 EQ 295 :TEST 286 PROGN 239 EQ 234 :TEST 219 LAMBDA 200 PROG1 183 EXPAND-OPENLAMBDA-CALLA0001 130 IL:FUNCTION 61 EQ 56 :TEST 46 PROGN) ( 13 #.*ARGUMENT-CONTEXT*) (PROCLAIM (QUOTE (SPECIAL *INDENT-INCREMENT*))) (IL:SETQ *INDENT-INCREMENT* 3) (PROCLAIM (QUOTE (SPECIAL *NODE-HASH*))) (OR (BOUNDP (QUOTE *NODE-HASH*)) (SETQ *NODE-HASH* #:NIL)) (IL:SET-DOCUMENTATION (QUOTE *NODE-HASH*) (QUOTE VARIABLE) "Used by the parse-tree pretty-printer") (PROCLAIM (QUOTE (SPECIAL *NODE-NUMBER*))) (OR (BOUNDP (QUOTE *NODE-NUMBER*)) (SETQ *NODE-NUMBER* 0)) (IL:SET-DOCUMENTATION (QUOTE *NODE-NUMBER*) (QUOTE VARIABLE) "Used by the parse-tree pretty-printer") TEST-ALPHAA0001 :D8 (IL:NAME SI::*UNWIND-PROTECT* IL:I 0 SI::*CLEANUP-FORMS* IL:F 0 TREE) P (5 PRINT-TREE) #:NIL () TEST-ALPHAA0002 :D8 (IL:F 0 TREE) P (5 RELEASE-TREE) #:NIL () TEST-ALPHA :D8 (IL:L (0 FN) IL:P 0 TREE) $@ g H ¿$(29 RELEASE-TREE 23 IL:\\MVLIST 18 TEST-ALPHAA0001 5 TEST-ALPHA-2) (13 TEST-ALPHAA0002) () TEST-ALPHA-2 :D8 (IL:L (0 FN) IL:P 10 *AUTOMATIC-SPECIAL-DECLARATIONS* IL:P 9 *CURRENT-FUNCTION* IL:P 8 *UNKNOWN-FUNCTIONS* IL:P 7 *PROCESSED-FUNCTIONS* IL:P 6 IL:LOCALFREEVARS IL:P 5 IL:GLOBALVARS IL:P 4 IL:LOCALVARS IL:P 3 IL:SPECVARS IL:P 2 *CONSTANTS-HASH-TABLE* IL:P 1 *CONTEXT* IL:P 0 *ENVIRONMENT* IL:F 11 IL:GLOBALVARS) Eoi`WV @d³!d —¿@ Žg (66 ALPHA-LAMBDA 61 PARSE-DEFUN 56 IL:GETDEF 45 IL:GETD 36 IL:GETD 14 MAKE-HASH-TABLE 4 MAKE-ENV) (51 IL:FUNCTIONS 20 IL:SYSLOCALVARS) ( 9 #.*NULL-CONTEXT*) PARSE-DEFUN :D8 (IL:L (0 FORM)) =@aH¹HZ»Jhi \½L¾gKNgIMh (56 APPEND 26 IL:\\MVLIST 21 PARSE-BODY) (45 BLOCK 38 LAMBDA) () PRINT-TREE :D8 (IL:L (0 TREE) IL:P 2 *PRINT-CASE* IL:P 1 *NODE-NUMBER* IL:P 0 *NODE-HASH*) jg@j $(26 TERPRI 20 PRINT-NODE 4 MAKE-HASH-TABLE) (10 :UPCASE) () PRINT-NODE :D8 (IL:L (1 INDENT 0 NODE) IL:F 33 *NODE-NUMBER* IL:F 34 *NODE-HASH* IL:F 35 *INDENT-INCREMENT*) !@ hð´ @WD ñð HœioHWBkÔcB¿@WDWBioWB@ AWFÔ_@¿@_>_oh (2820 IL:CHECK-TYPE-FAIL 2776 PRINC 2766 FORMAT 2730 PRINC 2718 IL:GETHASH 2687 FORMAT 2636 VAR-REF-VARIABLE 2581 UNWIND-PROTECT-CLEANUP 2575 PRINC 2565 FORMAT 2550 PRINT-NODE 2540 UNWIND-PROTECT-STMT 2534 PRINC 2524 FORMAT 2486 THROW-VALUE 2480 PRINC 2470 FORMAT 2455 PRINT-NODE 2445 THROW-TAG 2439 PRINC 2429 FORMAT 2392 PRINT-NODE 2379 FORMAT 2342 PRINC 2334 FORMAT 2299 TAGBODY-SEGMENTS 2293 FORMAT 2241 SETQ-VALUE 2235 PRINC 2225 FORMAT 2210 PRINT-NODE 2200 SETQ-VAR 2194 PRINC 2184 FORMAT 2142 RETURN-VALUE 2136 PRINC 2126 FORMAT 2111 PRINT-NODE 2101 RETURN-BLOCK 2095 PRINC 2085 FORMAT 2047 PROGV-STMT 2041 PRINC 2031 FORMAT 2016 PRINT-NODE 2006 PROGV-VALS-EXPR 2000 PRINC 1990 FORMAT 1975 PRINT-NODE 1965 PROGV-SYMS-EXPR 1959 PRINC 1949 FORMAT 1914 PRINT-NODE 1904 FORMAT 1882 PROGN-STMTS 1868 PRIN1 1863 OPCODES-BYTES 1840 PRINT-NODE 1830 FORMAT 1808 MV-PROG1-STMTS 1788 FORMAT 1766 PRINT-NODE 1750 MV-CALL-ARG-EXPRS 1744 PRINC 1734 FORMAT 1719 PRINT-NODE 1709 MV-CALL-FN 1703 PRINC 1693 FORMAT 1677 PRINC 1644 PRIN1 1639 LITERAL-VALUE 1614 LAMBDA-BODY 1603 FORMAT 1572 PRINT-NODE 1556 LAMBDA-CLOSED-OVER-VARS 1549 FORMAT 1532 PRINC 1519 LAMBDA-CLOSED-OVER-VARS 1503 FORMAT 1476 PRINC 1465 LAMBDA-ALLOW-OTHER-KEYS 1453 PRINC 1442 FORMAT 1425 PRINT-NODE 1408 FORMAT 1391 PRINT-NODE 1378 FORMAT 1361 PRINC 1350 PRINT-NODE 1337 FORMAT 1320 FORMAT 1252 LAMBDA-KEYWORD 1245 PRINC 1231 LAMBDA-KEYWORD 1224 FORMAT 1208 PRINT-NODE 1198 LAMBDA-REST 1191 PRINC 1178 LAMBDA-REST 1162 FORMAT 1131 PRINC 1120 FORMAT 1103 PRINT-NODE 1088 FORMAT 1071 PRINT-NODE 1058 FORMAT 1041 PRINT-NODE 1028 PRINC 1016 PRINT-NODE 999 PRINT-NODE 930 LAMBDA-OPTIONAL 923 PRINC 909 LAMBDA-OPTIONAL 898 FORMAT 868 PRINT-NODE 853 LAMBDA-REQUIRED 846 PRINC 833 LAMBDA-REQUIRED 826 FORMAT 782 LABELS-BODY 776 PRINC 766 FORMAT 746 FORMAT 725 PRINT-NODE 711 FORMAT 694 PRINT-NODE 678 LABELS-FUNS 672 PRINC 662 FORMAT 622 IF-ELSE 616 PRINC 606 FORMAT 591 PRINT-NODE 581 IF-THEN 575 PRINC 565 FORMAT 550 PRINT-NODE 540 IF-PRED 534 PRINC 524 FORMAT 480 GO-TAGBODY 474 PRINC 464 FORMAT 449 FORMAT 444 GO-TAG 409 CATCH-STMT 403 PRINC 393 FORMAT 378 PRINT-NODE 368 CATCH-TAG 362 PRINC 352 FORMAT 319 FORMAT 298 PRINT-NODE 283 CALL-ARGS 277 PRINC 267 FORMAT 246 CALL-ARGS 240 PRINT-NODE 230 CALL-FN 224 PRINC 214 FORMAT 198 PRINC 157 BLOCK-STMT 151 FORMAT 136 FORMAT 109 PRIN1 104 BLOCK-NAME 77 FORMAT 72 TYPE-OF 58 CL::PUTHASH 40 FORMAT 17 GETHASH 5 LITERAL-P) (2806 NODE 2783 VARIABLE-STRUCT 2737 VARIABLE-STRUCT 2709 VARIABLE-STRUCT 2694 VARIABLE-STRUCT 2679 VARIABLE-STRUCT 2670 VARIABLE-STRUCT 2661 VARIABLE-STRUCT 2652 VARIABLE-STRUCT 2627 VARIABLE-STRUCT 2614 VAR-REF-NODE 2606 VARIABLE-STRUCT 2507 UNWIND-PROTECT-NODE 2411 THROW-NODE 2354 SEGMENT 2310 SEGMENT 2286 BLIPPER 2278 BLIPPER 2262 TAGBODY-NODE 2166 SETQ-NODE 2068 RETURN-NODE 1929 PROGV-NODE 1874 PROGN-NODE 1855 OPCODES-NODE 1800 MV-PROG1-NODE 1664 CALLER 1653 MV-CALL-NODE 1632 LITERAL-NODE 806 LAMBDA-NODE 643 LABELS-NODE 504 IF-NODE 430 GO-NODE 334 CATCH-NODE 185 CALLER 175 CALL-NODE 129 BLIPPER 121 BLIPPER 95 BLOCK-NODE) ( 2813 (OR BLOCK-NODE CALL-NODE CATCH-NODE GO-NODE IF-NODE LABELS-NODE LAMBDA-NODE LITERAL-NODE MV-CALL-NODE MV-PROG1-NODE OPCODES-NODE PROGN-NODE PROGV-NODE RETURN-NODE SETQ-NODE TAGBODY-NODE THROW-NODE UNWIND-PROTECT-NODE (OR VARIABLE-STRUCT VAR-REF-NODE)) 2771 "Binder: " 2757 "~%~vT" 2725 "Binder: " 2645 "~S ~S ~S ~@[~*Closed-over ~]" 2570 "Cleanup: " 2556 "~%~vT" 2529 "Stmt: " 2515 "~%~vT" 2475 "Value: " 2461 "~%~vT" 2434 "Tag: " 2420 "~%~vT" 2369 "~%~vT" 2325 "~%~vT" 2272 " Closed-over-p: ~:[false~;true~] New-frame-p: ~:[false~;true~]" 2230 "Value: " 2216 "~%~vT" 2189 "Var: " 2175 "~%~vT" 2131 "Value: " 2117 "~%~vT" 2090 "From: " 2076 "~%~vT" 2036 "Body: " 2022 "~%~vT" 1995 "Vals: " 1981 "~%~vT" 1954 "Vars: " 1940 "~%~vT" 1895 "~%~vT" 1821 "~%~vT" 1778 "~%~vT" 1739 "Args: " 1725 "~%~vT" 1698 "Func: " 1684 "~%~vT" 1672 "(not inline)" 1593 "~%~vT" 1583 "~%~vT" 1539 "~%~vT" 1527 "Closed-over:" 1493 "~%~vT" 1483 "~%~vT" 1471 "&allow-other-keys" 1448 ")" 1432 "~%~vT" 1398 "~%~vT" 1368 "~%~vT" 1356 ")" 1327 "~%~vT" 1313 "((~S " 1240 "&key: " 1215 "~%~vT" 1186 "&rest: " 1152 "~%~vT" 1142 "~%~vT" 1126 ")" 1110 "~%~vT" 1078 "~%~vT" 1048 "~%~vT" 1023 "(" 918 "&opt: " 888 "~%~vT" 878 "~%~vT" 841 "&req: " 817 "~%~vT" 771 "Body: " 757 "~%~vT" 736 "~%~vT" 701 "~%~vT" 667 "Funs: " 653 "~%~vT" 611 "Else: " 597 "~%~vT" 570 "Then: " 556 "~%~vT" 529 "Pred: " 515 "~%~vT" 469 "Tagbody: " 455 "~%~vT" 438 "to ~S" 398 "Stmt: " 384 "~%~vT" 357 "Tag: " 343 "~%~vT" 309 "~%~vT" 272 "Args: " 258 "~%~vT" 219 "Func: " 205 "~%~vT" 193 "(not inline)" 142 "~%~vT" 115 " Closed-over-p: ~:[false~;true~] New-frame-p: ~:[false~;true~]" 64 "~S. ~A: " 34 "-~S-") (PROCLAIM (QUOTE (SPECIAL CONTEXT-TEST-FORM))) (IL:SETQ CONTEXT-TEST-FORM (QUOTE (PROGN (CTXT) (LIST (IF (CTXT) (CTXT)) (MULTIPLE-VALUE-LIST (CTXT)) (MULTIPLE-VALUE-CALL (FUNCTION (LAMBDA (A B) (BAR A B))) (CTXT)) (MULTIPLE-VALUE-CALL (FUNCTION ( LAMBDA (A &REST B) (BAR A B))) (CTXT)) (MULTIPLE-VALUE-CALL (FUNCTION (LAMBDA (A B) (BAR A B))) (CTXT) (CTXT)) (LET ((X (CTXT))) (SETQ X (CTXT))) ((LAMBDA (A &OPTIONAL (B (CTXT))) (CTXT)) (CTXT)) ( MULTIPLE-VALUE-CALL (FUNCTION (LAMBDA (A B) (BAR A B))) ((LAMBDA (C) (CTXT)) 17))) (CTXT)))) (IL:SET-DOCUMENTATION (QUOTE CONTEXT-TEST-FORM) (QUOTE VARIABLE) "Form for testing the alphatizer's manipulation of context information.") |expand-CTXT| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) IL:F 0 *CONTEXT*) P (5 PRINC-TO-STRING) #:NIL () (IL:SETF-MACRO-FUNCTION (QUOTE CTXT) (QUOTE |expand-CTXT|)) (IL:PUTPROPS IL:XCLC-ALPHA IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:XCLC-ALPHA IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "COMPILER" ( :USE "LISP" "XCL")))) (IL:PUTPROPS IL:XCLC-ALPHA IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1992)) #:NIL