(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "26-Jan-98 13:57:27" ("compiled on " IL:|{DSK}disk2>jdstools>lc3>lispcore3.0>sources>XCLC-ANNOTATE.;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 "18-May-90 01:28:45" IL:|{DSK}local>lde>lispcore>sources>XCLC-ANNOTATE.;2| 28066 IL:|changes| IL:|to:| (IL:VARS IL:XCLC-ANNOTATECOMS) IL:|previous| IL:|date:| " 3-May-88 17:43:47" IL:|{DSK}local>lde>lispcore>sources>XCLC-ANNOTATE.;1|) (IL:RPAQQ IL:XCLC-ANNOTATECOMS ((IL:* IL:|;;| "Annotation of the program tree") (IL:FUNCTIONS ANNOTATE-TREE) (IL:* IL:|;;| "Frame Annotation") (IL:VARIABLES *REFERENCES*) (IL:FUNCTIONS FRAME-ANNOTATE CLOSE-OVER) (IL:FUNCTIONS FRAME-ANNOTATE-BLOCK FRAME-ANNOTATE-CALL FRAME-ANNOTATE-CATCH FRAME-ANNOTATE-GO FRAME-ANNOTATE-IF FRAME-ANNOTATE-LABELS FRAME-ANNOTATE-LAMBDA FRAME-ANNOTATE-LITERAL FRAME-ANNOTATE-MV-CALL FRAME-ANNOTATE-MV-PROG1 FRAME-ANNOTATE-OPCODES FRAME-ANNOTATE-PROGN FRAME-ANNOTATE-PROGV FRAME-ANNOTATE-RETURN FRAME-ANNOTATE-SETQ FRAME-ANNOTATE-TAGBODY FRAME-ANNOTATE-THROW FRAME-ANNOTATE-UNWIND-PROTECT FRAME-ANNOTATE-VAR-REF) (IL:* IL:|;;| "Closure annotation") (IL:VARIABLES *NEED-STORAGE*) (IL:FUNCTIONS CLOSURE-ANNOTATE) ( IL:I.S.OPRS UNIONING) (IL:FUNCTIONS CLOSURE-ANNOTATE-BLOCK CLOSURE-ANNOTATE-CALL CLOSURE-ANNOTATE-CATCH CLOSURE-ANNOTATE-GO CLOSURE-ANNOTATE-IF CLOSURE-ANNOTATE-LABELS CLOSURE-ANNOTATE-LAMBDA CLOSURE-ANNOTATE-LITERAL CLOSURE-ANNOTATE-MV-CALL CLOSURE-ANNOTATE-MV-PROG1 CLOSURE-ANNOTATE-OPCODES CLOSURE-ANNOTATE-PROGN CLOSURE-ANNOTATE-PROGV CLOSURE-ANNOTATE-RETURN CLOSURE-ANNOTATE-SETQ CLOSURE-ANNOTATE-TAGBODY CLOSURE-ANNOTATE-THROW CLOSURE-ANNOTATE-UNWIND-PROTECT CLOSURE-ANNOTATE-VAR-REF) (IL:* IL:|;;| "Testing annotation ") (IL:FUNCTIONS TEST-ANNOTATION) (IL:* IL:|;;| "Arrange to use the proper compiler.") (IL:PROP IL:FILETYPE IL:XCLC-ANNOTATE) (IL:* IL:|;;| "Arrange for the proper makefile-environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCLC-ANNOTATE))) ANNOTATE-TREE :D8 (IL:L (0 TREE)) @ @h @(12 CLOSURE-ANNOTATE 5 FRAME-ANNOTATE) NIL () (PROCLAIM (QUOTE (SPECIAL *REFERENCES*))) (OR (BOUNDP (QUOTE *REFERENCES*)) (SETQ *REFERENCES* NIL)) (IL:SET-DOCUMENTATION (QUOTE *REFERENCES*) (QUOTE VARIABLE) "A list of pairs representing references to blippers below this point. Used in frame analysis." ) FRAME-ANNOTATE :D8 (IL:L (0 NODE)) 4@d¢±!HYZdÃ—¿H dÃ—¿H Ã–H JdÃ—¿H Ã–H JdÃ—¿H Ã–H JdÃ—¿H Ã–H JdÃ—¿H Ã–H JdÃ—¿H Ã–H JdÃ—¿H Ã–H JdÃ—¿H Ã–H JdÃ—¿H Ã´ H gIoh (305 IL:CHECK-TYPE-FAIL 286 FRAME-ANNOTATE-BLOCK 272 FRAME-ANNOTATE-CALL 256 FRAME-ANNOTATE-CATCH 243 FRAME-ANNOTATE-GO 227 FRAME-ANNOTATE-IF 214 FRAME-ANNOTATE-LABELS 198 FRAME-ANNOTATE-LAMBDA 185 FRAME-ANNOTATE-LITERAL 169 FRAME-ANNOTATE-MV-CALL 156 FRAME-ANNOTATE-MV-PROG1 140 FRAME-ANNOTATE-OPCODES 127 FRAME-ANNOTATE-PROGN 111 FRAME-ANNOTATE-PROGV 98 FRAME-ANNOTATE-RETURN 82 FRAME-ANNOTATE-SETQ 69 FRAME-ANNOTATE-TAGBODY 53 FRAME-ANNOTATE-THROW 40 FRAME-ANNOTATE-UNWIND-PROTECT 25 FRAME-ANNOTATE-VAR-REF) (292 $$NODE$$ 278 BLOCK-NODE 264 CALL-NODE 249 CATCH-NODE 235 GO-NODE 220 IF-NODE 206 LABELS-NODE 191 LAMBDA-NODE 177 LITERAL-NODE 162 MV-CALL-NODE 148 MV-PROG1-NODE 133 OPCODES-NODE 119 PROGN-NODE 104 PROGV-NODE 90 RETURN-NODE 75 SETQ-NODE 61 TAGBODY-NODE 46 THROW-NODE 32 UNWIND-PROTECT-NODE 17 VAR-REF-NODE) ( 298 (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))) CLOSE-OVER :D8 (IL:L (0 REFERENCE)) Z@!HdÃ²'¿@@ ºYi IJ iiÃ´@i ioHoh (87 IL:CHECK-TYPE-FAIL 40 FIND-SEGMENT 23 GO-TAG) (64 BLOCK-NODE 55 RETURN-NODE 45 SEGMENT 30 TAGBODY-NODE 11 GO-NODE) ( 80 (OR GO-NODE RETURN-NODE) 74 (CAR REFERENCE)) FRAME-ANNOTATE-BLOCKA0001 :D8 (IL:L (0 REFERENCE) IL:F 0 SELF) P@ðNIL NIL () FRAME-ANNOTATE-BLOCK :D8 (IL:P 3 *REFERENCES* IL:I 0 SELF IL:F 4 *REFERENCES*) {0@ ¹gK ¸@ ²:I°$dZi¿JÉˆd ¿µöµÝ@H ¿I“@h¹HTggcI(117 NUNION 89 COPY-LIST 68 CLOSE-OVER 35 BLOCK-CLOSED-OVER-P 28 DELETE-IF 16 FRAME-ANNOTATE 11 BLOCK-STMT) (112 EQUAL 107 :TEST 83 BLIPPER 58 BLIPPER 48 BLIPPER 22 FRAME-ANNOTATE-BLOCKA0001) () FRAME-ANNOTATE-CALL :D8 (IL:L (0 SELF)) X@d ¿@ i ‰ 0@ °d X–IµHZY¿µíJ YH°ë(81 LAST 75 IL:\\NCONC2 54 FRAME-ANNOTATE 45 CALL-ARGS 36 FRAME-ANNOTATE 31 CALL-FN 25 FRAME-ANNOTATE-LAMBDA 19 CALL-FN 11 LAMBDA-P 6 CALL-FN) NIL () FRAME-ANNOTATE-CATCH :D8 (IL:L (0 SELF) IL:P 2 *REFERENCES* IL:F 3 *REFERENCES*) k @ °$dYi¿IÉˆd ¿µöµÝJ¸@J HSggc@d (103 FRAME-ANNOTATE 98 CATCH-TAG 89 NUNION 69 COPY-LIST 46 CLOSE-OVER 16 FRAME-ANNOTATE 11 CATCH-STMT) (84 EQUAL 79 :TEST 63 BLIPPER 36 BLIPPER 26 BLIPPER) () FRAME-ANNOTATE-GO :D8 (IL:L (0 SELF) IL:F 0 *REFERENCES*) @d Pggch(23 ADJOIN 6 GO-TAGBODY) (18 EQUAL 13 :TEST) () FRAME-ANNOTATE-IF :D8 (IL:L (0 SELF)) -@ @ @ (42 IL:\\NCONC2 37 IL:\\NCONC2 32 FRAME-ANNOTATE 27 IF-ELSE 21 FRAME-ANNOTATE 16 IF-THEN 10 FRAME-ANNOTATE 5 IF-PRED) NIL () FRAME-ANNOTATE-LABELS :D8 (IL:L (0 SELF)) ?0@ °d X–IµHZY¿µìJ@ YH°à(56 LAST 50 IL:\\NCONC2 45 FRAME-ANNOTATE 40 LABELS-BODY 18 FRAME-ANNOTATE 8 LABELS-FUNS) NIL () FRAME-ANNOTATE-LAMBDA :D8 (IL:L (1 FUNCTIONAL-POSITION-P 0 SELF) IL:P 3 *REFERENCES* IL:F 10 *REFERENCES*) æ @Ahðµ#@ µ@ µ@ µ@ lð 00@ °d \–MµL^]¿µëN0 @ °& ]L°æd _šOµ4O__¿µåO@ º@ ²!hY¸K° _O°Êd ¿µöƒJ¹K¸HWggcI(224 NUNION 195 CLOSE-OVER 181 LAST 168 LAMBDA-NEW-FRAME-P 161 IL:\\NCONC2 156 IL:\\NCONC2 151 FRAME-ANNOTATE 146 LAMBDA-BODY 118 FRAME-ANNOTATE 103 LAST 96 LAMBDA-KEYWORD 71 FRAME-ANNOTATE 60 LAMBDA-OPTIONAL 40 LAMBDA-ARG-TYPE 32 LAMBDA-OPTIONAL 24 LAMBDA-REST 16 LAMBDA-KEYWORD) (219 EQUAL 214 :TEST 5 LAMBDA-NODE) () FRAME-ANNOTATE-LITERAL :D8 (IL:L (0 SELF)) hNIL NIL () FRAME-ANNOTATE-MV-CALL :D8 (IL:L (0 SELF)) >@ 0@ °d X–IµHZY¿µíJ YH°ë(55 LAST 49 IL:\\NCONC2 28 FRAME-ANNOTATE 19 MV-CALL-ARG-EXPRS 10 FRAME-ANNOTATE 5 MV-CALL-FN) NIL () FRAME-ANNOTATE-MV-PROG1 :D8 (IL:L (0 SELF)) -0@ °d X–IµHZY¿µíJ YH°ñ(38 LAST 17 FRAME-ANNOTATE 8 MV-PROG1-STMTS) NIL () FRAME-ANNOTATE-OPCODES :D8 (IL:L (0 SELF)) hNIL NIL () FRAME-ANNOTATE-PROGN :D8 (IL:L (0 SELF)) -0@ °d X–IµHZY¿µíJ YH°ñ(38 LAST 17 FRAME-ANNOTATE 8 PROGN-STMTS) NIL () FRAME-ANNOTATE-PROGV :D8 (IL:L (0 SELF)) -@ @ @ (42 IL:\\NCONC2 37 IL:\\NCONC2 32 FRAME-ANNOTATE 27 PROGV-STMT 21 FRAME-ANNOTATE 16 PROGV-VALS-EXPR 10 FRAME-ANNOTATE 5 PROGV-SYMS-EXPR) NIL () FRAME-ANNOTATE-RETURN :D8 (IL:L (0 SELF) IL:F 0 *REFERENCES*) '@d Pggc@ (36 FRAME-ANNOTATE 31 RETURN-VALUE 23 ADJOIN 6 RETURN-BLOCK) (18 EQUAL 13 :TEST) () FRAME-ANNOTATE-SETQ :D8 (IL:L (0 SELF)) @ (10 FRAME-ANNOTATE 5 SETQ-VALUE) NIL () FRAME-ANNOTATE-TAGBODYA0001 :D8 (IL:L (0 REFERENCE) IL:F 0 SELF) P@ðNIL NIL () FRAME-ANNOTATE-TAGBODY :D8 (IL:P 4 *REFERENCES* IL:I 0 SELF IL:F 11 *REFERENCES*) Ó@0@ °;dº0 JÉ°d _šOµ