(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 17:37:48" ("compiled on " {DSK}sources>MACROS.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 20:28:24" {DSK}local>lde>lispcore>sources>MACROS.;2 35869 changes to%: ( VARS MACROSCOMS) previous date%: "17-Feb-88 14:13:34" {DSK}local>lde>lispcore>sources>MACROS.;1) (RPAQQ MACROSCOMS ((OPTIMIZERS ADD1 CONSTANT DEFERREDCONSTANT EVENP GEQ IGEQ ILEQ IMAX IMIN LEQ LIST* NCONC1 NEQ NLISTP ODDP RPTQ SELECT SELECTC SETQQ SUB1 ZEROP) (PROP MACRO RESETBUFS FLESSP PROG2 SIGNED UNSIGNED) (COMS (* ; "obsolete Interlisp macro functions") (FNS EXPANDMACRO MACROEXPANSION EXPAND-DEFMACRO COMPUTE-MACRO-ARGS MACROS.GETDEF GETMACROPROP EXPANDOPENLAMBDA) (GLOBALVARS NOFIXFNSLST BYTECOMPFLG CLISPARRAY BYTEMACROPROP)) (PROP MACRO LOADTIMECONSTANT) (FUNCTIONS CSELECT) ( COMS (FNS PRINTCOMSTRAN) (GLOBALVARS COMMENTFLG LCASEFLG PRINTOUTMACROS) (ADDVARS (PRINTOUTMACROS)) ( VARS PRINTOUTTOKENS) (PROP INFO PRINTOUT printout) (PROP MACRO PRINTOUT printout)) (ADDVARS * (LIST ( CONS (QUOTE SYSPROPS) MACROPROPS))) (PROP PROPTYPE * (PROGN MACROPROPS)) (PROP SETFN GETTOPVAL) (PROP FILETYPE MACROS) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML ) (LAMA))))) optimize-ADD1 :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHoNIL (10 IPLUS) ( 16 (1)) (PUTPROP (QUOTE ADD1) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-ADD1) (GET (QUOTE ADD1) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-CONSTANT :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 7@gH Y Iddi3 gIhgH(21 CONSTANTOK 15 APPLY) (50 LOADTIMECONSTANT 40 QUOTE 9 PROG1) () (PUTPROP (QUOTE CONSTANT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-CONSTANT) (GET ( QUOTE CONSTANT) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-DEFERREDCONSTANT :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) W@googoggggHhhohooNIL (50 EVQ 45 MACROX 40 FRPLACA 35 FRPLACD 25 OR 10 CL:LAMBDA) ( 83 ((LOADTIMECONSTANT (CONS NIL NIL))) 74 ((CAR MACROX)) 63 (T) 30 (CDR MACROX) 20 (DECLARE (LOCALVARS MACROX)) 15 (MACROX)) (PUTPROP (QUOTE DEFERREDCONSTANT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-DEFERREDCONSTANT) (GET (QUOTE DEFERREDCONSTANT) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-EVENP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) )@!HHlgjgIJhhNIL (25 IMOD 19 EQ) () (PUTPROP (QUOTE EVENP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-EVENP) (GET ( QUOTE EVENP) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-GEQ :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@!HHggIJhhNIL (21 LESSP 16 NOT) () (PUTPROP (QUOTE GEQ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-GEQ) (GET (QUOTE GEQ) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-IGEQ :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@!HHggIJhhNIL (21 ILESSP 16 NOT) () (PUTPROP (QUOTE IGEQ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-IGEQ) (GET (QUOTE IGEQ) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-ILEQ :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@!HHggIJhhNIL (21 IGREATERP 16 NOT) () (PUTPROP (QUOTE ILEQ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-ILEQ) (GET (QUOTE ILEQ) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-IMAX :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) X@aHdHhhH[dKhhKJgMgIhNggILhNgILhNIL (79 IMAX2 64 IMAX2 59 IMAX 46 FIX 38 MIN.INTEGER) () (PUTPROP (QUOTE IMAX) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-IMAX) (GET (QUOTE IMAX) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-IMIN :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) X@aHdHhhH[dKhhKJgMgIhNggILhNgILhNIL (79 IMIN2 64 IMIN2 59 IMIN 46 FIX 38 MAX.INTEGER) () (PUTPROP (QUOTE IMIN) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-IMIN) (GET (QUOTE IMIN) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-LEQ :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@!HHggIJhhNIL (21 GREATERP 16 NOT) () (PUTPROP (QUOTE LEQ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-LEQ) (GET (QUOTE LEQ) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-LIST* :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) .@HddgHgHgHhNIL (36 LIST* 29 CONS 21 CONS) () (PUTPROP (QUOTE LIST*) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-LIST*) (GET ( QUOTE LIST*) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-NCONC1 :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@!HHgIgJhhNIL (22 CONS 16 NCONC) () (PUTPROP (QUOTE NCONC1) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-NCONC1) (GET (QUOTE NCONC1) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-NEQ :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@!HHggIJhhNIL (21 EQ 16 NULL) () (PUTPROP (QUOTE NEQ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-NEQ) (GET (QUOTE NEQ) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-NLISTP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ggHhhNIL (15 LISTP 10 NULL) () (PUTPROP (QUOTE NLISTP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-NLISTP) (GET (QUOTE NLISTP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-ODDP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHggIJhNIL (20 EVENP 15 NOT) () (PUTPROP (QUOTE ODDP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-ODDP) (GET (QUOTE ODDP) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-RPTQ :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) ^@!HHggIhooggogggJhohoNIL (65 PROGN 60 RPTV 55 SETQ 45 COND 40 RPTQLAB 20 RPTN 15 PROG) ( 86 ((RETURN RPTV)) 76 ((SETQ RPTN (SUB1 RPTN)) (GO RPTQLAB)) 50 (IGREATERP RPTN 0) 35 (DECLARE (LOCALVARS RPTN RPTV)) 29 (RPTV)) (PUTPROP (QUOTE RPTQ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-RPTQ) (GET (QUOTE RPTQ) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-SELECT :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 CSELECT) NIL () (PUTPROP (QUOTE SELECT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-SELECT) (GET (QUOTE SELECT) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-SELECTC :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) ?@1HHgI0J!d[d KMLh^L&N(34 EVAL) (15 SELECTQ) () (PUTPROP (QUOTE SELECTC) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-SELECTC) (GET ( QUOTE SELECTC) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-SETQQ :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@!HHgIgJhhNIL (22 QUOTE 16 SETQ) () (PUTPROP (QUOTE SETQQ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-SETQQ) (GET (QUOTE SETQQ) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-SUB1 :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHoNIL (10 IDIFFERENCE) ( 16 (1)) (PUTPROP (QUOTE SUB1) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-SUB1) (GET (QUOTE SUB1) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-ZEROP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 9 (OPENLAMBDA (X) (COND ((EQ X 0)) ((FLOATP X) (\FZEROP X))))) (PUTPROP (QUOTE ZEROP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-ZEROP) (GET (QUOTE ZEROP) (QUOTE COMPILER:OPTIMIZER-LIST)))) (PUTPROPS RESETBUFS MACRO ((A . B) ((LAMBDA ($$BUFS) (DECLARE (LOCALVARS $$BUFS)) (PROG1 (PROGN A . B) (AND $$BUFS (BKBUFS $$BUFS)))) (PROGN (LINBUF) (SYSBUF) (CLBUFS NIL T READBUF))))) (PUTPROPS FLESSP MACRO (LAMBDA (X Y) (FGREATERP Y X))) (PUTPROPS PROG2 MACRO ((X . Y) (PROGN X (PROG1 . Y)))) (PUTPROPS SIGNED MACRO (ARGS (COND ((EQ COMPILE.CONTEXT (QUOTE EFFECT)) (CAR ARGS)) (T (CONS (QUOTE ( OPENLAMBDA (N WIDTH) (COND ((IGREATERP N (SUB1 (LLSH 1 (SUB1 WIDTH)))) (* done this way just so that ( SIGNED X |2^16|) doesn't box) (SUB1 (IDIFFERENCE N (SUB1 (LLSH 1 WIDTH))))) (T N)))) ARGS))))) (PUTPROPS UNSIGNED MACRO ((X WIDTH) (LOGAND X (SUB1 (LLSH 1 WIDTH))))) EXPANDMACROA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 EXP) Phi i (13 TERPRI 7 PRINTDEF) NIL () EXPANDMACRO :D8 (P 6 SI::*RESETFORMS* P 5 PCF P 4 NCF P 3 MACRODEF P 2 ALLFLG P 1 EFF P 0 VCF I 3 COMPILE.CONTEXT I 2 OPTIONS I 1 QUIETFLG I 0 EXP) CghCgB@BJg@d` ` b@` @dK bJA@gi hhhg $h(131 SI::RESETUNWIND 126 \MVLIST 121 EXPANDMACROA0001 101 OUTPUT 79 MACROEXPANSION 70 GETMACROPROP 54 GETHASH 43 GETHASH) (116 SI::RESETUNWIND 95 OUTPUT 65 COMPILERMACROPROPS 49 CLISPARRAY 38 CLISPARRAY 28 CLISP 14 EFFECT 5 EFFECT) () MACROEXPANSION :D8 (P 5 PREDF P 4 PCF P 3 NCF P 2 VCF P 1 EFF P 0 EXP I 3 COMPILE.CONTEXT I 2 COMPFLG I 1 MACRODEF I 0 EXPR)  AAAdgAdgdgA@dgA@dgA@ dgdggA@ Ad@AdgA d3@iAd`BgA@ %@CgCgh3gA@ bdgdggo@ @(261 CL:WARN 222 APPLY 186 APPLY 150 SUBPAIR 118 EXPAND-DEFMACRO 80 EXPANDOPENLAMBDA) (247 COMPILER:PASS 239 COMPILER:PASS 231 IGNOREMACRO 213 NLAMBDA 202 EFFECT 195 EFFECT 177 NLAMBDA 166 LAMBDASPLST 139 PROGN 108 DEFMACRO 98 APPLY* 87 APPLY 69 OPENLAMBDA 55 = 41 NLAMBDA 33 LAMBDA 20 PROGN) ( 254 "Macroexpansion of ~S produced COMPILER:PASS. This should probably be an optimizer.") EXPAND-DEFMACROA0001 :D8 (F 0 DEF) gP (12 EVAL) (4 PROGN) () EXPAND-DEFMACRO :D8 (L (2 DEFAULT-VALUE 1 FORM) P 3 *MACRO-VALS* P 2 *MACRO-VARS* P 1 *MACRO-DEFAULT* P 0 *MACRO-FORM* I 0 DEF) &AB"@Ah JKg dgA(26 \DO.PROGV 14 COMPUTE-MACRO-ARGS) (32 IGNOREMACRO 21 EXPAND-DEFMACROA0001) () COMPUTE-MACRO-ARGS :D8 (L (2 CONTEXT 1 MACRO-CALL-BODY 0 ARGUMENT-LIST) F 6 *MACRO-VARS* F 7 *MACRO-VALS* F 8 *MACRO-FORM* F 9 *MACRO-DEFAULT*) ?@d@Vc AWc@dgdg"@Ah @Agbbbdg'@Wg @Agbbbdg'@hg @Agbbbcdg@AgbbbGdg@Agbbb*g@bdd%dgdgdghb@QH HHHHdH AY6hM HJL g @bJig KIIBdge@P@!HHA IIhg @J gI@Ah hig AK@WgEg)@!dHd H g Ao@ @Ah @Abb(560 COMPUTE-MACRO-ARGS 549 ERROR 528 COMPUTE-MACRO-ARGS 518 EVAL 470 COMPUTE-MACRO-ARGS 456 COMPUTE-MACRO-ARGS 436 EVAL 426 COMPUTE-MACRO-ARGS 363 COMPUTE-MACRO-ARGS 339 COMPUTE-MACRO-ARGS 329 EVAL 308 MAKE-KEYWORD 136 COMPUTE-MACRO-ARGS 92 COMPUTE-MACRO-ARGS 46 COMPUTE-MACRO-ARGS) (523 ONE 493 AUX 486 ONE 465 ONE 441 ONE 421 ONE 386 OPTIONAL 358 ONE 334 ONE 260 &AUX 252 &ALLOW-OTHER-KEYS 244 &REST 222 &KEY 206 AUX 194 &AUX 177 OPTIONAL 165 &OPTIONAL 145 AUX-ONLY 131 ONE 119 &ENVIRONMENT 101 AUX-ONLY 87 ONE 73 &WHOLE 55 AUX-ONLY 32 &BODY 24 &REST) ( 543 "macro body missing value for") MACROS.GETDEF :D8 (I 2 OPTIONS I 1 TYPE I 0 NAME) b@AH\ I d`;gLgg@Lg@LLhJ KhZLK&(19 MKPROGN) (66 PUTPROPS 55 DEFMACRO 48 DEFMACRO 36 MACRO 27 MACROPROPS) () GETMACROPROP :D8 (P 2 VAL P 1 X I 1 PROPS I 0 FN) A!Hh@I ZHX(18 GETPROP) NIL () EXPANDOPENLAMBDA :D8 (P 13 A P 7 TMP P 6 GENARGS P 5 VAL P 4 SUBSTPAIRS P 3 VALS P 2 ARGS P 1 A P 0 FORMALS I 1 ACTUALS I 0 OPENLAM) @ HAyHdhLKI@bLJXL@ bJgJ ZggJh@K A _O3JJKKL0 Jg] _"IO_ddi3 gOhLIJMKHAbBd O _O Oh_O&_OZ@ b/A@ (268 MKPROGN 263 \NCONC2 250 SUBPAIR 215 PACK* 210 GENSYM 143 CONSTANTEXPRESSIONP 102 CL:APPEND 96 REVERSE 70 REVERSE 51 SUBLIS) (169 QUOTE 81 LOCALVARS 76 DECLARE 64 LAMBDA) () (PUTPROPS LOADTIMECONSTANT MACRO ((X) (DEFERREDCONSTANT X))) CSELECT :D8 (L (0 L)) @q@g0 Isd^diNhPN0 Md-h)dggJh_O Oh_O&_O[KgKL_O Oh_O&_O_IHgooOhHhNIL (150 LAMBDA 106 OR 63 .SELEC. 58 EQ 12 COND) ( 160 (DECLARE (LOCALVARS .SELEC.)) 155 (.SELEC.)) PRINTCOMSTRAN :D8 (P 16 RESETOUT P 15 TEMP P 14 ARG P 10 WIDTH P 9 POINT P 8 TYPE P 7 ARG P 4 FORMATLIST P 3 VARS I 4 FROMDWIM I 3 FILEFORM I 2 MACROS I 1 TAIL I 0 FORM F 17 PRINTOUTTOKENS F 18 VARS F 19 FAULTFN) &D*0BdIHhZH&JW"W$ !@A NXD@@hddW& C9@kAb`ACdO ggCChhOii_d3@OLO l.Ol _lIOlFOlgOl _dk _3 dOKOgOlIggO0O3OOkgOOk _dk I JhYJ&HhLN^@kChbB_i_ OAkMbAb^AAb_dggAAbj7ggAAb OjOdigCggoCOdgi_ AAbggAAbCOg!OgOgOdgBgAAbgCOg OgOg OghC`g(AAb_gOd3 gO C3OgOgOdgegggggCggOdggggOgghChhggkCOdgglCgglCyOdggAAbC]ggAAbgCh=OdggAAbAbg!OgOgOdgDgAAbAbjOgOgiOgOgiCgOdg(gAAbAbAbOghC|g4gggl hCggCohBOL_gOAAb)O3 gOCjOgjOCgOhC_OOh__mO&_dC$gooOCCghgO(1145 CHARACTER 674 PACK* 303 SUBATOM 292 STRPOS 226 SUBATOM 215 STRPOS 182 NTHCHARCODE 166 CHCON1 71 DWIMIFY0? 42 \APPEND2 37 \APPEND2) (1312 PROGN 1301 $$OUTPUT 1278 LAMBDA 1233 TAB 1222 SPACES 1207 PRIN1 1186 PRINTNUM 1161 PROGN 1156 POSITION 1138 QUOTE 1133 PRIN3 1128 PROGN 1120 .PAGE 1107 .PARA2 1083 PRINTPARA 1074 .PARA2 1064 .PARA 1048 .CENTER2 1039 .CENTER 1028 .CENTER2 1019 .FR2 999 FLUSHRIGHT 990 .CENTER2 980 .CENTER 970 .FR2 960 .FR 940 PRINTNUM 931 .N 917 TERPRI 905 FRPTQ 897 .SKIP 881 SPACES 872 .SP 858 SPACES 851 %,,, 840 SPACES 832 %,, 819 SPACES 812 %, 793 % 785 .BASE 777 % 770 .SUP 763 % 755 .SUB 747 QUOTE 742 PRIN3 734 SUPERSCRIPTFONT 729 CHANGEFONT 724 PROGN 719 FONTCHANGEFLG 714 AND 705 .BASE 695 .SUP 685 .SUB 667 FONT 655 CHANGEFONT 637 .FONT 623 .PPFTL 613 .PPVTL 605 .PPFTL 595 .PPF 586 POSITION 574 PRINTDEF 565 .PPVTL 555 .PPFTL 545 .PPV 535 .PPF 517 PRIN2 510 .P2 488 %# 471 PRIN1 464 .RESET 455 TERPRI 428 TAB 421 .TAB 405 TAB 396 .TAB0 281 %. 261 FLOAT 255 FIX 244 QUOTE 206 %. 116 OUTPUT 111 RESETFORM) ( 1288 (DECLARE (LOCALVARS $$OUTPUT)) 1283 ($$OUTPUT) 1168 (0) 476 (CONSTANT (CHARACTER (CHARCODE CR)))) (ADDTOVAR PRINTOUTMACROS) (RPAQQ PRINTOUTTOKENS (.RESET .TAB %# %, %,, %,,, .P2 .PPF .PPV .PPFTL .PPVTL .TAB0 .FR .FR2 .CENTER .CENTER2 .PARA .PARA2 .PAGE .FONT .SUP .SUB .BASE .SP .SKIP .N)) (PUTPROPS PRINTOUT INFO NOEVAL) (PUTPROPS printout INFO NOEVAL) (PUTPROPS PRINTOUT MACRO (DEFMACRO (&WHOLE X) (PRINTCOMSTRAN X (FUNCTION CDDR) PRINTOUTMACROS ( FUNCTION CADR)))) (PUTPROPS printout MACRO (DEFMACRO (&WHOLE X) (PRINTCOMSTRAN X (FUNCTION CDDR) PRINTOUTMACROS ( FUNCTION CADR)))) (ADDTOVAR SYSPROPS ALTOMACRO MACRO BYTEMACRO DMACRO) (PUTPROPS ALTOMACRO PROPTYPE MACROS) (PUTPROPS MACRO PROPTYPE MACROS) (PUTPROPS BYTEMACRO PROPTYPE MACROS) (PUTPROPS DMACRO PROPTYPE MACROS) (PUTPROPS GETTOPVAL SETFN SETTOPVAL) (PUTPROPS MACROS FILETYPE CL:COMPILE-FILE) (PUTPROPS MACROS COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990)) NIL