(FILECREATED "29-May-86 22:46:24" ("compiled on " {ERIS}EVAL>MACROS.;6) "29-May-86 16:51:49" "COMPILE-FILEd" in "Xerox Lisp 19-May-86 ..." dated "19-May-86 09:04:47") (FILECREATED "26-May-86 23:50:13" {ERIS}EVAL>MACROS.;6 46391 changes to: (VARS MACROSCOMS) previous date: "25-May-86 00:16:04" {ERIS}EVAL>MACROS.;5) (RPAQQ MACROSCOMS ((PROP MACRO NEQ NLISTP ZEROP ADD1 SUB1 SETQQ ERSETQ NLSETQ RPTQ NCONC1 XNLSETQ UNDONLSETQ RESETVAR RESETFORM RESETLST RESETSAVE RESETTOPVALS RESETBUFS SELECT SELECTC IGEQ ILEQ GEQ LEQ FLESSP IMIN IMAX PROG2 EVENP ODDP SIGNED UNSIGNED LIST* PSETQ SELECTQ) (COMS (* "obsolete Interlisp macro functions") (FNS EXPANDMACRO MACROEXPANSION EXPAND-DEFMACRO COMPUTE-MACRO-ARGS MACROS.GETDEF GETMACROPROP EXPANDOPENLAMBDA) (GLOBALVARS NOFIXFNSLST BYTECOMPFLG CLISPARRAY BYTEMACROPROP)) (PROP MACRO CONSTANT LOADTIMECONSTANT DEFERREDCONSTANT) (FNS 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))))) (PUTPROPS NEQ MACRO ((X Y) (NULL (EQ X Y)))) (PUTPROPS NLISTP MACRO ((X) (NULL (LISTP X)))) (PUTPROPS ZEROP MACRO (OPENLAMBDA (X) (COND ((EQ X 0)) ((FLOATP X) (FEQP X 0.0))))) (PUTPROPS ADD1 MACRO ((X) (IPLUS X 1))) (PUTPROPS SUB1 MACRO ((X) (IDIFFERENCE X 1))) (PUTPROPS SETQQ MACRO ((X V) (SETQ X (QUOTE V)))) (PUTPROPS ERSETQ MACRO ((X) (.ERRSETQ. X T))) (PUTPROPS NLSETQ MACRO ((X . Y) (.ERRSETQ. (PROGN X . Y) NIL))) (PUTPROPS RPTQ MACRO ((N . FORMS) (PROG ((RPTN N) RPTV) (DECLARE (LOCALVARS RPTN RPTV)) RPTQLAB (COND ((IGREATERP RPTN 0) (SETQ RPTV (PROGN . FORMS)) (SETQ RPTN (SUB1 RPTN)) (GO RPTQLAB))) (RETURN RPTV))) ) (PUTPROPS NCONC1 MACRO ((LST X) (NCONC LST (CONS X)))) (PUTPROPS XNLSETQ MACRO ((X FLG FN) (.ERRSETQ. X FLG FN))) (PUTPROPS UNDONLSETQ MACRO ((UNDOFORM UNDOFN) (PROG ((LISPXHIST LISPXHIST) UNDOSIDE0 UNDOSIDE UNDOTEM) (DECLARE (SPECVARS LISPXHIST)) (COND ((LISTP (SETQ UNDOSIDE (LISTGET1 LISPXHIST (QUOTE SIDE)))) (SETQ UNDOSIDE0 (CDR UNDOSIDE))) (T (SETQ UNDOSIDE0 UNDOSIDE) (SETQ UNDOSIDE (LIST 0)) (COND (LISPXHIST ( LISTPUT1 LISPXHIST (QUOTE SIDE) UNDOSIDE)) (T (SETQ LISPXHIST (LIST (QUOTE SIDE) UNDOSIDE)))))) ( RESETVARS (#UNDOSAVES) (SETQ UNDOTEM (XNLSETQ UNDOFORM NIL UNDOFN))) (COND ((EQ UNDOSIDE0 (QUOTE NOSAVE)) (LISTPUT1 LISPXHIST (QUOTE SIDE) (QUOTE NOSAVE))) (T (UNDOSAVE))) (COND (UNDOTEM (RETURN UNDOTEM))) (UNDONLSETQ1 (CDR UNDOSIDE) (LISTP UNDOSIDE0)) (RETURN)))) (PUTPROPS RESETVAR MACRO ((VAR VAL FORM) (PROG (MACROX MACROY) (SETQ MACROX (SETQ RESETVARSLST (CONS ( CONS (QUOTE VAR) (CONS (STKSCAN (QUOTE VAR)) (GETATOMVAL (QUOTE VAR)))) RESETVARSLST))) (SETQ MACROY ( XNLSETQ (PROGN (SETATOMVAL (QUOTE VAR) VAL) FORM) (QUOTE INTERNAL))) (SETATOMVAL (QUOTE VAR) (CDDAR MACROX)) (SETQ RESETVARSLST (CDR MACROX)) (COND (MACROY (RETURN (CAR MACROY)))) (ERROR!)))) (PUTPROPS RESETFORM MACRO (OPENX (SUBPAIR (QUOTE (FN FORM . EXPRESSIONS)) (CONS (CAAR OPENX) OPENX) ( QUOTE (PROG ((OLDVALUE FORM) MACROX MACROY RESETSTATE) (DECLARE (LOCALVARS MACROX MACROY)) (SETQ MACROX (SETQ RESETVARSLST (CONS (LIST (LIST (QUOTE FN) OLDVALUE)) RESETVARSLST))) (COND ((NOT (XNLSETQ (SETQ MACROY (PROGN . EXPRESSIONS)) INTERNAL)) (SETQ RESETSTATE (QUOTE ERROR)))) (SETQ RESETVARSLST ( CDR MACROX)) (APPLY (QUOTE FN) (CDAAR MACROX)) (RETURN (COND (RESETSTATE (ERROR!)) (T MACROY)))))))) (PUTPROPS RESETLST MACRO ((X . Y) (PROG (RESETY RESETZ (LISPXHIST LISPXHIST)) (RESETRESTORE RESETVARSLST (SETQ RESETZ (COND ((XNLSETQ (SETQ RESETY (PROGN X . Y)) INTERNAL) NIL) (T (QUOTE ERROR)) ))) (RETURN (COND (RESETZ (ERROR!)) (T RESETY)))))) (PUTPROPS RESETSAVE MACRO (X (LIST (QUOTE SETQ) (QUOTE RESETVARSLST) (LIST (QUOTE CONS) (COND ((AND ( ATOM (CAR X)) (CAR X)) (SUBPAIR (QUOTE (VAR VAL)) X (QUOTE (PROG1 (CONS (QUOTE VAR) (CONS (STKSCAN ( QUOTE VAR)) (GETATOMVAL (QUOTE VAR)))) (SETATOMVAL (QUOTE VAR) VAL))))) ((CDR X) (LIST (QUOTE LIST) ( CADR X) (CAR X))) (T (LIST (QUOTE LIST) (LIST (QUOTE LIST) (LIST (QUOTE QUOTE) (COND ((EQ (CAAR X) ( QUOTE SETQ)) (CAR (CADDAR X))) (T (CAAR X)))) (CAR X))))) (QUOTE RESETVARSLST))))) (PUTPROPS RESETTOPVALS MACRO (ARGS (CONS (QUOTE RESETLST) (NCONC (MAPCAR (CAR ARGS) (FUNCTION (LAMBDA (V) (CONS (QUOTE RESETSAVE) V)))) (CDR ARGS))))) (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 SELECT MACRO (X (CSELECT X))) (PUTPROPS SELECTC MACRO (F (CONS (QUOTE SELECTQ) (CONS (CAR F) (MAPLIST (CDR F) (FUNCTION (LAMBDA (I) (COND ((CDR I) (CONS (CONSTANT (EVAL (CAAR I))) (CDAR I))) (T (CAR I)))))))))) (PUTPROPS IGEQ MACRO ((X Y) (NOT (ILESSP X Y)))) (PUTPROPS ILEQ MACRO ((X Y) (NOT (IGREATERP X Y)))) (PUTPROPS GEQ MACRO ((X Y) (NOT (LESSP X Y)))) (PUTPROPS LEQ MACRO ((X Y) (NOT (GREATERP X Y)))) (PUTPROPS FLESSP MACRO (LAMBDA (X Y) (FGREATERP Y X))) (PUTPROPS IMIN MACRO (DEFMACRO (&OPTIONAL (ARG1 NIL ARG1GIVEN) (ARG2 NIL ARG2GIVEN) &REST RESTARGS) ( COND ((NOT ARG1GIVEN) (QUOTE MAX.INTEGER)) ((NOT ARG2GIVEN) (BQUOTE (FIX , ARG1))) (RESTARGS (BQUOTE ( IMIN (IMIN2 , ARG1 , ARG2) ., RESTARGS))) (T (LIST (QUOTE IMIN2) ARG1 ARG2))))) (PUTPROPS IMAX MACRO (DEFMACRO (&OPTIONAL (ARG1 NIL ARG1GIVEN) (ARG2 NIL ARG2GIVEN) &REST RESTARGS) ( COND ((NOT ARG1GIVEN) (QUOTE MIN.INTEGER)) ((NOT ARG2GIVEN) (BQUOTE (FIX , ARG1))) (RESTARGS (BQUOTE ( IMAX (IMAX2 , ARG1 , ARG2) ., RESTARGS))) (T (BQUOTE (IMAX2 , ARG1 , ARG2)))))) (PUTPROPS PROG2 MACRO ((X . Y) (PROGN X (PROG1 . Y)))) (PUTPROPS EVENP MACRO (DEFMACRO (N &OPTIONAL (MODULUS 2)) (BQUOTE (EQ 0 (IMOD , N , MODULUS))))) (PUTPROPS ODDP MACRO ((X . TAIL) (NOT (EVENP X . TAIL)))) (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))))) (PUTPROPS LIST* MACRO (X (COND ((NULL X) NIL) ((NULL (CDR X)) (CAR X)) ((NULL (CDDR X)) (CONS (QUOTE CONS) X)) (T (LIST (QUOTE CONS) (CAR X) (CONS (QUOTE LIST*) (CDR X))))))) (PUTPROPS PSETQ MACRO (DEFMACRO (VAR VAL &REST TAIL) (BQUOTE (PROGN (SETQ , VAR , (if TAIL then ( BQUOTE (PROG1 , VAL (PSETQ ,. TAIL))) else VAL)) NIL)))) (PUTPROPS SELECTQ MACRO (DEFMACRO (SELECTOR &BODY BODY) (LET ((KV (GENSYM)) (CLAUSES NIL)) (for C on BODY do (COND ((NULL (CDR C)) (CL:PUSH (BQUOTE (T (\,@ (CAR C)))) CLAUSES) (RETURN NIL)) ((NULL (CAAR C)) (CL:PUSH (BQUOTE ((NULL (\, KV)) (\,@ (CDAR C)))) CLAUSES)) ((NOT (CONSP (CAAR C))) (CL:PUSH ( BQUOTE ((EQL (QUOTE (\, (CAAR C))) (\, KV)) (\,@ (CDAR C)))) CLAUSES)) (T (CL:PUSH (BQUOTE ((OR (\,@ ( CL:DO ((X (CAAR C) (CDR X)) (Y NIL)) ((CL:ATOM X) (REVERSE Y)) (CL:PUSH (BQUOTE (EQL (QUOTE (\, (CAR X ))) (\, KV))) Y)))) (\,@ (CDAR C)))) CLAUSES)))) (BQUOTE (LET (((\, KV) (\, SELECTOR))) (COND (\,@ ( REVERSE CLAUSES)))))))) EXPANDMACROA0001 D1 (NAME ERRORSET F 0 EXP F 1 MACROY) Phi i ci(12Q TERPRI 5 PRINTDEF) NIL () EXPANDMACRO D1 (L (2 OPTIONS 1 QUIETFLG) P 10Q RESETSTATE P 7 MACROY P 5 OLDVALUE P 4 PCF P 3 NCF P 1 EFF P 0 VCF I 3 COMPILE.CONTEXT I 0 EXP F 11Q RESETVARSLST) CghCg2@*hg@d``b@` @dJ bA@i 1gMhhWcog g_NcgN Oh(174Q ERROR! 164Q APPLY 136Q EXPANDMACROA0001 102Q OUTPUT 66Q MACROEXPANSION 57Q GETMACROPROP) (155Q OUTPUT 142Q ERROR 133Q INTERNAL 110Q OUTPUT 54Q COMPILERMACROPROPS 42Q CLISPARRAY 35Q CLISPARRAY 26Q CLISP 12Q EFFECT 3 EFFECT) ( 130Q (EXPANDMACROA0001)) MACROEXPANSION D1 (L (2 COMPFLG 1 MACRODEF 0 EXPR) P 5 PREDF P 4 PCF P 3 NCF P 2 VCF P 1 EFF P 0 EXP I 3 COMPILE.CONTEXT F 6 LAMBDASPLST) A@AdgAdgdgA@dgA@dgA@ dgdg@gA@ Ad@AdgA lAdVBgA@ @CgCgh3gA@ bgJA(261Q APPLY 225Q APPLY 171Q SUBPAIR 135Q EXPAND-DEFMACRO 103Q EXPANDOPENLAMBDA) (267Q IGNOREMACRO 252Q NLAMBDA 241Q EFFECT 234Q EFFECT 216Q NLAMBDA 160Q PROGN 125Q DEFMACRO 116Q APPLY* 110Q APPLY 72Q OPENLAMBDA 56Q = 42Q NLAMBDA 34Q LAMBDA 21Q PROGN) () EXPAND-DEFMACROA0001 D1 (F 0 DEF) gP (10Q EVAL) (2 PROGN) () EXPAND-DEFMACRO D1 (L (0 -args-) P 7 *MACRO-VALS* P 6 *MACRO-VARS* P 5 *MACRO-DEFAULT* P 4 *MACRO-FORM* P 1 DEF) ;e@!AlHhBJK"IJh gNghhO dgJ(61Q APPLY 37Q COMPUTE-MACRO-ARGS) (65Q IGNOREMACRO 46Q EXPAND-DEFMACROA0001 42Q LAMBDA) () COMPUTE-MACRO-ARGS D1 (L (0 -args-) F 16Q *MACRO-VARS* F 17Q *MACRO-VALS* F 20Q *MACRO-FORM* F 21Q *MACRO-DEFAULT*) e@ ABIddWcJWcdgdgIJh IJg dgIW g IJg dgIhg IJg dgIJg dgIJg gIYddsdgdgdgIJh I_h_OOO_O__OdO_ J\.hOOMO g IYMig NLLKdgUIBI__O_JOOhg IO gXOILig J=IW"g9g"Id_d O g JoI IJh IJK (731Q COMPUTE-MACRO-ARGS 720Q COMPUTE-MACRO-ARGS 707Q ERROR 665Q COMPUTE-MACRO-ARGS 657Q EVAL 606Q COMPUTE-MACRO-ARGS 562Q EVAL 551Q COMPUTE-MACRO-ARGS 453Q COMPUTE-MACRO-ARGS 430Q COMPUTE-MACRO-ARGS 422Q EVAL 374Q MAKE-KEYWORD 306Q COMPUTE-MACRO-ARGS 232Q COMPUTE-MACRO-ARGS 211Q COMPUTE-MACRO-ARGS 170Q COMPUTE-MACRO-ARGS 156Q COMPUTE-MACRO-ARGS 134Q COMPUTE-MACRO-ARGS 122Q COMPUTE-MACRO-ARGS 76Q COMPUTE-MACRO-ARGS 64Q COMPUTE-MACRO-ARGS) (662Q ONE 631Q AUX 624Q ONE 603Q ONE 565Q ONE 546Q ONE 500Q OPTIONAL 450Q ONE 425Q ONE 275Q &AUX 267Q &ALLOW-OTHER-KEYS 261Q &REST 236Q &KEY 227Q AUX 216Q &AUX 206Q OPTIONAL 175Q &OPTIONAL 165Q AUX-ONLY 153Q ONE 141Q &ENVIRONMENT 131Q AUX-ONLY 117Q ONE 103Q &WHOLE 73Q AUX-ONLY 50Q &BODY 42Q &REST) ( 703Q "macro body missing value for") MACROS.GETDEF D1 (L (2 OPTIONS 1 TYPE 0 NAME) F 5 MACROPROPS) T@AH\I U3LgLgg@Lg@LLhJ KhZLK&(21Q MKPROGN) (64Q PUTPROPS 53Q DEFMACRO 46Q DEFMACRO 34Q MACRO) () GETMACROPROP D1 (L (1 PROPS 0 FN)) AHh@IHXNIL NIL () EXPANDOPENLAMBDA D1 (L (1 ACTUALS 0 OPENLAM) P 2 ARGS) @HAnHdhLK;@bLJML@ bJgJ ZggJh@K A _Ol JJKKL0 JV] ^IN_ddi3 gOhLIJMKHAbTd _O Oh_O&_OZ@ bMA@ (352Q MKPROGN 347Q \NCONC2 334Q SUBPAIR 274Q PACK* 271Q GENSYM 202Q CONSTANTEXPRESSIONP 145Q \TYPEMASK.UFN 130Q \APPEND2 124Q REVERSE 100Q REVERSE 61Q SUBLIS) (227Q QUOTE 107Q LOCALVARS 104Q DECLARE 74Q LAMBDA) () (PUTPROPS CONSTANT MACRO (MACROX (PROG ((VAL (APPLY (QUOTE PROG1) MACROX))) (RETURN (COND ((CONSTANTOK VAL) (KWOTE VAL)) (T (CONS (QUOTE LOADTIMECONSTANT) MACROX))))))) (PUTPROPS LOADTIMECONSTANT MACRO ((X) (DEFERREDCONSTANT X))) (PUTPROPS DEFERREDCONSTANT MACRO (X (LIST (SUBST (CAR X) (QUOTE FORM) (QUOTE (LAMBDA (MACROX) (DECLARE (LOCALVARS MACROX)) (OR (CDR MACROX) (FRPLACD (FRPLACA MACROX (EVQ FORM)) T)) (CAR MACROX)))) (KWOTE (CONS))))) CSELECT D1 (L (0 L)) 0@d@lggP@\"KYHgooIh@hiLhM0 L.Lh'dgJH@h_O Oh_O&_O]dgM]LO Nh_LzN&_INIL (217Q OR 142Q EQ 57Q LAMBDA 32Q COND 26Q .SELEC.) ( 67Q (DECLARE (LOCALVARS .SELEC.)) 63Q (.SELEC.)) PRINTCOMSTRAN D1 (L (4 FROMDWIM 3 FILEFORM 2 MACROS 1 TAIL 0 FORM) P 3 VARS F 21Q PRINTOUTTOKENS F 22Q VARS F 23Q FAULTFN) _D&0BdIHhZH&JW"W$ !@A NRD@@hddW& C5@kAb`ACdܿO ggCChhOii_lOLO l.Ol)_lIOlFuOlgOl _dk _3 XOKOgOlIggO0O-OOkgOOk _dk I JhYJ&HhLN^@kChbB_i_ OAkMbAbAAb_dggAAbjggAAbOjOdigCggoCnOdgi_ AAbYggAAbCDOgOgOgOdg6gAAbgCOgOgOgOghCg"AAb_gOd3 gO COgOgOdgLgggggCggOdggggOgghChhhggkC[OdgglCIgglC;OdggAAbC$ggAAbgCh OdggAAbAbgOgOgOdg:gAAbAbjOgOgiOgOgiCgOdg$gAAbAbAbOghCfg(gggl hCggCoh;OL_gOAAb#O3 gOCjOgjOCgOhC_OOh__&O&_CgooOCCghgO(1706Q CHARACTER 1114Q PACK* 413Q SUBATOM 402Q STRPOS 312Q SUBATOM 301Q STRPOS 232Q CHCON1 101Q DWIMIFY0? 46Q \APPEND2 43Q \APPEND2) (2131Q PROGN 2120Q $$OUTPUT 2075Q LAMBDA 2022Q TAB 2011Q SPACES 1774Q PRIN1 1751Q PRINTNUM 1722Q PROGN 1717Q POSITION 1701Q QUOTE 1676Q PRIN3 1673Q PROGN 1665Q .PAGE 1652Q .PARA2 1624Q PRINTPARA 1615Q .PARA2 1605Q .PARA 1567Q .CENTER2 1560Q .CENTER 1547Q .CENTER2 1540Q .FR2 1516Q FLUSHRIGHT 1507Q .CENTER2 1477Q .CENTER 1467Q .FR2 1457Q .FR 1435Q PRINTNUM 1426Q .N 1411Q TERPRI 1377Q FRPTQ 1371Q .SKIP 1353Q SPACES 1345Q .SP 1331Q SPACES 1324Q ,,, 1313Q SPACES 1305Q ,, 1272Q SPACES 1265Q , 1243Q  1235Q .BASE 1227Q  1222Q .SUP 1215Q  1207Q .SUB 1201Q QUOTE 1176Q PRIN3 1170Q SUPERSCRIPTFONT 1165Q CHANGEFONT 1162Q PROGN 1157Q FONTCHANGEFLG 1154Q AND 1145Q .BASE 1135Q .SUP 1125Q .SUB 1107Q FONT 1075Q CHANGEFONT 1055Q .FONT 1041Q .PPFTL 1031Q .PPVTL 1023Q .PPFTL 1013Q .PPF 1004Q POSITION 772Q PRINTDEF 763Q .PPVTL 753Q .PPFTL 743Q .PPV 733Q .PPF 713Q PRIN2 706Q .P2 662Q # 644Q PRIN1 637Q .RESET 630Q TERPRI 577Q TAB 572Q .TAB 554Q TAB 546Q .TAB0 371Q %. 347Q FLOAT 343Q FIX 332Q QUOTE 272Q %. 152Q OUTPUT 147Q RESETFORM) ( 2105Q (DECLARE (LOCALVARS $$OUTPUT)) 2101Q ($$OUTPUT) 1730Q (0) 650Q (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 COMPILE-FILE) (RPAQQ MACROSCOMS ((PROP MACRO NEQ NLISTP ZEROP ADD1 SUB1 SETQQ ERSETQ NLSETQ RPTQ NCONC1 XNLSETQ UNDONLSETQ RESETVAR RESETFORM RESETLST RESETSAVE RESETTOPVALS RESETBUFS SELECT SELECTC IGEQ ILEQ GEQ LEQ FLESSP IMIN IMAX PROG2 EVENP ODDP SIGNED UNSIGNED LIST* PSETQ SELECTQ) (COMS (* "obsolete Interlisp macro functions") (FNS EXPANDMACRO MACROEXPANSION EXPAND-DEFMACRO COMPUTE-MACRO-ARGS MACROS.GETDEF GETMACROPROP EXPANDOPENLAMBDA) (GLOBALVARS NOFIXFNSLST BYTECOMPFLG CLISPARRAY BYTEMACROPROP)) (PROP MACRO CONSTANT LOADTIMECONSTANT DEFERREDCONSTANT) (FNS 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 COMPUTE-MACRO-ARGS EXPAND-DEFMACRO))))) (PUTPROPS MACROS COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) STOP