(FILECREATED "17-Feb-86 12:01:37" ("compiled on " {ERIS}KOTO>EMACSUSER.;3) "15-Feb-86 15:50:45" recompiled changes: EMACSIFY.REPLACE EMACSIFY.FFETCH EMACSIFY.FREPLACE in "Xerox Lisp 15-Feb-86 ..." dated "15-Feb-86 16:03:52") (FILECREATED "17-Feb-86 11:58:55" {ERIS}KOTO>EMACSUSER.;3 63333 changes to: (PROPS (ffetch EMACS) (FFETCH EMACS) (freplace EMACS) (FREPLACE EMACS)) (FNS EMACSIFY.REPLACE EMACSIFY.FFETCH EMACSIFY.FREPLACE) (VARS EMACSUSERCOMS) previous date: "18-Jun-85 22:49:07" {ERIS}KOTO>EMACSUSER.;1) DEFHELPER D1 (P 2 ANSWER P 1 ATOM P 0 TRAN F 3 FAULTX) 0ShYdgXdSkHNIL (16Q TRAN) () DEFEXPAND D1 (P 2 TAIL P 1 TRAN P 0 AKA I 0 EXPR) Q @@l@gX@dlgY@kIb@b@JJ@d JZ(110Q DEFEXPAND) (44Q TRAN 23Q AKA) () DEFEXPANDFN D1 (I 0 FN) @dg @gg (27Q MARKASCHANGED 15Q PUTD 12Q DEFEXPAND 7 GETDEF) (24Q CHANGED 21Q FNS 4 FNS) () DEFFORMS D1 (P 1 E P 0 ANSWER I 0 EXPR) ? @dl@hgh@dgo@dHI H(66Q \NCONC2 63Q DEFFORMS) (34Q PROGN 22Q *) ( 45Q (QUOTE COMPILE)) DEFINE1 D1 (P 2 BODY P 1 VARS P 0 FN I 0 $FEXPR$) @@b@bHgIJhh (35Q DEFINE) (21Q LAMBDA) () DEFINE2 D1 (P 2 BODY P 1 VARS P 0 FN I 0 $FEXPR$) @@b@bHgIJhh (35Q DEFINE) (21Q NLAMBDA) () DEFEXPR.TRAN D1 (P 1 $ANSWER$ P 0 $ARGS$ I 0 $FORM$)  @XdHX Y@I@I@(15Q DEFEXPR.TRAN1) NIL () DEFEXPR.TRAN1 D1 (P 5 ANSWER P 4 ARGNAMES P 3 DEF P 2 LASTWRAPPER P 1 WRAPPERS P 0 FN I 1 BODY I 0 PROTOCALL) ( `@d@AAbY ZIA [J[K JELggghggHhgghgLhhgHKKhgI \gggKI kk2 ONCgggOhggOhhh_OOh__Ok_O&_OgggI gggggghhh h[gHKK(417Q \APPEND2 353Q LENGTH 216Q LENGTH 171Q DEFARGNAMES 47Q FIXEDITDATE 36Q DEFLAMBDA 27Q LAST) (433Q DEFINE1 375Q I 372Q $EXPR$ 367Q ARG 364Q COLLECT 361Q $EXPR$ 356Q TO 347Q FROM 344Q I 341Q FOR 257Q $EXPR$ 254Q ARG 243Q $EXPR$ 240Q IGEQ 235Q COND 211Q $EXPR$ 206Q LAMBDA 200Q REST 162Q REST 136Q DEFINE1 122Q QUOTE 114Q ARGNAMES 111Q QUOTE 102Q QUOTE 77Q PUTPROP 71Q COMPILE 66Q QUOTE 63Q PROGN) () DEFFEXPR.TRAN D1 (P 1 $ANSWER$ P 0 $ARGS$ I 0 $FORM$)  @XdHX Y@I@I@(15Q DEFFEXPR.TRAN1) NIL () DEFFEXPR.TRAN1 D1 (P 5 ANSWER P 4 ARGNAMES P 3 DEF P 2 LASTWRAPPER P 1 WRAPPERS P 0 FN I 1 BODY I 0 PROTOCALL) `@d@AAbY ZIA [ggKI kk2 ON&o_OOh__Ok_O&_OJ[oh h[d I \dLggghggHhgghgLhhgHKKhgggHKK(170Q DEFARGNAMES 164Q FIXEDITDATE 152Q \APPEND2 52Q LENGTH 36Q DEFLAMBDA 27Q LAST) (311Q DEFINE2 304Q $FEXPR$ 276Q REST 252Q DEFINE2 236Q QUOTE 230Q ARGNAMES 225Q QUOTE 216Q QUOTE 213Q PUTPROP 205Q COMPILE 202Q QUOTE 177Q PROGN 45Q $FEXPR$ 42Q NLAMBDA) ( 145Q (POP $FEXPR$) 72Q (POP $FEXPR$)) DEFARGNAMES D1 (P 1 ARGNAMES P 0 LASTWRAPPER I 0 WRAPPERS) { @ XdMdgE@@BK_JLYH H?OdMNh]KJN&0@ddKJh\J&LYI(63Q LAST 6 LAST) (21Q REST) () DEFLAMBDA D1 (P 10Q WRAPPER P 4 ANSWER P 3 VALUE P 2 VAR P 1 VARS P 0 COMMENTS I 1 BODY I 0 WRAPPERS) P0AAAdo MX@ Ab_N Oh^O&dOdlIYPo 3OOJIK5ggJhgJKhhhAbggOho gIHA (254Q \APPEND2 235Q LISPERROR 127Q MEMB 40Q REVERSE 27Q MEMB) (246Q LAMBDA 220Q WRAPPER 215Q ILLEGAL 170Q SETQ 161Q NULL 156Q COND) ( 232Q "" 124Q (OPTIONAL REST) 24Q (* DECLARE)) DEFTRAN.TRAN D1 (P 1 $ANSWER$ P 0 $ARGS$ I 0 $FORM$)  @XdHX Y@I@I@(15Q DEFTRAN.TRAN1) NIL () DEFTRAN.TRAN1 D1 (P 5 ANSWER P 4 FN P 3 DEF P 2 LASTWRAPPER P 1 WRAPPERS P 0 NAME I 1 BODY I 0 PROTOCALL) 3 `@d@AAbY ZIA [dI kk2 ON&o_OOh__Ok_O&_OJoh [gghggghgggghhggKhgggghhgggghhgghhh[d Hg \ggghggHhgghgLhhgLKKhg7g5(343Q PACK* 334Q FIXEDITDATE 150Q \APPEND2 44Q LENGTH 36Q DEFLAMBDA 27Q LAST) (456Q $ARGS$ 446Q REST 422Q DEFINE2 406Q QUOTE 400Q TRAN 375Q QUOTE 366Q QUOTE 363Q PUTPROP 355Q COMPILE 352Q QUOTE 347Q PROGN 340Q .TRAN 310Q $TRAN$ 305Q RETURN 273Q $ANSWER$ 270Q CDR 265Q $TRAN$ 262Q RPLACD 250Q $ANSWER$ 245Q CAR 242Q $TRAN$ 237Q RPLACA 227Q $ANSWER$ 224Q SETQ 212Q $TRAN$ 207Q CDR 204Q $ARGS$ 201Q SETQ 173Q $ANSWER$ 170Q $ARGS$ 165Q PROG 160Q $TRAN$ 155Q NLAMBDA) ( 143Q (POP $ARGS$) 64Q (POP $ARGS$)) DEFCLISP.TRAN D1 (P 1 $ANSWER$ P 0 $ARGS$ I 0 $FORM$)  @XdHX Y@I@I@(15Q DEFCLISP.TRAN1) NIL () DEFCLISP.TRAN1 D1 (P 4 ANSWER P 3 ARGNAMES P 2 LASTWRAPPER P 1 WRAPPERS P 0 FN I 1 BODY I 0 PROTOCALL) |P@d@AAbY ZI [ggghggHhgghgKhhggHhgghggHhhHIA h(163Q DEFTRAN.TRAN1 35Q DEFARGNAMES 27Q LAST) (142Q DEFTRANSLATE 137Q QUOTE 131Q CLISPWORD 126Q QUOTE 117Q QUOTE 114Q PUTPROP 100Q QUOTE 72Q ARGNAMES 67Q QUOTE 60Q QUOTE 55Q PUTPROP 47Q COMPILE 44Q QUOTE 41Q PROGN) () DEFTRANSLATE D1 (I 0 SEX) @dg@@kH (26Q CLISPTRAN) (5 TRAN) () ECOMS D1 (P 4 EXPR P 2 FPKGFN P 1 EXPRS P 0 FILECOMS I 0 FILE) | 0@ Xdo @ YdKHd 1M1N h\ LgZHLlJHLlgK[d_OOh_^M]O&_(75Q EVAL 61Q SET 45Q GETTOPVAL 26Q EREADFILE 22Q SET 17Q COPY 6 FILECOMS) (123Q FPKGFN.P 103Q FPKGFN) ( 14Q ((CONSTANTS) (INITVARS) (RECORDS) (FNS) (P))) EFILE D1 (P 1 FILECOMS P 0 ULIST I 1 TOFILE I 0 FILE) ; @ A@ Xgg H b Yd@ A A (70Q MAKEFILE 64Q SETPROPLIST 61Q ROOTFILENAME 55Q SET 52Q GETTOPVAL 47Q FILECOMS 41Q FILECOMS 34Q PACKFILENAME 27Q LISTPUT 15Q UNPACKFILENAME 6 ECOMS) (24Q FPKG 21Q EXTENSION) () ELOADA0001 D1 (NAME ERRORSET L (0 NIL) P 1 FORM F 2 FILE F 3 RESETVARSLST F 4 FORMS F 5 EXPR F 6 EXPAND F 7 RESETY) \gR hhhScgg cR c c coTHY HXR ci(126Q CLOSEF 114Q EVAL 57Q DEFFORMS 52Q DEFEXPAND 45Q READ 36Q OPENSTREAM 25Q INPUT 6 INFILE) (33Q OLD 30Q INPUT 2 INPUT) ( 65Q (STOP)) ELOAD D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 FORMS P 1 EXPAND P 0 EXPR I 0 FILE F 6 LISPXHIST F 7 RESETVARSLST) '0V!Wog hg] Mh(43Q ERROR! 34Q RESETRESTORE 22Q ELOADA0001) (30Q ERROR 17Q INTERNAL) ( 14Q (ELOADA0001)) ECOMPL D1 (I 0 FILE) @ h(6 TCOMPL 3 EFILE) NIL () EREADFILEA0001 D1 (NAME ERRORSET F 0 FILE F 1 FORMS F 2 RESETVARSLST F 3 ANSWER F 4 EXPR F 5 EXPAND F 6 RESETY) CgP hhhRccP c c cSQ cQoP c i(75Q CLOSEF 56Q \NCONC2 46Q DEFFORMS 41Q DEFEXPAND 34Q READ 25Q INPUT 6 INFILE) (2 INPUT) ( 66Q (STOP)) EREADFILE D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 ANSWER P 2 FORMS P 1 EXPAND P 0 EXPR I 0 FILE F 7 LISPXHIST F 10Q RESETVARSLST) '@W!Wog hg^ NK(43Q ERROR! 35Q RESETRESTORE 23Q EREADFILEA0001) (31Q ERROR 20Q INTERNAL) ( 15Q (EREADFILEA0001)) EFREE D1 (P 4 FN P 3 ANSWER P 2 FREE P 1 FNS P 0 FILECOMS I 0 FILE) <@@ Xd H @ @g dL ZLJKK(50Q CALLS 35Q FILECOMSLST 25Q ECOMS 20Q GETTOPVAL 13Q BOUNDP 6 FILECOMS) (32Q FNS) () ECOMPARE D1 (P 0 FN I 1 FPKGFILE I 0 EMACSFILE) *@ @g dH HdghA h(41Q COMPARE 25Q DWIMIFY 12Q FILECOMSLST 3 ECOMS) (33Q FNS 7 FNS) () FPKGFN.P D1 (P 0 ALIST I 1 EXPR I 0 FILECOMS) 1@ XgH ghHXgH Ah @H h(55Q SET 47Q \NCONC2 40Q ASSOC 16Q ASSOC 6 GETTOPVAL) (34Q P 23Q P 12Q P) () FPKGFN.QUOTE D1 (L (1 EXPR 0 FILECOMS)) hNIL NIL () FPKGFN.FNS D1 (P 1 ALIST P 0 FN I 1 EXPR I 0 FILECOMS) T AdgdgAXgAX@ YgI ghIYgI Hh @I h(120Q SET 112Q \NCONC2 103Q ASSOC 61Q ASSOC 51Q GETTOPVAL 44Q SHOULDNT) (77Q FNS 66Q FNS 55Q FNS 31Q DEFINEQ 16Q DEFINE2 10Q DEFINE1) () FPKGFN.RECORDS D1 (P 1 ALIST P 0 NAME I 1 EXPR I 0 FILECOMS) 5 AX@ YgI ghIYgI Hh @I h(61Q SET 53Q \NCONC2 44Q ASSOC 22Q ASSOC 12Q GETTOPVAL) (40Q RECORDS 27Q RECORDS 16Q RECORDS) () FPKGFN.INITVARS D1 (P 0 ALIST I 1 EXPR I 0 FILECOMS) 2@ XgH ghHXgH Ah @H h(56Q SET 50Q \NCONC2 40Q ASSOC 16Q ASSOC 6 GETTOPVAL) (34Q INITVARS 23Q INITVARS 12Q INITVARS) () FPKGFN.CONSTANTS D1 (P 0 ALIST I 1 EXPR I 0 FILECOMS) 2@ XgH ghHXgH Ah @H h(56Q SET 50Q \NCONC2 40Q ASSOC 16Q ASSOC 6 GETTOPVAL) (34Q CONSTANTS 23Q CONSTANTS 12Q CONSTANTS) () FPKGFN.PROPS D1 (P 2 ALIST P 1 PROPNAME P 0 ATOM I 1 EXPR I 0 FILECOMS) B0AXAY@ ZgJ ghJZgJ HIhh @J h(76Q SET 70Q \NCONC2 55Q ASSOC 33Q ASSOC 23Q GETTOPVAL) (51Q PROPS 40Q PROPS 27Q PROPS) () DEFVAR.TRAN D1 (L (0 $TRAN$)) "@@XdHgJKhY@I@I@NIL (17Q RPAQ?) () DEFPROP.TRAN D1 (L (0 $TRAN$)) < @XdHXHggJhgKhgLhhY@I@I@NIL (45Q QUOTE 36Q QUOTE 27Q QUOTE 24Q PUTPROP) () DEFALIAS.TRAN D1 (L (0 $TRAN$)) @@XdHXHggghggKhgJhhggKhgghgJhhggJhgghgKhhhY@I@I@NIL (146Q QUOTE 140Q AKA 135Q QUOTE 126Q QUOTE 123Q PUTPROP 107Q QUOTE 101Q ALIAS 76Q QUOTE 67Q QUOTE 64Q PUTPROP 51Q QUOTE 42Q QUOTE 37Q MOVD 31Q COMPILE 26Q QUOTE 23Q PROGN) () <> D1 (I 1 ARG2 I 0 ARG1) @A h(4 IEQP) NIL () <>.TRAN D1 (L (0 $TRAN$)) (@@XdHggJKhhY@I@I@NIL (22Q IEQP 17Q NOT) () 1+$ D1 (L (0 ARG)) @oNIL NIL ( 4 1.0) 1+$.TRAN D1 (L (0 $TRAN$))  @dgIohX@H@H@NIL (12Q FPLUS) ( 17Q 1.0) 1-$ D1 (L (0 ARG)) @oNIL NIL ( 4 1.0) 1-$.TRAN D1 (L (0 $TRAN$))  @dgIohX@H@H@NIL (12Q FDIFFERENCE) ( 17Q 1.0) >=$ D1 (L (1 ARG2 0 ARG1)) A@hNIL NIL () >=$.TRAN D1 (L (0 $TRAN$)) (@@XdHggJKhhY@I@I@NIL (22Q FLESSP 17Q NOT) () <=$ D1 (L (1 ARG2 0 ARG1)) @AhNIL NIL () <=$.TRAN D1 (L (0 $TRAN$)) (@@XdHggJKhhY@I@I@NIL (22Q FGREATERP 17Q NOT) () <>$ D1 (I 1 ARG2 I 0 ARG1) @A h(4 FEQP) NIL () <>$.TRAN D1 (L (0 $TRAN$)) (@@XdHggJKhhY@I@I@NIL (22Q FEQP 17Q NOT) () EMACSIFYFN D1 (I 1 COMPLETELY I 0 FN) @g@g A @gg (33Q MARKASCHANGED 21Q PUTDEF 16Q EMACSIFY 12Q GETDEF) (30Q CHANGED 25Q FNS 7 FNS 3 FNS) () EMACSIFY D1 (P 2 TAIL P 1 EMACS P 0 ALIAS I 1 COMPLETELY I 0 EXPR) { @dldgA@g @@A@dlgX@l@gY@AlIb@b@ddgÿJJ@dA JZ(162Q EMACSIFY 34Q U-CASE) (135Q * 101Q EMACS 60Q ALIAS 27Q CLISPWORD 16Q CLISPWORD) () EMACSIFY.IF D1 (P 2 E P 1 BRANCH P 0 BRANCHES I 0 EXPR) t @`dJgJdggHXBg=Jdg4gJdgI HihgJdgI HhIYI HXd (161Q DREVERSE 152Q DREVERSE 130Q DREVERSE 77Q DREVERSE) (121Q ELSEIF 112Q elseif 70Q ELSE 61Q else 53Q THEN 43Q then 33Q COND 25Q IF 16Q if) () EMACSIFY.FETCH D1 (P 3 ANSWER P 2 DATUM P 1 TYPE.FIELD P 0 TYPE&FIELD I 1 COMPLETELY I 0 EXPR) H@@l X@l ZHlH HhAHoH JhgHgJh(63Q PACK* 34Q FIELDLOOK 20Q NTH 10Q NTH) (77Q of 73Q fetch) ( 55Q ".") EMACSIFY.REPLACE D1 (P 4 ANSWER P 3 NEWVALUE P 2 DATUM P 1 TYPE.FIELD P 0 TYPE&FIELD I 1 COMPLETELY I 0 EXPR) `P@l X@l Z@l [HlH HhAHoH JhgLKhgHgJgKh(73Q PACK* 44Q FIELDLOOK 30Q NTH 20Q NTH 10Q NTH) (125Q with 121Q of 115Q replace 103Q SETF) ( 65Q ".") EMACSIFY.FFETCH D1 (P 3 ANSWER P 2 DATUM P 1 TYPE.FIELD P 0 TYPE&FIELD I 1 COMPLETELY I 0 EXPR) H@@l X@l ZHlH HhAHoH JhgHgJh(63Q PACK* 34Q FIELDLOOK 20Q NTH 10Q NTH) (77Q of 73Q ffetch) ( 55Q ".") EMACSIFY.FREPLACE D1 (P 4 ANSWER P 3 NEWVALUE P 2 DATUM P 1 TYPE.FIELD P 0 TYPE&FIELD I 1 COMPLETELY I 0 EXPR) `P@l X@l Z@l [HlH HhAHoH JhgLKhgHgJgKh(73Q PACK* 44Q FIELDLOOK 30Q NTH 20Q NTH 10Q NTH) (125Q with 121Q of 115Q freplace 103Q SETF) ( 65Q ".") EMACSIFY.NEQ D1 (L (0 EXPR))  @X@YggHIhhNIL (21Q EQ 16Q NOT) () EMACSIFY.PROG D1 (P 2 ANSWER P 1 BODY P 0 VARS I 0 EXPR) PP@X@YH [0H)\gLIKddlNMh_M&OXgHI(16Q REVERSE) (111Q PROG 37Q SETQ) () EMACSIFY.SETA D1 (I 1 COMPLETELY I 0 EXPR) *A&gg@l @l h@l h@(40Q NTH 25Q NTH 16Q NTH) (10Q ELT 5 SETF) () (PRETTYCOMPRINT EMACSUSERCOMS) (RPAQQ EMACSUSERCOMS ((* EMACSUSER -- By Kelly Roach. Defines a programming environment suitable for users who wish to do their coding in EMACS. *) (COMS (* EMACSUTI1 *) (PROPS (DEFINE1 ARGNAMES) ( DEFINE2 ARGNAMES) (DEFEXPR ARGNAMES) (DEFEXPR TRAN) (DEFEXPR CLISPWORD) (DEFFEXPR ARGNAMES) (DEFFEXPR TRAN) (DEFFEXPR CLISPWORD) (DEFFEXPR ARGNAMES) (DEFTRAN ARGNAMES) (DEFTRAN TRAN) (DEFTRAN CLISPWORD) ( DEFCLISP ARGNAMES) (DEFCLISP TRAN) (DEFCLISP CLISPWORD)) (FNS DEFHELPER DEFEXPAND DEFEXPANDFN DEFFORMS DEFINE1 DEFINE2 DEFEXPR.TRAN DEFEXPR.TRAN1 DEFFEXPR.TRAN DEFFEXPR.TRAN1 DEFARGNAMES DEFLAMBDA DEFTRAN.TRAN DEFTRAN.TRAN1 DEFCLISP.TRAN DEFCLISP.TRAN1 DEFTRANSLATE)) (COMS (* EMACSUTI2 *) (PROPS ( QUOTE FPKGFN) (DEFINEQ FPKGFN) (DEFINE1 FPKGFN) (DEFINE2 FPKGFN) (DATATYPE FPKGFN) (RECORD FPKGFN) ( TYPERECORD FPKGFN) (ACCESSFNS FPKGFN) (BLOCKRECORD FPKGFN) (RPAQ? FPKGFN) (DEFCONST FPKGFN) (PUTPROP FPKGFN) (DEFVAR TRAN) (DEFPROP ARGNAMES) (DEFPROP CLISPWORD) (DEFPROP TRAN) (DEFALIAS ARGNAMES) ( DEFALIAS CLISPWORD) (DEFALIAS TRAN) (IPLUS ALIAS) (+ AKA) (IDIFFERENCE ALIAS) (- AKA) (IMINUS ALIAS) ( 0- AKA) (ADD1 ALIAS) (1+ AKA) (SUB1 ALIAS) (1- AKA) (ITIMES ALIAS) (x AKA) (IQUOTIENT ALIAS) (/ AKA) ( IREMAINDER ALIAS) (\ AKA) (IGREATERP ALIAS) (> AKA) (ILESSP ALIAS) (< AKA) (IGEQ ALIAS) (>= AKA) (ILEQ ALIAS) (<= AKA) (IEQP ALIAS) (= AKA) (<> TRAN) (FPLUS ALIAS) (+$ AKA) (FDIFFERENCE ALIAS) (-$ AKA) ( FMINUS ALIAS) (0-$ AKA) (1+$ TRAN) (1-$ TRAN) (FTIMES ALIAS) (x$ AKA) (FQUOTIENT ALIAS) (/$ AKA) ( FREMAINDER ALIAS) (\$ AKA) (FGREATERP ALIAS) (>$ AKA) (FLESSP ALIAS) (<$ AKA) (>=$ TRAN) (<=$ TRAN) ( FEQP ALIAS) (=$ AKA) (<>$ TRAN)) (FNS ECOMS EFILE ELOAD ECOMPL EREADFILE EFREE ECOMPARE FPKGFN.P FPKGFN.QUOTE FPKGFN.FNS FPKGFN.RECORDS FPKGFN.INITVARS FPKGFN.CONSTANTS FPKGFN.PROPS DEFVAR.TRAN DEFPROP.TRAN DEFALIAS.TRAN <> <>.TRAN 1+$ 1+$.TRAN 1-$ 1-$.TRAN >=$ >=$.TRAN <=$ <=$.TRAN <>$ <>$.TRAN ) (P (MOVD (QUOTE RPAQ?) (QUOTE DEFVAR)) (MOVD (QUOTE RPAQ?) (QUOTE DEFCONST)) (MOVD (QUOTE IPLUS) ( QUOTE +)) (MOVD (QUOTE IDIFFERENCE) (QUOTE -)) (MOVD (QUOTE IMINUS) (QUOTE 0-)) (MOVD (QUOTE ADD1) ( QUOTE 1+)) (MOVD (QUOTE SUB1) (QUOTE 1-)) (MOVD (QUOTE ITIMES) (QUOTE x)) (MOVD (QUOTE IQUOTIENT) ( QUOTE /)) (MOVD (QUOTE IREMAINDER) (QUOTE \)) (MOVD (QUOTE IGREATERP) (QUOTE >)) (MOVD (QUOTE ILESSP) (QUOTE <)) (MOVD (QUOTE IGEQ) (QUOTE >=)) (MOVD (QUOTE ILEQ) (QUOTE <=)) (MOVD (QUOTE IEQP) (QUOTE =)) (MOVD (QUOTE FPLUS) (QUOTE +$)) (MOVD (QUOTE FDIFFERENCE) (QUOTE -$)) (MOVD (QUOTE FMINUS) (QUOTE 0-$ )) (MOVD (QUOTE FTIMES) (QUOTE x$)) (MOVD (QUOTE FQUOTIENT) (QUOTE /$)) (MOVD (QUOTE FREMAINDER) ( QUOTE \$)) (MOVD (QUOTE FGREATERP) (QUOTE >$)) (MOVD (QUOTE FLESSP) (QUOTE <$)) (MOVD (QUOTE FEQP) ( QUOTE =$)))) (COMS (* EMACSIFY *) (PROPS (if EMACS) (IF EMACS) (fetch EMACS) (ffetch EMACS) (FETCH EMACS) (FFETCH EMACS) (replace EMACS) (freplace EMACS) (REPLACE EMACS) (FREPLACE EMACS) (NEQ EMACS) ( PROG EMACS) (SETA EMACS)) (FNS EMACSIFYFN EMACSIFY EMACSIFY.IF EMACSIFY.FETCH EMACSIFY.REPLACE EMACSIFY.FFETCH EMACSIFY.FREPLACE EMACSIFY.NEQ EMACSIFY.PROG EMACSIFY.SETA)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DEFINE2 DEFINE1) (NLAML <>$.TRAN <=$.TRAN >=$.TRAN 1-$.TRAN 1+$.TRAN <>.TRAN DEFALIAS.TRAN DEFPROP.TRAN DEFVAR.TRAN DEFTRANSLATE DEFCLISP.TRAN DEFTRAN.TRAN DEFFEXPR.TRAN DEFEXPR.TRAN) (LAMA))))) (PUTPROPS DEFINE1 ARGNAMES (FN VARS . BODY)) (PUTPROPS DEFINE2 ARGNAMES (FN VARS . BODY)) (PUTPROPS DEFEXPR ARGNAMES (FN VARS . BODY)) (PUTPROPS DEFEXPR TRAN DEFEXPR.TRAN) (PUTPROPS DEFEXPR CLISPWORD (DEFTRANSLATE . DEFEXPR)) (PUTPROPS DEFFEXPR ARGNAMES (FN VARS . BODY)) (PUTPROPS DEFFEXPR TRAN DEFFEXPR.TRAN) (PUTPROPS DEFFEXPR CLISPWORD (DEFTRANSLATE . DEFFEXPR)) (PUTPROPS DEFFEXPR ARGNAMES (FN VARS . BODY)) (PUTPROPS DEFTRAN ARGNAMES (FN VARS . BODY)) (PUTPROPS DEFTRAN TRAN DEFTRAN.TRAN) (PUTPROPS DEFTRAN CLISPWORD (DEFTRANSLATE . DEFTRAN)) (PUTPROPS DEFCLISP ARGNAMES (FN VARS . BODY)) (PUTPROPS DEFCLISP TRAN DEFCLISP.TRAN) (PUTPROPS DEFCLISP CLISPWORD (DEFTRANSLATE . DEFCLISP)) (PUTPROPS QUOTE FPKGFN FPKGFN.QUOTE) (PUTPROPS DEFINEQ FPKGFN FPKGFN.FNS) (PUTPROPS DEFINE1 FPKGFN FPKGFN.FNS) (PUTPROPS DEFINE2 FPKGFN FPKGFN.FNS) (PUTPROPS DATATYPE FPKGFN FPKGFN.RECORDS) (PUTPROPS RECORD FPKGFN FPKGFN.RECORDS) (PUTPROPS TYPERECORD FPKGFN FPKGFN.RECORDS) (PUTPROPS ACCESSFNS FPKGFN FPKGFN.RECORDS) (PUTPROPS BLOCKRECORD FPKGFN FPKGFN.RECORDS) (PUTPROPS RPAQ? FPKGFN FPKGFN.INITVARS) (PUTPROPS DEFCONST FPKGFN FPKGFN.CONSTANTS) (PUTPROPS PUTPROP FPKGFN FPKGFN.PROPS) (PUTPROPS DEFVAR TRAN DEFVAR.TRAN) (PUTPROPS DEFPROP ARGNAMES (ATOM PROP VALUE)) (PUTPROPS DEFPROP CLISPWORD (DEFTRANSLATE . DEFPROP)) (PUTPROPS DEFPROP TRAN DEFPROP.TRAN) (PUTPROPS DEFALIAS ARGNAMES (ALIAS AKA)) (PUTPROPS DEFALIAS CLISPWORD (DEFTRANSLATE . DEFALIAS)) (PUTPROPS DEFALIAS TRAN DEFALIAS.TRAN) (PUTPROPS IPLUS ALIAS +) (PUTPROPS + AKA IPLUS) (PUTPROPS IDIFFERENCE ALIAS -) (PUTPROPS - AKA IDIFFERENCE) (PUTPROPS IMINUS ALIAS 0-) (PUTPROPS 0- AKA IMINUS) (PUTPROPS ADD1 ALIAS 1+) (PUTPROPS 1+ AKA ADD1) (PUTPROPS SUB1 ALIAS 1-) (PUTPROPS 1- AKA SUB1) (PUTPROPS ITIMES ALIAS x) (PUTPROPS x AKA ITIMES) (PUTPROPS IQUOTIENT ALIAS /) (PUTPROPS / AKA IQUOTIENT) (PUTPROPS IREMAINDER ALIAS \) (PUTPROPS \ AKA IREMAINDER) (PUTPROPS IGREATERP ALIAS >) (PUTPROPS > AKA IGREATERP) (PUTPROPS ILESSP ALIAS <) (PUTPROPS < AKA ILESSP) (PUTPROPS IGEQ ALIAS >=) (PUTPROPS >= AKA IGEQ) (PUTPROPS ILEQ ALIAS <=) (PUTPROPS <= AKA ILEQ) (PUTPROPS IEQP ALIAS =) (PUTPROPS = AKA IEQP) (PUTPROPS <> TRAN <>.TRAN) (PUTPROPS FPLUS ALIAS +$) (PUTPROPS +$ AKA FPLUS) (PUTPROPS FDIFFERENCE ALIAS -$) (PUTPROPS -$ AKA FDIFFERENCE) (PUTPROPS FMINUS ALIAS 0-$) (PUTPROPS 0-$ AKA FMINUS) (PUTPROPS 1+$ TRAN 1+$.TRAN) (PUTPROPS 1-$ TRAN 1-$.TRAN) (PUTPROPS FTIMES ALIAS x$) (PUTPROPS x$ AKA FTIMES) (PUTPROPS FQUOTIENT ALIAS /$) (PUTPROPS /$ AKA FQUOTIENT) (PUTPROPS FREMAINDER ALIAS \$) (PUTPROPS \$ AKA FREMAINDER) (PUTPROPS FGREATERP ALIAS >$) (PUTPROPS >$ AKA FGREATERP) (PUTPROPS FLESSP ALIAS <$) (PUTPROPS <$ AKA FLESSP) (PUTPROPS >=$ TRAN >=$.TRAN) (PUTPROPS <=$ TRAN <=$.TRAN) (PUTPROPS FEQP ALIAS =$) (PUTPROPS =$ AKA FEQP) (PUTPROPS <>$ TRAN <>$.TRAN) (MOVD (QUOTE RPAQ?) (QUOTE DEFVAR)) (MOVD (QUOTE RPAQ?) (QUOTE DEFCONST)) (MOVD (QUOTE IPLUS) (QUOTE +)) (MOVD (QUOTE IDIFFERENCE) (QUOTE -)) (MOVD (QUOTE IMINUS) (QUOTE 0-)) (MOVD (QUOTE ADD1) (QUOTE 1+)) (MOVD (QUOTE SUB1) (QUOTE 1-)) (MOVD (QUOTE ITIMES) (QUOTE x)) (MOVD (QUOTE IQUOTIENT) (QUOTE /)) (MOVD (QUOTE IREMAINDER) (QUOTE \)) (MOVD (QUOTE IGREATERP) (QUOTE >)) (MOVD (QUOTE ILESSP) (QUOTE <)) (MOVD (QUOTE IGEQ) (QUOTE >=)) (MOVD (QUOTE ILEQ) (QUOTE <=)) (MOVD (QUOTE IEQP) (QUOTE =)) (MOVD (QUOTE FPLUS) (QUOTE +$)) (MOVD (QUOTE FDIFFERENCE) (QUOTE -$)) (MOVD (QUOTE FMINUS) (QUOTE 0-$)) (MOVD (QUOTE FTIMES) (QUOTE x$)) (MOVD (QUOTE FQUOTIENT) (QUOTE /$)) (MOVD (QUOTE FREMAINDER) (QUOTE \$)) (MOVD (QUOTE FGREATERP) (QUOTE >$)) (MOVD (QUOTE FLESSP) (QUOTE <$)) (MOVD (QUOTE FEQP) (QUOTE =$)) (PUTPROPS if EMACS EMACSIFY.IF) (PUTPROPS IF EMACS EMACSIFY.IF) (PUTPROPS fetch EMACS EMACSIFY.FETCH) (PUTPROPS ffetch EMACS EMACSIFY.FFETCH) (PUTPROPS FETCH EMACS EMACSIFY.FETCH) (PUTPROPS FFETCH EMACS EMACSIFY.FFETCH) (PUTPROPS replace EMACS EMACSIFY.REPLACE) (PUTPROPS freplace EMACS EMACSIFY.FREPLACE) (PUTPROPS REPLACE EMACS EMACSIFY.REPLACE) (PUTPROPS FREPLACE EMACS EMACSIFY.FREPLACE) (PUTPROPS NEQ EMACS EMACSIFY.NEQ) (PUTPROPS PROG EMACS EMACSIFY.PROG) (PUTPROPS SETA EMACS EMACSIFY.SETA) (PUTPROPS EMACSUSER COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL