(FILECREATED " 6-Dec-83 23:06:29" ("compiled on " {PHYLUM}SOURCES>MACROAUX.;6) " 5-Dec-83 00:17:54" recompiled changes: NO.SIDEEFFECTS.FNP CARCDR.FNP in WORK dated " 6-Dec-83 01:19:48") (FILECREATED " 6-Dec-83 23:04:56" {PHYLUM}SOURCES>MACROAUX.;6 20866 changes to: (MACROS NNLITATOM CANONICAL.TIMERUNITS CARCDR.FNP) (FNS CARCDR.FNP NO.SIDEEFFECTS.FNP) (VARS MACROAUXCOMS) previous date: "10-NOV-83 20:16:11" {PHYLUM}SOURCES>MACROAUX.;5) \MACRO...ppmacro D1 (P 1 LNL P 0 POS I 0 L) Og ` @ ` @I Hk g @h id g h(113Q PRIN1 104Q PRINTDEF 77Q POSITION 70Q PRIN1 61Q TAB 52Q FITP 42Q CHANGEFONT 33Q PRIN1 25Q CHANGEFONT 16Q PRIN1 5 LINELENGTH 2 POSITION) (110Q %) 65Q % 37Q SYSTEMFONT 22Q CLISPFONT 13Q %() NIL LISPFORM.SIMPLIFY D1 (P 1 Y P 0 CLISPIFTRANFLG I 2 DWIMIFYFLGORLST I 1 QUIETFLG I 0 X F 3 COMPILERMACROPROPS) BBghbi!@d@YlIS Y@dI b@ Y/@KBH@`Y@iB @`Y@h` 'IbZddidd gJhbA@hi h@(221Q TERPRI 215Q PRINTDEF 135Q PUTHASH 116Q DWIMIFY 65Q CONSTANTEXPRESSIONP 54Q MACROEXPANSION 44Q GETMACROPROP) (176Q QUOTE 132Q CLISPARRAY 123Q CLISPARRAY 103Q CLISPARRAY 6 DONT) NIL NO.SIDEEFFECTS.FNP D1 (I 0 X) R@dNlH@gA@k)l\4@l)lE+`j h@klH o H@`(102Q EQUAL 73Q SUBSTRING 55Q ALLOCSTRING) (116Q NO.SIDEEFFECTS.HARRAY 106Q \NSE.STRPTR 61Q \NSE.STRPTR 47Q \NSE.STRPTR 15Q CROPS) ( 77Q "\GETBASE") CARCDR.FNP D1 (L (0 X)) @gNIL (3 CROPS) () CODE.SUBST D1 (I 2 FORM I 1 Y I 0 X) @AB (5 SUBST) NIL NIL CODE.SUBPAIR D1 (I 2 FORM I 1 L2 I 0 L1) @AB (5 SUBPAIR) NIL NIL ARGS.COMMUTABLEP D1 (P 0 FN I 1 Y I 0 X) A@iA@bb@@o @dlhAi bdXdgXA@i o Hdg@A 3A@i o gA@i H A@i (225Q ARGS.COMMUTABLEP.LIST 222Q LISPFORM.SIMPLIFY 211Q NO.SIDEEFFECTS.FNP 204Q \WALKOVER.SPECIALFORMS 201Q LISPFORM.SIMPLIFY 167Q MEMB 157Q ARGS.COMMUTABLEP.LIST 154Q LISPFORM.SIMPLIFY 142Q \VARNOTUSED 120Q MEMB 110Q ARGS.COMMUTABLEP.LIST 105Q LISPFORM.SIMPLIFY 57Q LISPFORM.SIMPLIFY 36Q MEMB) (173Q ARGS.COMMUTABLEP 127Q SETQ 74Q LAMBDA) (164Q (COND SELECTQ SELECTC AND OR SETQ FRPTQ APPLY APPLY* MAP MAPLIST MAPC MAPCAR MAPCON MAPCONC MAPHASH MAPATOMS EVERY SOME NOTEVERY NOTANY) 115Q (QUOTE FUNCTION DECLARE CONSTANT DEFERREDCONSTANT) 33Q (QUOTE FUNCTION DECLARE CONSTANT DEFERREDCONSTANT)) ARGS.COMMUTABLEP.LIST D1 (P 0 X I 1 Y I 0 L) @dHA i(13Q ARGS.COMMUTABLEP) NIL NIL VAR.NOT.USED D1 (I 2 SETQONLY? I 1 VAR I 0 FORM) 3AllA bAo lA b@AB (60Q \VARNOTUSED 46Q ERRORX 42Q SETERRORN 33Q MEMB 17Q ERRORX 13Q SETERRORN) NIL (30Q (NIL T)) \VARNOTUSED D1 (I 2 SETQONLY? I 1 VAR I 0 FORM) x@ BhoA@h=@dgA@ R@bo i@do A@h*@AB o g@AB @ @AB (165Q \VARNOTUSED.LIST 154Q NO.SIDEEFFECTS.FNP 146Q \WALKOVER.SPECIALFORMS 134Q MEMB 123Q \VARNOTUSED.LIST 101Q MEMB 64Q MEMB 43Q MEMB) (140Q \VARNOTUSED 30Q LAMBDA) (131Q (COND SELECTQ SELECTC AND OR SETQ FRPTQ APPLY APPLY* MAP MAPLIST MAPC MAPCAR MAPCON MAPCONC MAPHASH MAPATOMS EVERY SOME NOTEVERY NOTANY) 76Q (SETQ) 61Q (QUOTE FUNCTION DECLARE CONSTANT DEFERREDCONSTANT)) \VARNOTUSED.LIST D1 (P 0 FORM I 2 SETQONLY? I 1 X I 0 L) @dHAB i(14Q \VARNOTUSED) NIL NIL EVALUABLE.CONSTANTP D1 (P 5 VALS P 4 Z I 0 X) a@d@dgdgd`@ @i b@@dl@do g@ @ hdgEdg>dg7dg0dg)dg"dgdgdgdgdgih?@ 9@AHIMm@M h\ dJ KhZHXK&h@A@g8@dg@@ b1K@Mg@ \ d^ddidd gNhMK[(467Q EVALUABLE.CONSTANTP 461Q EVALUABLE.CONSTANTP 456Q CODE.SUBPAIR 420Q \APPEND2 324Q EVALUABLE.CONSTANTP 314Q APPLY 263Q NO.SIDEEFFECTS.FNP 131Q EVAL 117Q \WALKOVER.SPECIALFORMS 105Q MEMB 50Q LISPFORM.SIMPLIFY 40Q CONSTANTEXPRESSIONP) (523Q QUOTE 446Q PROGN 407Q PROGN 370Q LAMBDA 245Q GETD 237Q MACHINETYPE 231Q SYSTEMTYPE 222Q ALLOCSTRING 213Q MKATOM 204Q MKSTRING 175Q ARRAY 166Q \ALLOCKBLOCK 157Q CREATECELL 150Q LIST 141Q CONS 113Q EVALUABLE.CONSTANTP 31Q CONSTANTFOLDFNS 22Q CONSTANT 13Q QUOTE) (102Q (COND SELECTQ SELECTC AND OR SETQ FRPTQ APPLY APPLY* MAP MAPLIST MAPC MAPCAR MAPCON MAPCONC MAPHASH MAPATOMS EVERY SOME NOTEVERY NOTANY)) EVALUABLE.CONSTANT.FIXP D1 (I 0 X) @ d(3 EVALUABLE.CONSTANTP) NIL NIL \DECL.COMNT.PROCESS D1 (L (0 FORMS) F 5 COMMENTFLG) ;@AHYJKI\UL\LgULIKLgIJINIL (56Q DECLARE 35Q DECLARE) () \WALKOVER.SPECIALFORMS D1 (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 idgdgOABCDl@}A BCDl@jAIZ\JV@JBCD FJdgdgdgdg@ABCD dgdg @ABCD @ABCD dgFdg?dg8dg1dg*dg#dgdgdgdgdg?ABCDl@Ab@ABCD |Ahu@ABCD dg@ABCD gQA"dKhKh KBCDl@ih"AdKh KBCDl@i(713Q SHOULDNT 562Q \WALKOVER.FUNCTION 537Q \WALKOVER.FUNCTION 513Q \WALKOVER.FUNCTION 327Q \WALKOVER.SF.LIST 306Q \WALKOVER.FUNCTION 254Q \WALKOVER.SF.LIST 176Q \WALKOVER.SF.LIST 121Q LAST 41Q \WALKOVER.SF.LIST) (566Q PROG 544Q MAPATOMS 440Q NOTANY 432Q NOTEVERY 424Q SOME 415Q EVERY 406Q MAPHASH 377Q MAPCONC 370Q MAPCON 361Q MAPCAR 352Q MAPC 343Q MAPLIST 334Q MAP 267Q APPLY* 261Q APPLY 237Q SETQ 231Q FRPTQ 223Q OR 214Q AND 70Q SELECTC 62Q SELECTQ 6 COND) NIL \WALKOVER.SF.LIST D1 (P 0 X I 4 REST3 I 3 REST2 I 2 REST1 I 1 L I 0 PRED) AdHBCDl@iNIL NIL NIL \WALKOVER.FUNCTION D1 (I 4 REST3 I 3 REST2 I 2 REST1 I 1 FN I 0 PRED) 9Addo BCDl@ oBCDl@bdhBCDl@(14Q MEMB) NIL (34Q (\TypicalUnknownFunction) 11Q (QUOTE FUNCTION)) (PRETTYCOMPRINT MACROAUXCOMS) (RPAQQ MACROAUXCOMS ((EXPORT (DECLARE: DONTCOPY (MACROS NNLITATOM \NULL.OR.FIXP \CHECKTYPE CANONICAL.TIMERUNITS)) (COMS (* Macros which do, respectively, macro-expansion and evaluation of their "argument") (DECLARE: DONTCOPY (FNS \MACRO...ppmacro) (MACROS \MACRO.MX \MACRO.EVAL) (ADDVARS ( PRETTYPRINTMACROS (\MACRO.MX . \MACRO...ppmacro) (\MACRO.EVAL . \MACRO...ppmacro)))))) (COMS (* functions which help macro and compiler writers.) (FNS LISPFORM.SIMPLIFY NO.SIDEEFFECTS.FNP CARCDR.FNP CODE.SUBST CODE.SUBPAIR) (GLOBALRESOURCES \NSE.STRPTR) (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) (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)) (UGLYVARS NO.SIDEEFFECTS.HARRAY) (PROP GLOBALVAR NO.SIDEEFFECTS.HARRAY) ( GLOBALVARS CLISPARRAY CONSTANTFOLDFNS)))) (RPAQQ \NSE.STRPTR NIL) (PUTPROPS EVALUABLE.CONSTANT.FIXP MACRO ((X) (FIXP (CAR (EVALUABLE.CONSTANTP X))))) (PUTPROPS CARCDR.FNP MACRO ((X) (GETPROP X (QUOTE CROPS)))) (ADDTOVAR CONSTANTFOLDFNS IMIN IMAX IABS LOGOR LOGXOR LOGAND) (READVARS NO.SIDEEFFECTS.HARRAY) (({H2047 258 T MACHINETYPE T VARIABLES T STRINGWIDTH T CONSCOUNT T BOXCOUNT T FETCHFIELD T DPB T LDB T COPY T GETDEF T NEGATE T ROT T BYTEPOSITION T DEPOSITBYTE T LOADBYTE T LOGNOT T BITCLEAR T BITSET T BITTEST T MASK.0'S T MASK.1'S T TYPENAMEFROMNUMBER T ARRAYBEG T COPYSTK T ARCTAN T ARCCOS T ARCSIN T ARCTAN2 T LOG T TAN T COS T SIN T GETTYPEDESCRIPTION T TYPENUMBERFROMNAME T NTYP T SCODEP T COPYDEFCOPYREADTABLE T COVERS T GETQ T NCHAR T SUBTYPES T SUPERTYPES T HARRAYSIZE T HARRAY T ELTD T COPYARRAY T HARRAYP T ARRAYTYP T ARRAYSIZE T \ALLOCKBLOCK T BIT T U-CASEP T L-CASE T STREQUAL T READP T READTABLEP T ALLOCSTRING T PEEKC T EQUALALL T ARRAY T EXPT T SQRT T IDATE T FNTH T FTIMES T FLOAT T FPLUS T FMINUS T LESSP T FREMAINDER T REMAINDER T ABS T IEQP T MINUS T GCD T ADD1 T SUB1 T LOGXOR T LOGOR T ITIMES T IPLUS T IMINUS T ILESSP T MINUSP T RSH T LSH T LRSH T EQP T IQUOTIENT T IGREATERP T IDIFFERENCE T ASSOC T NTH T ARGTYPE T FNTYP T SUBRP T CCODEP T VARS T EXPRP T REALSTKNTH T REALFRAMEP T PROG1 T BOUNDP T TYPENAME T LOWERCASE T ARG T GETATOMVAL T PAGEFAULTS T DISMISS T DATE T CLOCK T NCHARS T GETD T FLESSP T FMAX T IMAX T MAX T GETTOPVAL T LEQ T IMIN T NARGS T FMIN T NUMBERP T ATOM T NLISTP T PROG2 T MKLIST T FREEVARS T COPYALL T EQMEMB T BYTESIZE T LENGTH T COUNTDOWN T PROGN T SUBLIS T MKATOM T CHCON1 T MEMB T MKSTRING T EQUALN T CONCAT T PACK* T SUBSTRING T EQUAL T PROPNAMES T FULLNAME T INFILEP T SUBATOM T CHARACTER T STRPOS T PACKFILENAME T U-CASE T FASSOC T APPEND T EQLENGTH T NOT T LOGAND T ZEROP T UNION T SUBSET T GETPROPLIST T VAG T LOC T REMOVE T EQ T LLSH T LISTPUT1 T LISTPUT T LISTGET1 T LDIFFERENCE T LDIFF T LASTN T KWOTE T MEMBER T INTERSECTION T GETLIS T GENSYM T LSUBST T SUBST T FIELDLOOK T GETTEMPLATE T RECLOOK T HASDEF T COUNT T LIST T FGETD T NULL T TYPENAMEP T TYPESOF T RPT T FLTFMT T FIX T LINELENGTH T MINFS T LAST T FCHARACTER T SASSOC T TYPEP T UNPACKFILENAME T IGEQ T ILEQ T OPENP T LISTGET T GREATERP T FGREATERP T FQUOTIENT T FDIFFERENCE T IREMAINDER T QUOTIENT T TIMES T DIFFERENCE T PLUS T \VAG2 T NILL T NTHCHARCODE T ELT T CONS T GETHASH T FMEMB T GETPROP T MIN T STACKP T STRINGP T ARRAYP T LISTP T LITATOM T FLOATP T FIXP T SMALLP T GDATE T DATEFORMAT T FONTNAME T MAKEBITTABLE T STRPOSL T PACK T PACKC T ALPHORDER T FLAST T UNPACK T CHCON T TAILP T NLEFT T FLENGTH T VALUEOF T SYNTAXP T OPENR T GETSEPR T GETREADTABLE T GETSYNTAX T GETTERMTABLE T COPYTERMTABLE T FFETCHFIELD T EXPANDMACRO T NEQ T SUBPAIR T \GETBITS T COMPILEDFETCHFIELD T FRAMESCAN })) (PUTPROPS NO.SIDEEFFECTS.HARRAY GLOBALVAR T) (PUTPROPS MACROAUX COPYRIGHT ("Xerox Corporation" 1983)) NIL