(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-98 14:27:01" ("compiled on " {DSK}medley3.5>lispusers>compilebang.;1) "31-Jan-98 19:10:48" tcompl'd in "Medley 3.5 PARC Full Sysout 12-Nov-98 ..." dated "12-Nov-98 12:21:33") (FILECREATED "22-Dec-86 18:42:34" {ERIS}LISPCORE>COMPILEBANG.;3 3465 changes to%: (FNS COMPILE!) previous date%: "18-Nov-86 22:23:43" {ERIS}LISPCORE>COMPILEBANG.;2) COMPILE!A0001 :D8 (NAME SI::*UNWIND-PROTECT* P 12 LCFIL P 11 NOFIXVARSLST P 10 NOFIXFNSLST P 9 LAMA P 8 LAMS P 7 NLAML P 6 NLAMA P 5 LOCALVARS P 4 SPECVARS P 3 LSTFIL P 2 SVFLG P 1 STRF P 0 LAPFLG I 0 SI::*CLEANUP-FORMS* F 13 X F 14 LOCALVARS F 15 PRINTLAP F 16 BYTECOMPFLG F 17 NOFIXFNSLST F 18 NOREDEFINE F 19 NOSAVE F 20 NLAMA F 21 NOFIXVARSLST F 22 NLAML F 23 LAMS F 24 LAMA) t W´ W ‘ilW$hðW&hðidWið¬`W „`W(W,W.W0W"W*Wd3@ð’W„gWd§i ° ’W‹ghWhi(113 COMPILE1 91 ARGTYPE 84 VIRGINFN 37 UNION) (100 LAMBDA 73 *DUMMY-COMPILED-FUNCTION* 43 SYSLOCALVARS 30 SYSLOCALVARS) () COMPILE! :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 PRINTLAP I 2 NOREDEFINE I 1 NOSAVE I 0 X F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 COMPILE!A0001) (8 SI::RESETUNWIND) () (PRETTYCOMPRINT COMPILEBANGCOMS) (RPAQQ COMPILEBANGCOMS ((FNS COMPILE!) (LISPXMACROS C) (USERMACROS C) (COMMANDS C) (PROP FILETYPE COMPILEBANG))) (ADDTOVAR LISPXMACROS (C (COND (LISPXLINE (COMPILE! (CAR LISPXLINE) NIL NIL T)) (T C)))) (ADDTOVAR USERMACROS (C NIL (ORR (UP 1) NIL) (ORR ((E (COMPILE! (OR (LISTP (%##)) (%## !0)) T T T))) ( (E (QUOTE C?)))))) (ADDTOVAR EDITCOMSA C) (DEFCOMMAND (C :EVAL) (&REST LISPXLINE) (COND (LISPXLINE (COMPILE! (CAR LISPXLINE) NIL NIL T)) (T C))) (PUTPROPS COMPILEBANG FILETYPE CL:COMPILE-FILE) (PUTPROPS COMPILEBANG COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1986)) NIL