(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 17:37:05" ("compiled on " {DSK}sources>MACROAUX.;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:26:31" {DSK}local>lde>lispcore>sources>MACROAUX.;2 20459 changes to%: (VARS MACROAUXCOMS) previous date%: " 3-Nov-86 11:54:19" {DSK}local>lde>lispcore>sources>MACROAUX.;1) (RPAQQ MACROAUXCOMS ((EXPORT (DECLARE%: DONTCOPY (MACROS NNLITATOM \NULL.OR.FIXP \CHECKTYPE CANONICAL.TIMERUNITS)) (PROP DMACRO \MACRO.EVAL) (OPTIMIZERS \MACRO.MX)) (COMS (* ; "functions which help macro and compiler writers.") (FNS LISPFORM.SIMPLIFY NO.SIDEEFFECTS.FNP CODE.SUBST CODE.SUBPAIR) (GLOBALRESOURCES \NSE.STRPTR)) (COMS (FNS ARGS.COMMUTABLEP ARGS.COMMUTABLEP.LIST VAR.NOT.USED \VARNOTUSED \VARNOTUSED.LIST EVALUABLE.CONSTANTP EVALUABLE.CONSTANT.FIXP) (MACROS EVALUABLE.CONSTANT.FIXP CARCDR.FNP)) (FNS \DECL.COMNT.PROCESS) (COMS (FNS \WALKOVER.SPECIALFORMS \WALKOVER.SF.LIST \WALKOVER.FUNCTION) (DECLARE%: DONTCOPY (CONSTANTS \QUOTIFYING.NLS \WALKABLE.SPECIALFORMS) (MACROS \WALKABLE.SPECIALFORMP)) (ADDVARS (CONSTANTFOLDFNS IMIN IMAX IABS LOGOR LOGXOR LOGAND)) (VARS NOSIDEFNS) (GLOBALVARS CLISPARRAY CONSTANTFOLDFNS)) (PROP FILETYPE MACROAUX))) (PUTPROPS \MACRO.EVAL DMACRO (Z (PROG ((X (EXPANDMACRO (CAR Z) T))) (if (EQ X (CAR Z)) then (ERROR "No macro property -- \MACRO.EVAL" X) else (RETURN (EVAL X)))))) optimize-\MACRO.MX :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @NIL NIL () (PUTPROP (QUOTE \MACRO.MX) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\MACRO.MX) (GET (QUOTE \MACRO.MX) (QUOTE COMPILER:OPTIMIZER-LIST)))) LISPFORM.SIMPLIFY :D8 (P 1 Y P 0 FN I 1 EVALFLG I 0 X) @ A@!Hd3@iAH _H` Y@dI bD@ @` Y!@ddhio @` YI @ @Zddi3gJh@ @(156 CONSTANTEXPRESSIONP 122 CONSTANTEXPRESSIONP 115 LISPFORM.SIMPLIFY 107 GETHASH 95 DWIMIFY0? 76 GETHASH 64 LISPFORM.SIMPLIFY 53 MACROEXPANSION 42 GETMACROPROP 29 \DEFINEDP) (145 QUOTE 102 CLISPARRAY 71 CLISPARRAY 37 COMPILERMACROPROPS) ( 89 "LISPFORM.SIMPLIFY") NO.SIDEEFFECTS.FNP :D8 (I 0 X) @dd3@@g @`(20 GETPROP) (28 NOSIDEFNS 15 CROPS) () CODE.SUBST :D8 (I 2 FORM I 1 Y I 0 X) @AB (7 SUBST) NIL () CODE.SUBPAIR :D8 (I 2 FORM I 1 L2 I 0 L1) @AB (7 SUBPAIR) NIL () (/SETTOPVAL (QUOTE \\NSE.STRPTR.GLOBALRESOURCE) NIL) ARGS.COMMUTABLEP :D8 (P 0 FN I 1 Y I 0 X) A@iA@bb@@o @dd3@hAi bdXdgwA@i o Hdg@A GA@i o gA@i H A@i (187 ARGS.COMMUTABLEP.LIST 182 LISPFORM.SIMPLIFY 171 NO.SIDEEFFECTS.FNP 164 \WALKOVER.SPECIALFORMS 159 LISPFORM.SIMPLIFY 144 MEMB 133 ARGS.COMMUTABLEP.LIST 128 LISPFORM.SIMPLIFY 116 \VARNOTUSED 94 MEMB 83 ARGS.COMMUTABLEP.LIST 78 LISPFORM.SIMPLIFY 52 LISPFORM.SIMPLIFY 33 MEMB) (151 ARGS.COMMUTABLEP 103 SETQ 67 LAMBDA) ( 139 (COND SELECTQ SELECTC AND OR SETQ FRPTQ APPLY APPLY* MAP MAPLIST MAPC MAPCAR MAPCON MAPCONC MAPHASH MAPATOMS EVERY SOME NOTEVERY NOTANY) 89 (QUOTE FUNCTION DECLARE CONSTANT DEFERREDCONSTANT) 28 (QUOTE FUNCTION DECLARE CONSTANT DEFERREDCONSTANT)) ARGS.COMMUTABLEP.LIST :D8 (P 0 X I 1 Y I 0 L) @dHA i(13 ARGS.COMMUTABLEP) NIL () VAR.NOT.USED :D8 (I 2 SETQONLY? I 1 VAR I 0 FORM) BAd3@lA bAo lA b@AB (63 \VARNOTUSED 51 ERRORX 45 SETERRORN 35 MEMB 20 ERRORX 14 SETERRORN) NIL ( 30 (NIL T)) \VARNOTUSED :D8 (I 2 SETQONLY? I 1 VAR I 0 FORM) @BhA@hG@dgA@ e@bo i@do A@h7@AB o g@AB @ @AB (144 \VARNOTUSED.LIST 133 NO.SIDEEFFECTS.FNP 125 \WALKOVER.SPECIALFORMS 111 MEMB 99 \VARNOTUSED.LIST 79 MEMB 63 MEMB 43 MEMB) (117 \VARNOTUSED 30 LAMBDA) ( 106 (COND SELECTQ SELECTC AND OR SETQ FRPTQ APPLY APPLY* MAP MAPLIST MAPC MAPCAR MAPCON MAPCONC MAPHASH MAPATOMS EVERY SOME NOTEVERY NOTANY) 74 (SETQ) 58 (QUOTE FUNCTION DECLARE CONSTANT DEFERREDCONSTANT)) \VARNOTUSED.LIST :D8 (P 0 FORM I 2 SETQONLY? I 1 X I 0 L) @dHAB i(15 \VARNOTUSED) NIL () EVALUABLE.CONSTANTP :D8 (P 5 VALS P 4 Z I 0 X) @d"@dgdgd`@ @i b@@dd3@@do g@ @ hdgPdgGdg>dg5dg,dg#dgdgdgdgihE@ =@AHIM}@M h\ dJ KhZHXK&h@M@gB@dg@@ b1K@Mg@ \ d^ddi3 gNhMK[(364 EVALUABLE.CONSTANTP 356 EVALUABLE.CONSTANTP 351 CODE.SUBPAIR 317 \APPEND2 251 EVALUABLE.CONSTANTP 241 APPLY 214 NO.SIDEEFFECTS.FNP 109 EVAL 97 \WALKOVER.SPECIALFORMS 83 MEMB 51 LISPFORM.SIMPLIFY 41 CONSTANTEXPRESSIONP) (385 QUOTE 341 PROGN 306 PROGN 289 LAMBDA 198 GETD 190 MACHINETYPE 182 SYSTEMTYPE 173 ALLOCSTRING 164 MKATOM 155 MKSTRING 146 ARRAY 137 \ALLOCKBLOCK 128 LIST 119 CONS 91 EVALUABLE.CONSTANTP 32 CONSTANTFOLDFNS 23 CONSTANT 13 QUOTE) ( 78 (COND SELECTQ SELECTC AND OR SETQ FRPTQ APPLY APPLY* MAP MAPLIST MAPC MAPCAR MAPCON MAPCONC MAPHASH MAPATOMS EVERY SOME NOTEVERY NOTANY)) EVALUABLE.CONSTANT.FIXP :D8 (I 0 X) @ 3 (5 EVALUABLE.CONSTANTP) NIL () (PUTPROPS EVALUABLE.CONSTANT.FIXP MACRO ((X) (FIXP (CAR (EVALUABLE.CONSTANTP X))))) (PUTPROPS CARCDR.FNP MACRO ((X) (GETPROP X (QUOTE CROPS)))) \DECL.COMNT.PROCESS :D8 (L (0 FORMS)) G@AHYJKI\`L\Lg`LIKLgIJINIL (58 DECLARE 43 COMMENTFLG 35 DECLARE 24 COMMENTFLG) () \WALKOVER.SPECIALFORMS :D8 (P 3 L P 2 LL P 0 CLZ I 4 REST3 I 3 REST2 I 2 REST1 I 1 FORM I 0 PRED) Adg)AdHh @HBCD idgdgSABCDl@A BCDl@AIZJ@JBCD }Jdgdgdgdg@ABCD dgdg$@ABCD %@ABCD dg[dgRdgIdg@dg7dg.dg%dgdgdgdgGABCDl@Ab@ABCD Ah}@ABCD dg@ABCD gQA"dKhKh KBCDl@ih"AdKh KBCDl@i(528 SHOULDNT 435 \WALKOVER.FUNCTION 412 \WALKOVER.FUNCTION 386 \WALKOVER.FUNCTION 245 \WALKOVER.SF.LIST 226 \WALKOVER.FUNCTION 194 \WALKOVER.SF.LIST 138 \WALKOVER.SF.LIST 91 LAST 37 \WALKOVER.SF.LIST) (441 PROG 419 MAPATOMS 341 NOTANY 333 NOTEVERY 324 SOME 315 EVERY 306 MAPHASH 297 MAPCONC 288 MAPCON 279 MAPCAR 270 MAPC 261 MAPLIST 252 MAP 209 APPLY* 201 APPLY 179 SETQ 171 FRPTQ 163 OR 154 AND 64 SELECTC 56 SELECTQ 8 COND) () \WALKOVER.SF.LIST :D8 (P 0 X I 4 REST3 I 3 REST2 I 2 REST1 I 1 L I 0 PRED) AdHBCDl@iNIL NIL () \WALKOVER.FUNCTION :D8 (I 4 REST3 I 3 REST2 I 2 REST1 I 1 FN I 0 PRED) =Addo BCDl@!oBCDl@bdhBCDl@(15 MEMB) NIL ( 32 (\TypicalUnknownFunction) 10 (QUOTE FUNCTION)) (ADDTOVAR CONSTANTFOLDFNS IMIN IMAX IABS LOGOR LOGXOR LOGAND) (RPAQQ NOSIDEFNS (fetch CONS NLISTP PROGN APPEND LIST NEQ MEMB MEMBER FMEMB ASSOC TAILP COPY create ELT ELTD AND OR ADD1 SUB1 IPLUS IDIFFERENCE EQ EQUAL NOT NULL)) (PUTPROPS MACROAUX FILETYPE COMPILE-FILE) (PUTPROPS MACROAUX COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1990)) NIL