(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "12-Nov-93 14:53:20" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>XCLC-META-EVAL.;1|) "11-Nov-93 16:58:33" "COMPILE-FILEd" IL:|in| "Medley 11-Nov-93 ..." IL:|dated| "11-Nov-93 17:07:44") (IL:FILECREATED "13-Oct-93 17:18:24" "{Pele:mv:envos}Sources>CLTL2>XCLC-META-EVAL.;1" 67835 IL:|changes| IL:|to:| (IL:FUNCTIONS META-EVAL-LABELS) IL:|previous| IL:|date:| " 4-Feb-92 10:29:37" IL:|{DSK}usr>users>sybalsky>cltl2>sources>XCLC-META-EVAL.;1|) (IL:RPAQQ IL:XCLC-META-EVALCOMS ((IL:* IL:|;;;| "Meta-evaluation") (IL:FUNCTIONS META-EVALUATE) ( IL:FUNCTIONS MEVAL MEVAL-LIST REDO-MEVAL) (IL:FUNCTIONS REMOVE-NESTED-PROGNS EXPAND-NESTED-PROGNS) ( IL:FUNCTIONS GLOBAL-FUNCTION-P) (IL:FUNCTIONS CONSTRUCT-PROG1-TREE) (IL:VARIABLES *MADE-CHANGES* *REDOING-ANALYSIS*) (IL:FUNCTIONS META-EVAL-BLOCK META-EVAL-CALL META-EVAL-CATCH META-EVAL-GO META-EVAL-IF META-EVAL-LABELS META-EVAL-LAMBDA META-EVAL-LITERAL META-EVAL-MV-CALL META-EVAL-MV-PROG1 META-EVAL-OPCODES META-EVAL-PROGN META-EVAL-PROGV META-EVAL-RETURN META-EVAL-SETQ META-EVAL-TAGBODY META-EVAL-THROW META-EVAL-UNWIND-PROTECT META-EVAL-VAR-REF) (IL:FUNCTIONS META-CALL-LAMBDA META-CALL-LAMBDA-SIMPLIFY-PARAMETERS CONSTRUCT-LIST) (IL:* IL:|;;;| "Meta-substitution") (IL:FUNCTIONS META-CALL-LAMBDA-SUBSTITUTE META-CALL-LABELS META-SUBSTITUTE META-SUBST) (IL:FUNCTIONS MSUBST MSUBST-LIST) (IL:FUNCTIONS SUBSTITUTABLE-P) (IL:FUNCTIONS EFFECTLESS EFFECTLESS-EXCEPT-CONS NULL-INTERSECTION NULL-EFFECTS-INTERSECTION NULL-EFFECTS-INTERSECTION-EXCEPT-CONS PASSABLE NONLOCAL-VARIABLE-EFFECT-P COLLECT-NONLOCAL-VAR-EFFECTS) (IL:VARIABLES *SUBST-VAR* *SUBST-EXPR* *SUBST-OCCURRED*) (IL:FUNCTIONS META-SUBST-BLOCK META-SUBST-CALL META-SUBST-CATCH META-SUBST-GO META-SUBST-IF META-SUBST-LABELS META-SUBST-LAMBDA META-SUBST-LITERAL META-SUBST-MV-CALL META-SUBST-MV-PROG1 META-SUBST-OPCODES META-SUBST-PROGN META-SUBST-PROGV META-SUBST-RETURN META-SUBST-SETQ META-SUBST-TAGBODY META-SUBST-THROW META-SUBST-UNWIND-PROTECT META-SUBST-VAR-REF) ( IL:FUNCTIONS META-SUBST-ANY-CALL META-SUBST-STMTS) (IL:* IL:|;;| "Testing meta-evaluation") ( IL:FUNCTIONS TEST-META-EVAL) (IL:* IL:|;;| "Arrange to use the correct compiler") (IL:PROP IL:FILETYPE IL:XCLC-META-EVAL) (IL:* IL:|;;| "Arrange for the proper makefile-environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCLC-META-EVAL))) META-EVALUATE :D8 (IL:L (0 IL:|-args-|) IL:F 6 *REDOING-ANALYSIS*) ”ekaAlHñ•g‚laºV™Ih¿JIÉð’±bI]\[dÃš¿MJ ±HÃ™MJ ±8KdÃš¿MJ ±%Ã™MJ ±KdÃš¿MJ ±Ã™MJ ±òKdÃš¿MJ ±ßÃ™MJ ±ÏKdÃš¿MJ ±¼Ã™MJ ±¬KdÃš¿MJ ±™Ã™MJ ±‰KdÃ™¿MJ °vÃ˜MJ °gKdÃ™¿MJ °UÃ˜MJ °FKdÃ™¿MJ °4Ã˜MJ °%KÃ´MJ °gLoh Y±þ•I(396 IL:CHECK-TYPE-FAIL 376 META-EVAL-BLOCK 359 META-EVAL-CALL 344 META-EVAL-CATCH 326 META-EVAL-GO 311 META-EVAL-IF 293 META-EVAL-LABELS 278 META-EVAL-LAMBDA 259 META-EVAL-LITERAL 243 META-EVAL-MV-CALL 224 META-EVAL-MV-PROG1 208 META-EVAL-OPCODES 189 META-EVAL-PROGN 173 META-EVAL-PROGV 154 META-EVAL-RETURN 138 META-EVAL-SETQ 119 META-EVAL-TAGBODY 103 META-EVAL-THROW 84 META-EVAL-UNWIND-PROTECT 68 META-EVAL-VAR-REF) (383 $$NODE$$ 367 BLOCK-NODE 351 CALL-NODE 335 CATCH-NODE 318 GO-NODE 302 IF-NODE 285 LABELS-NODE 269 LAMBDA-NODE 251 LITERAL-NODE 234 MV-CALL-NODE 216 MV-PROG1-NODE 199 OPCODES-NODE 181 PROGN-NODE 164 PROGV-NODE 146 RETURN-NODE 129 SETQ-NODE 111 TAGBODY-NODE 94 THROW-NODE 76 UNWIND-PROTECT-NODE 59 VAR-REF-NODE 42 NODE 31 NODE 18 :ARGUMENT) ( 389 (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))) |expand-MEVAL| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ¬@ñ H¹HºA»IK \½L^_¿N__¿O__¿O_¿gM_"¿O_ ¿h__¿O"“O ³$OOgOJhhh OhO"O h_¿O˜OO&_¿ˆOh__¿O"_"¿O _ ¿°ª(116 APPEND 28 IL:\\MVLIST 23 GET-SETF-METHOD) (99 META-EVALUATE 67 LET*) () (IL:SETF-MACRO-FUNCTION (QUOTE MEVAL) (QUOTE |expand-MEVAL|)) |expand-MEVAL-LIST| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) K@AH¹HZ»Jd¼gggIggLµoKhho°íNIL (44 MEVAL 39 IL:DO 33 IL:ON 28 TAIL 23 IL:FOR) ( 70 ((CAR TAIL)) 52 (CAR TAIL)) (IL:SETF-MACRO-FUNCTION (QUOTE MEVAL-LIST) (QUOTE |expand-MEVAL-LIST|)) |expand-REDO-MEVAL| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) '@!H¹HºgogIJhhNIL (26 MEVAL 16 LET) ( 21 ((*REDOING-ANALYSIS* T))) (IL:SETF-MACRO-FUNCTION (QUOTE REDO-MEVAL) (QUOTE |expand-REDO-MEVAL|)) |expand-REMOVE-NESTED-PROGNS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) œ@ñA¹HI Z»J\½L^_¿N__¿O_¿gK_¿M_¿h__¿O“O³"OOgOhhh OhOOh_¿O˜OO&_¿ˆOh__¿O_¿O_¿°¬(100 APPEND 19 IL:\\MVLIST 14 GET-SETF-METHOD) (85 EXPAND-NESTED-PROGNS 54 LET*) () (IL:SETF-MACRO-FUNCTION (QUOTE REMOVE-NESTED-PROGNS) (QUOTE |expand-REMOVE-NESTED-PROGNS|)) EXPAND-NESTED-PROGNS :D8 (IL:L (0 NODE-LIST)) 5@@°!d[d ´ ¿K €X–IµHZY¿µàJ YH°ñ(46 LAST 23 PROGN-STMTS 14 PROGN-P) NIL () GLOBAL-FUNCTION-P :D8 (IL:L (0 NODE)) 1@ ´)@ HÉgð´HÉgð(13 VAR-REF-VARIABLE 5 VAR-REF-P) (45 :FUNCTION 38 VARIABLE-STRUCT 29 :GLOBAL 22 VARIABLE-STRUCT) () |definline-GLOBAL-FUNCTION-P| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL NIL ( 9 (LAMBDA (NODE) (BLOCK GLOBAL-FUNCTION-P (AND (VAR-REF-P NODE) (LET ((VAR (VAR-REF-VARIABLE NODE))) (AND (EQ :GLOBAL (VARIABLE-SCOPE VAR)) (EQ :FUNCTION (VARIABLE-KIND VAR)))))))) (IL:PUTPROP (QUOTE GLOBAL-FUNCTION-P) (QUOTE OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-GLOBAL-FUNCTION-P|) (GET (QUOTE GLOBAL-FUNCTION-P) (QUOTE OPTIMIZER-LIST)))) CONSTRUCT-PROG1-TREE :D8 (IL:L (1 REST 0 FIRST)) oAgH ¹gHhggAIh ºHJH¼ILÉ»LK¿gJg@h(108 MAKE-CALL 56 MAKE-LAMBDA 51 MAKE-PROGN 46 APPEND 18 MAKE-VAR-REF 4 MAKE-VARIABLE) (100 :ARGS 94 :FN 85 VARIABLE-STRUCT 75 VARIABLE-STRUCT 63 VARIABLE-STRUCT 37 :STMTS 32 :BODY 24 :REQUIRED 12 :VARIABLE) () (PROCLAIM (QUOTE (SPECIAL *MADE-CHANGES*))) (OR (BOUNDP (QUOTE *MADE-CHANGES*)) (SETQ *MADE-CHANGES* NIL)) (PROCLAIM (QUOTE (SPECIAL *REDOING-ANALYSIS*))) (OR (BOUNDP (QUOTE *REDOING-ANALYSIS*)) (SETQ *REDOING-ANALYSIS* NIL)) META-EVAL-BLOCK :D8 (IL:L (1 CONTEXT 0 NODE)) 6@A@H A ¹HI@ @A@(41 ANALYZE-TREE 24 META-EVALUATE 18 BLOCK-STMT) (47 NODE 31 BLOCK-NODE 5 BLOCK-NODE) () META-EVAL-CALL :D8 (IL:L (1 CONTEXT 0 NODE)) >@H g ¹HI @ °dHg ¹HIµé@ @ ñH ²2Agð³!H^ A ½NM¿H ¿@A Agð¢±Œ@dÉ’±€¿H_ ²sO _Égð²[OÉgð²JH É _gð©OoÌ²$g@ @h¿@ ¿@É’±¬H_ ¢± O _Égð¢±†OÉgð¢±sH É oÌ¢±W@ 1O"µSO$Z•J¢±>Agð¤K’±1H É_¿@ ¿Agð¢±§gK¢±gO0J°td £¿i°§ _dÃ”¿i»O_(¿O&µO(h_&_$¿O"_"±ÿxO(&_&¿°òd_Ã™OÉ‰gOh_*¿O,µ O*h_.‚O*&_,¿µÌO. ‡OJ OJ \¬gL gggggggg ggL h@dÉ³W¿H_ ²KO _Égð²3OÉgð²"H ÉÁÉg'Y–@AlI@A@(791 VAR-REF-VARIABLE 751 VAR-REF-VARIABLE 742 VAR-REF-P 721 MAKE-CALL 714 MAKE-LITERAL 698 MAKE-VAR-REF 693 MAKE-VARIABLE 646 MAKE-LITERAL 631 IL:\\MVLIST 626 APPLY 617 MAKE-LITERAL 612 APPLY 603 MAKE-EVAL-WHEN-LOAD 494 LITERAL-VALUE 484 LITERAL-P 442 RELEASE-TREE 426 VAR-REF-VARIABLE 388 CALL-ARGS 372 SIDE-EFFECTS 360 VAR-REF-VARIABLE 316 VAR-REF-VARIABLE 305 VAR-REF-P 283 RELEASE-TREE 267 MAKE-PROGN 262 CALL-ARGS 231 SIDE-EFFECTS 219 VAR-REF-VARIABLE 179 VAR-REF-VARIABLE 170 VAR-REF-P 136 META-CALL-LAMBDA 128 ANALYZE-TREE 111 META-EVALUATE 105 LAMBDA-BODY 87 LAMBDA-P 75 CALL-FN 69 ANALYZE-TREE 54 META-EVALUATE 36 CALL-ARGS 19 META-EVALUATE 9 CALL-FN) (823 NODE 807 TRANSFORM 796 VARIABLE-STRUCT 782 :FUNCTION 775 VARIABLE-STRUCT 765 :GLOBAL 758 VARIABLE-STRUCT 729 CALLER 708 :VALUE 703 :ARGS 687 :GLOBAL 682 :SCOPE 677 :FUNCTION 672 :KIND 667 VALUES-LIST 662 :NAME 657 :VARIABLE 652 :FN 639 :VALUE 565 QUOTE 557 EVAL-WHEN-LOAD 549 EVAL-WHEN-LOAD 502 EVAL-WHEN-LOAD 469 :FORM 459 :VALUE 449 :ARGUMENT 431 VARIABLE-STRUCT 413 :ARGUMENT 365 VARIABLE-STRUCT 349 :FUNCTION 342 VARIABLE-STRUCT 330 :GLOBAL 323 VARIABLE-STRUCT 291 CALLER 273 CALL-NODE 256 :STMTS 239 :NONE 224 VARIABLE-STRUCT 210 :FUNCTION 203 VARIABLE-STRUCT 193 :GLOBAL 186 VARIABLE-STRUCT 155 CALLER 143 :EFFECT 118 LAMBDA-NODE 95 :RETURN 49 :ARGUMENT 26 CALL-NODE 14 :ARGUMENT) ( 377 (:NONE . :NONE) 248 (:CONS)) META-EVAL-CATCH :D8 (IL:L (1 CONTEXT 0 NODE)) L@H g ¹HI@H A ¹HI@ @A@(63 ANALYZE-TREE 46 META-EVALUATE 40 CATCH-STMT 19 META-EVALUATE 9 CATCH-TAG) (69 NODE 53 CATCH-NODE 26 CATCH-NODE 14 :ARGUMENT) () META-EVAL-GO :D8 (IL:L (1 CONTEXT 0 NODE)) @ @A@(5 ANALYZE-TREE) (11 NODE) () META-EVAL-IF :D8 (IL:L (1 CONTEXT 0 NODE)) ‚@H g ¹HI@H A ¹HI @H A ¹HI@ @ ²4@d ²¿@ @ @ Adgð²¿@ ž@d ³8¿Agð²4@d É ² ¿@d É ˜¿@ @ AH ²kH ²^H ³QH ²DH ið²5@H ¿@\ »@Z ¹LI ¿JK¿@A@(351 IF-ELSE 343 IF-THEN 333 IF-PRED 317 LITERAL-VALUE 312 IF-ELSE 304 LITERAL-P 299 IF-ELSE 291 LITERAL-VALUE 286 IF-THEN 278 LITERAL-P 273 IF-THEN 265 IF-P 256 IF-PRED 249 IF-PRED 241 EFFECTLESS-EXCEPT-CONS 229 IF-ELSE 219 EFFECTLESS-EXCEPT-CONS 207 IF-THEN 188 LITERAL-P 183 IF-ELSE 175 LITERAL-P 170 IF-THEN 152 IF-ELSE 146 RELEASE-TREE 141 IF-THEN 135 IF-THEN 129 RELEASE-TREE 124 IF-ELSE 115 LITERAL-VALUE 110 IF-PRED 101 LITERAL-P 96 IF-PRED 90 ANALYZE-TREE 73 META-EVALUATE 67 IF-ELSE 46 META-EVALUATE 40 IF-THEN 19 META-EVALUATE 9 IF-PRED) (379 NODE 368 IF-NODE 358 IF-NODE 327 IF-NODE 234 NODE 212 NODE 197 :EFFECT 160 :EFFECT 80 IF-NODE 53 IF-NODE 26 IF-NODE 14 :ARGUMENT) () META-EVAL-LABELS :D8 (IL:L (1 CONTEXT 0 NODE)) L@ °dHg ¹HIµè@H A ¹HI @ @A (73 META-CALL-LABELS 66 ANALYZE-TREE 49 META-EVALUATE 43 LABELS-BODY 24 META-EVALUATE 5 LABELS-FUNS) (56 LABELS-NODE 19 :ARGUMENT) () META-EVAL-LAMBDA :D8 (IL:L (1 CONTEXT 0 NODE)) Agð›@ o@H g ¹HI@ °dHg ¹HIµæ@ °dHg ¹HIµä@ @A@(130 ANALYZE-TREE 113 META-EVALUATE 92 LAMBDA-KEYWORD 76 META-EVALUATE 56 LAMBDA-OPTIONAL 39 META-EVALUATE 29 LAMBDA-BODY 13 RELEASE-TREE) (136 NODE 108 :ARGUMENT 71 :ARGUMENT 46 LAMBDA-NODE 34 :RETURN 5 :EFFECT) ( 18 #.*LITERALLY-NIL*) META-EVAL-LITERAL :D8 (IL:L (1 CONTEXT 0 NODE)) @ @A@(5 ANALYZE-TREE) (11 NODE) () META-EVAL-MV-CALL :D8 (IL:L (1 CONTEXT 0 NODE)) @H g ¹HI @d ²0¿@ H A ¹HI@ ¿@ °dHg ¹HIµé@ @A@(128 ANALYZE-TREE 113 META-EVALUATE 95 MV-CALL-ARG-EXPRS 88 ANALYZE-TREE 83 MV-CALL-FN 66 META-EVALUATE 60 LAMBDA-BODY 51 MV-CALL-FN 42 LAMBDA-P 37 MV-CALL-FN 19 META-EVALUATE 9 MV-CALL-FN) (134 NODE 108 :MV 73 LAMBDA-NODE 26 MV-CALL-NODE 14 :ARGUMENT) () META-EVAL-MV-PROG1 :D8 (IL:L (1 CONTEXT 0 NODE)) Í @ ÁHZA ¹JI¿H°d\g »LK¿µìH^ ½NM¿A_dgðœ¿gH gð™HH Ogð©Ogð´C@AH ²/@_¿H__¿H __¿Ob¿OO¿OO@gOo(202 IL:ECASE-FAIL 161 LAST 156 PROGN-STMTS 136 PROGN-P 100 CONSTRUCT-PROG1-TREE 83 MAKE-PROGN 55 EXPAND-NESTED-PROGNS 38 META-EVALUATE 17 META-EVALUATE 5 MV-PROG1-STMTS) (190 CONTEXT 126 NODE 117 :MV 108 :RETURN 89 :ARGUMENT 77 :STMTS 69 :EFFECT 33 :EFFECT) ( 197 (:EFFECT :ARGUMENT :RETURN :MV)) META-EVAL-OPCODES :D8 (IL:L (1 CONTEXT 0 NODE)) @ @A@(5 ANALYZE-TREE) (11 NODE) () META-EVAL-PROGN :D8 (IL:L (1 CONTEXT 0 NODE)) @ °.dd³HA ¹HI°Hg ¹HIµÓ@ @H ¹HI@ AH\µIHµ$°3 ”Ld‘‹L»JµKhZ¹L°ÙK&º°ù¤Hbˆ@H¿@A@(116 LITERAL-P 92 PROGN-STMTS 75 EXPAND-NESTED-PROGNS 70 PROGN-STMTS 60 ANALYZE-TREE 45 META-EVALUATE 23 META-EVALUATE 5 PROGN-STMTS) (166 NODE 155 PROGN-NODE 82 PROGN-NODE 40 :EFFECT) () META-EVAL-PROGV :D8 (IL:L (1 CONTEXT 0 NODE)) k@H g ¹HI@H g ¹HI @H A ¹HI@ @A@(94 ANALYZE-TREE 77 META-EVALUATE 71 PROGV-STMT 50 META-EVALUATE 40 PROGV-VALS-EXPR 19 META-EVALUATE 9 PROGV-SYMS-EXPR) (100 NODE 84 PROGV-NODE 57 PROGV-NODE 45 :ARGUMENT 26 PROGV-NODE 14 :ARGUMENT) () META-EVAL-RETURN :D8 (IL:L (1 CONTEXT 0 NODE)) 7@H @ ¹HI @ @A@(42 ANALYZE-TREE 25 META-EVALUATE 20 BLOCK-CONTEXT 15 RETURN-BLOCK 9 RETURN-VALUE) (48 NODE 32 RETURN-NODE) () META-EVAL-SETQ :D8 (IL:L (1 CONTEXT 0 NODE)) 1@H g ¹HI @ @A@(36 ANALYZE-TREE 19 META-EVALUATE 9 SETQ-VALUE) (42 NODE 26 SETQ-NODE 14 :ARGUMENT) () META-EVAL-TAGBODY :D8 (IL:L (1 CONTEXT 0 NODE)) B@ °'dÉ°dHg ¹HIµéµÚ@ @A@(53 ANALYZE-TREE 34 META-EVALUATE 5 TAGBODY-SEGMENTS) (59 NODE 29 :EFFECT 14 SEGMENT) () META-EVAL-THROW :D8 (IL:L (1 CONTEXT 0 NODE)) P@H g ¹HI@H g ¹HI @ @A@(67 ANALYZE-TREE 50 META-EVALUATE 40 THROW-VALUE 19 META-EVALUATE 9 THROW-TAG) (73 NODE 57 THROW-NODE 45 :MV 26 THROW-NODE 14 :ARGUMENT) () META-EVAL-UNWIND-PROTECT :D8 (IL:L (1 CONTEXT 0 NODE)) P@H g ¹HI@H g ¹HI @ @A@(67 ANALYZE-TREE 50 META-EVALUATE 40 UNWIND-PROTECT-CLEANUP 19 META-EVALUATE 9 UNWIND-PROTECT-STMT) (73 NODE 57 UNWIND-PROTECT-NODE 45 :ARGUMENT 26 UNWIND-PROTECT-NODE 14 :ARGUMENT) () META-EVAL-VAR-REF :D8 (IL:L (1 CONTEXT 0 NODE)) &Agð›@ o@ @A@(25 ANALYZE-TREE 13 RELEASE-VAR-REF) (31 NODE 5 :EFFECT) ( 18 #.*LITERALLY-NIL*) META-CALL-LAMBDA :D8 (IL:L (1 CONTEXT 0 NODE) IL:P 1 *MADE-CHANGES*) ò@ Hd lð‘@ ³+H ³#H ³@ H ÿ³Q@d ¿I¨@A@[ g ºKJ ¿@ °d]g ¼ML¿µì@ @@ H "Oµˆ_¿Oµ2O’±éH b¿Hh¿Hh¿H ¿iY±ß_ ¿OdÉgð³¿OdÉ¿OÉ ²OO_¿O O_¿h°li¹O É˜O °YO¨O O_°MOµ1OO h _ _¿O_¿O¾ON°O OhO"O$O&O_¿O_¿O_¿±ÿHO ¿@O ¿O²g@O b¿I¨@A@(479 MAKE-PROGN 474 NREVERSE 453 NREVERSE 437 NREVERSE 366 PROGN-STMTS 361 LAMBDA-BODY 356 CALL-FN 349 CONSTRUCT-PROG1-TREE 319 RELEASE-TREE 229 RELEASE-TREE 200 LAMBDA-BODY 169 LAMBDA-REQUIRED 163 CALL-ARGS 154 META-CALL-LAMBDA-SUBSTITUTE 139 META-EVALUATE 124 CALL-ARGS 107 META-EVALUATE 97 CALL-FN 76 META-CALL-LAMBDA-SIMPLIFY-PARAMETERS 66 LENGTH 61 LAMBDA-REQUIRED 55 LENGTH 50 CALL-ARGS 42 LAMBDA-REST 34 LAMBDA-KEYWORD 26 LAMBDA-OPTIONAL 15 LAMBDA-ARG-TYPE 5 CALL-FN) (491 NODE 465 :STMTS 446 CALL-NODE 430 LAMBDA-NODE 309 NODE 277 VARIABLE-STRUCT 266 VARIABLE-STRUCT 254 :SPECIAL 247 VARIABLE-STRUCT 219 LAMBDA-NODE 209 LAMBDA-NODE 134 :ARGUMENT 114 CALL-NODE 102 :ARGUMENT 86 NODE) () META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 :D8 (IL:L (1 ARG 0 PARAM) IL:F 0 NEW-PARAMS IL:F 1 NEW-ARGS IL:F 2 INNERMOST-LAMBDA) @PcAQc@RRNIL (15 VARIABLE-STRUCT) () META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0002 :D8 (IL:F 0 NEW-PARAMS IL:F 1 NEW-ARGS IL:F 2 INNERMOST-LAMBDA IL:F 3 INNERMOST-CALL) $RP SQ hcdc(25 NREVERSE 11 NREVERSE) (19 CALL-NODE 5 LAMBDA-NODE) () META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0003 :D8 (IL:F 2 INNERMOST-LAMBDA IL:F 3 INNERMOST-CALL) 5gR gH ¹RIHcIc(34 MAKE-CALL 20 MAKE-LAMBDA 15 LAMBDA-BODY 4 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0002) (41 LAMBDA-NODE 28 :FN 9 :BODY) () META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0004 :D8 (IL:F 0 INNERMOST-LAMBDA IL:F 1 FN) PQðNIL NIL () META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0005 :D8 NIL ´(11 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0003 4 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0004) NIL () META-CALL-LAMBDA-SIMPLIFY-PARAMETERS :D8 (IL:L (0 NODE) IL:P 31 NEW-PARAMS IL:P 30 NEW-ARGS IL:P 29 INNERMOST-LAMBDA IL:P 28 INNERMOST-CALL IL:P 0 FN IL:F 39 *MADE-CHANGES*) ï'@ ñÀ@ ¹@@_8¿H_:¿hºH \³H ¢±·H ±“I³'oo ¿Ldo ¿µñ°ÇLI»I¹K ¿L°°d¾I³$¿NN ¿N²9No°(NI½I¹M ¿N ¿NžNo ¿µªHh¿Hh¿icN¿H ²"I_µi³h ¢h°ïO°ãH ²o¿0"I°"gH _@¿OBµ O@h_D‚O@&_B¿µßODZ²,HH J ¿@@ I ¿Hh¿icN¿H _(¢±7J²wO(J_¿h___¿OµO ±ú_¿gO _¿O_¿OOÉ_¿OO¿O_¿O˜OO&_¿ˆOh__¿O_°I®O(o ±’žO(I °|gH _&¿gO& _$¿HH O&h ¿@@ I h ¿O(O$ ¿O&_"¿O$O"É_ ¿O"O ¿hY¿Hh¿Hh¿icN¿H ¢±úH _4µHh¿hY±á_6_2¿JI"&OF_L¿OHµFh_0¿gO0 _.¿O0³U¿O6O6 ¿O6¢±O6o°y_J¿OL´¶O2OJ ð•OL°¥OH_H¿OL°¿O6O. ¿O0_,¿O.O,É_*¿O,O*¿O6 ¿O6²O6o ¿O4±ÿI² oo ¿Iˆd ¿µöi(1003 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0002 993 RELEASE-TREE 983 COMPILER-CERROR 958 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 933 RELEASE-TREE 890 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 878 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0005 852 LITERAL-VALUE 810 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 795 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0003 783 MAKE-VAR-REF 724 LAMBDA-KEYWORD 714 LAMBDA-KEYWORD 648 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 636 IL:\\NCONC2 629 CONSTRUCT-LIST 623 CALL-ARGS 608 IL:\\NCONC2 599 LAMBDA-REQUIRED 584 MAKE-VAR-REF 569 MAKE-VARIABLE 556 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 551 CONSTRUCT-LIST 542 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0004 534 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 452 MAKE-VAR-REF 433 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 428 CONSTRUCT-LIST 394 LAMBDA-REST 371 APPEND 365 CALL-ARGS 350 APPEND 344 LAMBDA-REQUIRED 302 MAKE-VARIABLE 284 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0005 277 LAMBDA-KEYWORD 261 LITERAL-P 253 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0002 237 LAMBDA-KEYWORD 202 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 182 RELEASE-TREE 173 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 141 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 130 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0003 114 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 93 META-CALL-LAMBDA-SIMPLIFY-PARAMETERSA0001 78 COMPILER-CERROR 57 LAMBDA-OPTIONAL 47 LAMBDA-OPTIONAL 37 LAMBDA-REQUIRED 17 CALL-ARGS 5 CALL-FN) (918 VARIABLE-STRUCT 905 VARIABLE-STRUCT 776 :VARIABLE 735 LAMBDA-NODE 700 NODE 690 LAMBDA-NODE 676 VARIABLE-STRUCT 663 VARIABLE-STRUCT 617 CALL-NODE 593 LAMBDA-NODE 577 :VARIABLE 563 :BINDER 482 VARIABLE-STRUCT 469 VARIABLE-STRUCT 445 :VARIABLE 380 NODE 359 CALL-NODE 338 LAMBDA-NODE 296 :BINDER 223 NODE 213 LAMBDA-NODE) ( 978 "Too many arguments were given to an inline LAMBDA call." 973 "Ignore the extra arguments" 953 #.*LITERALLY-T* 832 #.*LITERALLY-NIL* 529 #.*LITERALLY-NIL* 197 #.*LITERALLY-T* 157 #.*LITERALLY-NIL* 88 #.*LITERALLY-NIL* 73 "Too few arguments given for explicit LAMBDA call." 68 "Use NIL for the remaining parameters.") CONSTRUCT-LIST :D8 (IL:L (0 ARGS)) ]o@ °Id¹gggggggg gIHh¸µ¸H(84 MAKE-CALL 69 MAKE-VAR-REF 64 MAKE-VARIABLE 13 REVERSE) (74 :ARGS 58 CONS 53 :NAME 48 :GLOBAL 43 :SCOPE 38 :FUNCTION 33 :KIND 28 :VARIABLE 23 :FN) ( 4 #.*LITERALLY-NIL*) META-CALL-LAMBDA-SUBSTITUTE :D8 (IL:L (0 NODE) IL:P 11 *SUBST-OCCURRED* IL:F 16 *MADE-CHANGES*) @ ¡ H ¹h]¾Ih¼[µ@Édgð§dgð’¿i¿h³Q @ QiicH@(55 RELEASE-TREE 46 COPY-CODE 6 VAR-REF-VARIABLE) (61 NODE 31 :RETURN 23 :MV 15 NODE) () META-SUBST-ANY-CALL :D8 (IL:L (2 ARGS 1 FN 0 NODE) IL:F 3 *SUBST-EXPR*) cSA ²B!Hµ8A —Ai ¿AÉ²g B ˜@h@Zh ¹JI¿SH ²ÄHX°®(90 PASSABLE 77 META-SUBST 57 IL:%NOTEVERY-SINGLE 51 SYMBOL-FUNCTION 29 META-SUBST-LAMBDA 21 LAMBDA-P 6 PASSABLE) (64 NODE 46 NODE-META-P 37 NODE) () META-SUBST-STMTSA0001 :D8 (IL:L (0 BARRIER) IL:F 0 TAIL) P@ (7 PASSABLE) NIL () META-SUBST-STMTS :D8 (IL:L (2 FINAL-STMT-IMMOVABLE 1 STMTS-LIST 0 NODE) IL:P 8 *SUBST-OCCURRED* IL:P 0 TAIL IL:F 9 *SUBST-EXPR* IL:F 10 *SUBST-OCCURRED*) Ë AqB’H€H³HH²'J³$H\h »LK¿HÉ©@h¿I J H Jhð$gJ ²bH^h ½NM¿O_¿HW ²HI¹J£O²,@h° O²JHh º@h„HJZ¿Oµˆc¿„HJºH¸±ÿ=(163 IL:\\NCONC2 125 PASSABLE 106 META-SUBST 92 IL:%EVERY-SINGLE 74 IL:\\NCONC2 69 IL:\\NCONC2 63 REVERSE 57 REVERSE 26 META-SUBST) (170 NODE 144 NODE 86 META-SUBST-STMTSA0001 47 NODE 38 NODE) () TEST-META-EVALA0001 :D8 (IL:NAME SI::*UNWIND-PROTECT* IL:I 0 SI::*CLEANUP-FORMS* IL:F 0 TREE) P (10 PRINT-TREE 5 META-EVALUATE) NIL () TEST-META-EVALA0002 :D8 (IL:F 0 TREE) P (5 RELEASE-TREE) NIL () TEST-META-EVAL :D8 (IL:L (0 FN) IL:P 0 TREE) $@ g H ¿$(29 RELEASE-TREE 23 IL:\\MVLIST 18 TEST-META-EVALA0001 5 TEST-ALPHA-2) (13 TEST-META-EVALA0002) () (IL:PUTPROPS IL:XCLC-META-EVAL IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:XCLC-META-EVAL IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "COMPILER" (:USE "LISP" "XCL")))) (IL:PUTPROPS IL:XCLC-META-EVAL IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1989 1990 1991 1992 1993)) NIL