(FILECREATED "17-Jun-86 15:14:02" ("compiled on " {ERIS}SOURCES>WEDIT.;21) "11-Jun-86 13:27:02" brecompiled changes: EDITDATE? EDITDATE SETINITIALS in "Xerox Lisp 11-Jun-86 ..." dated "11-Jun-86 13:41:17") (FILECREATED "17-Jun-86 15:13:11" {ERIS}SOURCES>WEDIT.;21 47100 changes to: (FNS EDITDATE EDITDATE? SETINITIALS) (VARS WEDITCOMS) previous date: "10-Jun-86 18:54:03" {ERIS}SOURCES>WEDIT.;17) SETTERMCHARS D1 (L (5 PPCHAR 4 2CHAR 3 UNQUOTECHAR 2 LASTCHAR 1 BKCHAR 0 NEXTCHAR)) @ bB bsD bVA b9C bE b do` Eg oi Ci` o` Ag o` Dg o` Bg |o` f(244Q /SETSYNTAX 226Q /ECHOCONTROL 216Q /SETSYNTAX 201Q /ECHOCONTROL 171Q /SETSYNTAX 154Q /ECHOCONTROL 144Q /SETSYNTAX 127Q /SETSYNTAX 116Q /SETSYNTAX 105Q /ECHOCONTROL 76Q /SETSYNTAX 57Q \SETTERMCHARS/INTCHECK 47Q \SETTERMCHARS/INTCHECK 37Q \SETTERMCHARS/INTCHECK 27Q \SETTERMCHARS/INTCHECK 17Q \SETTERMCHARS/INTCHECK 3 \SETTERMCHARS/INTCHECK) (241Q EDITRDTBL 223Q IGNORE 213Q EDITRDTBL 176Q IGNORE 166Q EDITRDTBL 151Q IGNORE 141Q EDITRDTBL 124Q EDITRDTBL 102Q IGNORE 73Q EDITRDTBL) ( 236Q (MACRO FIRST IMMEDIATE (LAMBDA NIL (CHARMACRO NXP))) 210Q (MACRO FIRST IMMEDIATE (LAMBDA NIL (CHARMACRO -1P))) 163Q (MACRO FIRST IMMEDIATE (LAMBDA NIL (CHARMACRO 2P))) 136Q (MACRO FIRST IMMEDIATE ESCQUOTE (LAMBDA NIL (CHARMACRO BKP))) 112Q (MACRO FIRST (LAMBDA (FILE RDTBL) (EVAL (READ FILE RDTBL)))) 70Q (SPLICE FIRST IMMEDIATE ESCQUOTE (LAMBDA NIL (TERPRI T) (## PP*) (PRIN1 (QUOTE *) T) NIL))) \SETTERMCHARS/INTCHECK D1 (L (0 CHAR)) @!HdXhHd3 Xl@Hl@XH H@Ioi Hl@Zdl l9`Jl ٍl0JJl0ل`Ji oi i hYH H3 I Yl@Il@ـIH (230Q HELP 223Q INTCHAR 204Q CHCON1 172Q INTCHAR 157Q TERPRI 152Q PRIN1 141Q PRIN1 100Q CHARACTER 62Q PRIN1 43Q GETINTERRUPT 24Q CHCON1) (133Q \OneCharAtomBase 111Q \OneCharAtomBase) ( 146Q " is an interrupt and can't be an edit control-character" 56Q "control-") CHARMACRO D1 (L (0 X)) i @(3 TERPRI) NIL () FIRSTATOM D1 (L (0 X)) @@bNIL NIL () NEGATE D1 (L (0 X)) ,@dgdg@dgg@ dgg@ dg#@@g@bg@ dg8g@@@!d[dK  IHhZH&Jdg@ dgg@ @dg@hg@hh `H%h @h@ih@d3h g@hYd@@@I@HX(335Q MKPROGN 332Q \APPEND2 272Q NEGATE 251Q MKPROGN 246Q \NEGATE/NEGL 205Q NEGATE 177Q \NEGATE/NEGL 133Q \NEGATE/NEGC 63Q \NEGATE/NEGLST 42Q \NEGATE/NEGLST) (406Q NOT 341Q NEGATIONS 320Q CONS 304Q QUOTE 264Q PROG1 256Q PROG1 236Q PROGN 150Q SELECTQ 141Q SELECTQ 126Q COND 113Q AND 71Q COND 56Q AND 50Q OR 35Q OR 27Q AND 14Q NULL 6 NOT) () \NEGATE/NEGL D1 (L (0 L)) @d h@ (20Q \NEGATE/NEGL 7 NEGATE) NIL () \NEGATE/NEGLST D1 (L (0 L)) 0@d IHhZH&J(12Q NEGATE) NIL () \NEGATE/NEGC D1 (L (0 X)) J@ idhh"@ @h@ bg@hh@@ @ih@ (106Q \NEGATE/NEGC 67Q \NEGATE/NEGL 37Q \NEGATE/NEGC 24Q NEGATE) (46Q COND) () MKPROGN D1 (L (0 L)) @ bdg@(3 \MKPROGN/MKPROGN1) (14Q PROGN) () \MKPROGN/MKPROGN1 D1 (L (0 L)) m@d@dg@b@dg)dg"dgdgdgdgdg@@ bg@b@@ (151Q \MKPROGN/MKPROGN1 123Q \APPEND2) (132Q QUOTE 110Q NULL 102Q NOT 74Q CDR 65Q CAR 56Q CONS 47Q LIST 40Q PROGN 13Q PROGN) () MAKEFNA0001 D1 (NAME ERRORSET F 0 A F 1 ACTUAL F 2 BODY) PQR i(7 ESUBST) NIL () MAKEFN D1 (L (1 ARGLIST 0 FORM) P 1 ACTUAL P 0 A I 2 BODY) @lB BA @Bhi A@@ddl@oi IGH-AIlIodAhhX bHIoi HIY@gABhhi h(224Q DEFINE 171Q MAKEFNA0001 150Q \NCONC2 142Q GENSYM 70Q ERROR 33Q DEFINE 13Q FNTYP) (207Q LAMBDA) ( 165Q (MAKEFNA0001) 121Q (X Y Z A B C D) 64Q "? ") EDITGETD D1 (L (1 EDITCHAIN 0 X)) @@!HdH@ g#@iAo H@@@`d Hd @ g'Y@kIHghg Y/H YdOdg4I@Zddi3 gJh gII@ gIdd@II@ (317Q EDITGETD-LAMBDA 257Q EDITGETD-LAMBDA 232Q EDITGETD-LAMBDA 162Q GETDEF 153Q GETDEF 120Q COPY 115Q MACROEXPAND-1 107Q MACRO-FUNCTION 101Q COPY 55Q DWIMIFY 32Q EDITGETD-LAMBDA) (264Q LAMBDA 237Q DEFUN 223Q QUOTE 173Q NLAMBDA 150Q NOERROR 144Q FUNCTIONS 130Q EDITGETD 70Q CLISPARRAY 36Q CLISPWORD) ( 52Q (NIL)) EDITGETD-LAMBDA D1 (L (3 DONE 2 VALS 1 BODY 0 ARGS)) @CgC AA #@AB@B@hCbbbb@dgdg@bdg@BA hbbbdgdg#@Ah@gBhCbbbbn@B@BhCbbbU(134Q \APPEND2 23Q MKPROGN 13Q REVERSE) (200Q LIST 161Q &REST 153Q &BODY 122Q &AUX 105Q &OPTIONAL 77Q &ALLOW-OTHER-KEYS 7 LET) () EDITGETD-LET D1 (L (0 FORM)) E0@dIHhZH&J0@dIHhZH&J@ (102Q MKPROGN 77Q SUBPAIR) NIL () MAKECOM D1 (L (1 VALS 0 VAR) F 5 COM) ~h Hc hH Yd@c I@hI bI!lJh@.AHddKhHKAdhgLAdh HXhLKkػJZ(151Q \NCONC2 70Q ERROR! 51Q ERROR! 43Q FIXSPELL 40Q \APPEND2 17Q SMARTARGLIST 3 ##) (136Q N) () SWAPPEDCOND D1 (L (0 CND) F 3 L) @dgdg"@iS @dg`  gW@@@HgH JiJ IhgIhHddgHhiHh(214Q SHOULDNT 120Q NEGATE 107Q ERROR! 55Q COND.TO.IF 51Q SWAPPEDCOND 46Q ERROR! 25Q DWIMIFY) (161Q COND 140Q COND 113Q COND 61Q COND 40Q CLISPARRAY 33Q COND 13Q if 5 IF) () COND.TO.IF D1 (L (0 CONDCLAUSES)) Lg@@4d[iK@gKgKK gK XIHZYJ YH(105Q LAST 54Q \APPEND2) (47Q then 36Q elseif 27Q else 2 if) () FIXEDITDATE D1 (L (0 EXPR)) `@@`@ @HhNHdgdgHXdgHdg&XgHd`dgXHH Hd` ` H @(224Q /ATTACH 220Q EDITDATE 211Q /RPLACA 206Q EDITDATE 173Q EDITDATE?) (215Q INITIALS 203Q INITIALS 153Q DECLARATIONS: 142Q COMMENTFLG 130Q ADV-PROG 113Q PROGN 76Q BREAK1 62Q DECLARE 54Q CLISP: 15Q LAMBDASPLST 2 INITIALS) () EDITDATE? D1 (L (0 COMMENT)) w@s@H`` H`iV@Q@K@hC@;@H`` H`ihH`HlH l H (163Q NCHARS) (136Q INITIALS 122Q COMMENTFLG 113Q COMMENTFLG 105Q COMMENTFLG 31Q COMMENTFLG 22Q COMMENTFLG 14Q COMMENTFLG) () EDITDATE D1 (L (1 INITLS 0 OLDATE)) 8Ao h@Y``dI`@H ``H(50Q /RPLACD 7 DATE) (63Q COMMENTFLG 54Q COMMENTFLG 41Q COMMENTFLG 31Q COMMENTFLG 24Q COMMENTFLG) ( 4 (DATEFORMAT NO.SECONDS)) SETINITIALSA0001 D1 (NAME ERRORSET L (0 NIL) F 4 DEFAULTREGISTRY) ihdi 1oH YTHIkm T HkIk `[h4JgJ;HJ JiKgJ gJg`di`H h(207Q SAVESET 204Q MKATOM 147Q SAVESET 123Q STRING-EQUAL 64Q SUBSTRING 53Q STRING-EQUAL 47Q SUBSTRING 30Q STRPOS 15Q USERNAME) (177Q DEFAULTINITIALS 167Q DEFAULTINITIALS 164Q INITIALS 153Q INITIALS 141Q FIRSTNAME 107Q INITIALS 70Q INITIALSLST 10Q FILEPKGFLG 3 DFNFLG) ( 24Q ".") SETINITIALS D1 (F 2 RESETVARSLST) Tg`g`RcRYog HHXIdRHcR RkI H(120Q ERROR! 107Q NLEFT 100Q TAILP 41Q SETINITIALSA0001) (60Q FILEPKGFLG 47Q DFNFLG 36Q INTERNAL 14Q FILEPKGFLG 11Q FILEPKGFLG 5 DFNFLG 2 DFNFLG) ( 33Q (SETINITIALSA0001)) (PRETTYCOMPRINT WEDITCOMS) (RPAQQ WEDITCOMS ((VARS EDITOPS MAXLOOP (EDITRACEFN) (UPFINDFLG T) MAXLEVEL FINDFLAG (EDITQUIETFLG)) ( INITVARS (EDITSMASHUSERFN) (EDITEMBEDTOKEN (QUOTE &)) (EDITUSERFN) (CHANGESARRAY) (EDITUNSAVEBLOCKFLG T) (EDITLOADFNSFLG (QUOTE (T)))) (INITVARS (EDITMACROS) (USERMACROS)) (ADDVARS (HISTORYCOMS ?? REDO REPEAT FIX USE ... NAME RETRIEVE DO !N !E !F TYPE-AHEAD  BUFS ;) (DONTSAVEHISTORYCOMS SAVE P ? PP PP* E ;) (EDITCOMSA OK STOP SAVE TTY: E ? PP PP* PPV P ^ !0 MARK UNDO !UNDO TEST UNBLOCK _ \ \P __ F BF UP DELETE NX BK !NX ?? REDO REPEAT FIX USE NAME RETRIEVE DO !N !E !F TYPE-AHEAD) (EDITCOMSL S R R1 RC RC1 E I N P F FS F= ORF BF NTH IF RI RO LI LO BI BO M NX BK ORR MBD XTR THRU TO A B : AFTER BEFORE MV LP LPQ LC LCL _ BELOW SW BIND COMS ORIGINAL INSERT REPLACE CHANGE DELETE EMBED SURROUND MOVE EXTRACT SWITCH ?? REDO REPEAT FIX USE NAME RETRIEVE DO MARK \)) (USERMACROS CAP LOWER RAISE 2ND 3RD %%F %% NEX REPACK * >* SHOW EXAM PP*) (COMS (* * "control chars for moving around in the editor") (FNS SETTERMCHARS INTCHECK CHARMACRO) (INITVARS (EDITCHARACTERS)) (VARS NEGATIONS) (USERMACROS 2P NXP BKP -1P) (ADDVARS (COMPACTHISTORYCOMS 2P NXP BKP -1P)) (DECLARE: DONTCOPY (MACROS CFOBF)) (BLOCKS ( SETTERMCHARS SETTERMCHARS INTCHECK (NOLINKFNS . T) (GLOBALVARS EDITRDTBL)) (NIL CHARMACRO (LOCALVARS . T)))) (COMS (* * "macros for calling editor") (USERMACROS EF EV EP) (ADDVARS (DONTSAVEHISTORYCOMS EF EV EP)) (FNS FIRSTATOM) (BLOCKS (NIL FIRSTATOM (LOCALVARS . T)))) (COMS (* * "Misc edit macros") ( USERMACROS EVAL Q GETD GETVAL MAKEFN D NEGATE GO SWAP MAKE SWAPC IFY SPLITC JOINC) (FNS MAKEFN EDITGETD EDITGETD-LAMBDA EDITGETD-LET NEGATE NEGL NEGLST NEGC MKPROGN MKPROGN1 MAKECOM SWAPPEDCOND COND.TO.IF) (PROP EDITGETD LET CL:IF) (BLOCKS (NEGATE NEGATE NEGL NEGLST NEGC (NOLINKFNS . T) ( GLOBALVARS NEGATIONS)) (MKPROGN MKPROGN MKPROGN1 (NOLINKFNS . T)))) (GLOBALVARS CLISPARRAY MACROPROPS) (LOCALVARS . T) (COMS (* * "Time stamp on functions when edited") (* * "User enables this by an (ADDTOVAR INITIALSLIST (USERNAME )) in his INIT.LISP. E.g. (ADDTOVAR INITIALSLIST (MASINTER )) The date fixup is enabled by the variable INITIALS. The function SETINITIALS sets INITIALS from INITIALSLIST and USERNAME at load time, and after a sysin." ) (FNS FIXEDITDATE EDITDATE? EDITDATE SETINITIALS) (INITVARS (INITIALS) (INITIALSLST) (DEFAULTINITIALS T))) (GLOBALVARS LAMBDASPLST NORMALCOMMENTSFLG COMMENTFLG FIRSTNAME INITIALS INITIALSLST DEFAULTINITIALS FILEPKGFLG DFNFLG) (P (MOVD? (QUOTE NILL) (QUOTE PREEDITFN))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML MAKECOM CHARMACRO) (LAMA))))) (RPAQQ EDITOPS ((INSERT (BEFORE AFTER FOR) (EDIT: #2 #3 #1)) (REPLACE (WITH BY) (EDIT: : #1 #3)) ( CHANGE (TO) (EDIT: : #1 #3)) (DELETE NIL (EDIT: : #1)) (EMBED (IN WITH) (EDITMBD #1 #3)) (SURROUND ( WITH IN) (EDITMBD #1 #3)) (MOVE (TO) (EDITMV #1 (CAR #3) (CDR #3))) (EXTRACT (FROM) (EDITXTR #3 #1)) ( SWITCH (AND) (EDITSW #1 #3)))) (RPAQQ MAXLOOP 30) (RPAQQ EDITRACEFN NIL) (RPAQQ UPFINDFLG T) (RPAQQ MAXLEVEL 300) (RPAQQ FINDFLAG NIL) (RPAQQ EDITQUIETFLG NIL) (RPAQ? EDITSMASHUSERFN) (RPAQ? EDITEMBEDTOKEN (QUOTE &)) (RPAQ? EDITUSERFN) (RPAQ? CHANGESARRAY) (RPAQ? EDITUNSAVEBLOCKFLG T) (RPAQ? EDITLOADFNSFLG (QUOTE (T))) (RPAQ? EDITMACROS) (RPAQ? USERMACROS) (ADDTOVAR HISTORYCOMS ?? REDO REPEAT FIX USE ... NAME RETRIEVE DO !N !E !F TYPE-AHEAD  BUFS ;) (ADDTOVAR DONTSAVEHISTORYCOMS SAVE P ? PP PP* E ;) (ADDTOVAR EDITCOMSA OK STOP SAVE TTY: E ? PP PP* PPV P ^ !0 MARK UNDO !UNDO TEST UNBLOCK _ \ \P __ F BF UP DELETE NX BK !NX ?? REDO REPEAT FIX USE NAME RETRIEVE DO !N !E !F TYPE-AHEAD) (ADDTOVAR EDITCOMSL S R R1 RC RC1 E I N P F FS F= ORF BF NTH IF RI RO LI LO BI BO M NX BK ORR MBD XTR THRU TO A B : AFTER BEFORE MV LP LPQ LC LCL _ BELOW SW BIND COMS ORIGINAL INSERT REPLACE CHANGE DELETE EMBED SURROUND MOVE EXTRACT SWITCH ?? REDO REPEAT FIX USE NAME RETRIEVE DO MARK \) (ADDTOVAR EDITMACROS (EXAM X (F (*ANY* . X) T) (BIND (LPQ (MARK #1) (ORR (1 !0 P) NIL) (MARK #2) TTY: (MARK #3) (IF (EQ (## (\ #3)) (## (\ #2))) ((\ #1)) NIL) (F (*ANY* . X) N))) (E (QUOTE done))) (>* (X) (BIND (MARK #1) 0 (_ ((*ANY* PROG PROGN COND SELECTQ LAMBDA NLAMBDA ASSEMBLE) --)) (MARK #2) (E (SETQ #3 (SELECTQ (## 1) ((COND SELECTQ) 2) 1)) T) (\ #1) (ORR (1 1) (1) NIL) (BELOW (\ #2) #3) (IF (QUOTE X) ((ORR (NX (B X)) ((IF (EQ (## (\ #2) 0 1) (QUOTE PROG)) NIL (BK)) (A X)) ((\ #2) (>* X)))) NIL))) ( LOWER NIL UP (I 1 (L-CASE (## 1))) 1) (CAP NIL UP (I 1 (L-CASE (## 1) T)) 1) (REPACK NIL (IF (LISTP ( ##)) (1) NIL) (I : ((LAMBDA (X Y) (SETQ COM (QUOTE REPACK)) (SETQ Y (APPLY (QUOTE CONCAT) (EDITE ( UNPACK X)))) (COND ((NOT (STRINGP X)) (SETQ Y (MKATOM Y)))) (PRINT Y T T)) (##)))) (* X MARK (ORR ((I >* (COND ((RAISEP) (CONS (QUOTE *) (CONS (QUOTE %%) (QUOTE X)))) (T (CONS (QUOTE *) (QUOTE X)))))) ((E (QUOTE CAN'T)))) __) (LOWER (C) (I R (QUOTE C) (L-CASE (QUOTE C)))) (RAISE (C) (I R (L-CASE (QUOTE C) ) (QUOTE C))) (RAISE NIL UP (I 1 (U-CASE (## 1))) 1) (2ND X (ORR ((LC . X) (LC . X)))) (3RD X (ORR (( LC . X) (LC . X) (LC . X)))) (%%F (X Y) (E (EDITQF (L-CASE (QUOTE X) (QUOTE Y))) T)) (%% X (COMS (CONS (CAR (QUOTE X)) (COMMENT3 (CDR (QUOTE X)) (CAR (LAST L)))))) (NEX NIL (BELOW _) NX) (NEX (X) (BELOW X ) NX) (REPACK NIL (IF (LISTP (##)) (1) NIL) (I : ((LAMBDA (X Y) (SETQ COM (QUOTE REPACK)) (SETQ Y ( APPLY (QUOTE CONCAT) (EDITE (UNPACK X)))) (COND ((NOT (STRINGP X)) (SETQ Y (MKATOM Y)))) (PRINT Y T T) ) (##)))) (REPACK (X) (LC . X) REPACK) (SHOW X (F (*ANY* . X) T) (LPQ MARK (ORR (1 !0) NIL) P __ (F ( *ANY* . X) N)) (E (QUOTE done))) (PP* NIL (RESETVAR **COMMENT**FLG NIL PP))) (ADDTOVAR EDITCOMSA CAP LOWER RAISE NEX REPACK PP*) (ADDTOVAR EDITCOMSL LOWER RAISE 2ND 3RD %%F %% REPACK * >* EXAM SHOW) (ADDTOVAR DONTSAVEHISTORYCOMS PP*) (RPAQ? EDITCHARACTERS) (RPAQQ NEGATIONS ((NEQ . EQ) (NLISTP . LISTP) (GO . GO) (ERROR . ERROR) (ERRORX . ERRORX) (RETURN . RETURN) (RETFROM . RETFROM) (RETTO . RETTO) (IGREATERP . ILEQ) (ILESSP . IGEQ))) (ADDTOVAR EDITMACROS (NXP NIL (ORR (NX) (!NX (E (PRIN1 "> " T) T)) ((E (PROGN (SETQQ COM NX) (ERROR!)) ))) P) (-1P NIL (ORR (-1 P) ((E (PROGN (SETQQ COM -1) (ERROR!)))))) (BKP NIL (ORR (BK) (!0) ((E (PROGN (SETQQ COM BK) (ERROR!))))) P) (2P NIL (ORR (2) (1) ((E (PROGN (SETQQ COM 2) (ERROR!))))) P)) (ADDTOVAR EDITCOMSA NXP -1P BKP 2P) (ADDTOVAR COMPACTHISTORYCOMS 2P NXP BKP -1P) (ADDTOVAR COMPACTHISTORYCOMS 2P NXP BKP -1P) (ADDTOVAR EDITMACROS (EV NIL (ORR ((E (LISPXEVAL (LIST (QUOTE EDITV) (FIRSTATOM (##))) (QUOTE EV->)))) ((E (QUOTE EV?))))) (EP NIL (ORR ((E (LISPXEVAL (LIST (QUOTE EDITP) (FIRSTATOM (##))) (QUOTE EP->)))) ((E (QUOTE EP?))))) (EF NIL (ORR ((E (LISPXEVAL (LIST (QUOTE EDITF) (FIRSTATOM (##))) (QUOTE EF->)))) ((E (QUOTE EF?)))))) (ADDTOVAR EDITCOMSA EV EP EF) (ADDTOVAR DONTSAVEHISTORYCOMS EF EV EP) (ADDTOVAR DONTSAVEHISTORYCOMS EF EV EP) (ADDTOVAR USERMACROS (IFY NIL (F (COND --) T) UP (I 1 (COND.TO.IF (CDR (## 1)))) 1)) (ADDTOVAR EDITMACROS (SWAP (LC1 LC2) (BIND (MARK #3) (LC . LC1) UP (MARK #1) (\ #3) (LC . LC2) UP (IF (NOT (OR (FMEMB (CAAR #1) L) (FMEMB (CAAR L) #1))) ((E (SETQ #2 (CAR (##))) T) (\ #1) (E (SETQ #1 (CAR (##))) T) (I 1 #2) \ (I 1 #1)) ((E (QUOTE (NESTED EXPRESSIONS))))) (\ #3))) (EVAL NIL (ORR ((E ( LISPXEVAL (## (ORR (UP 1) NIL)) (QUOTE *)))) ((E (QUOTE EVAL?))))) (GO (LAB) (ORR ((_ ((*ANY* PROG ASSEMBLE DPROG RESETLST) -- LAB --)) F LAB (ORR 2 1) P) ((E (PROGN (SETQQ COM LAB) (ERROR!)))))) ( JOINC NIL (F COND T) UP (BI 1 2) 1 (BO 2) (2) (RO 1) (BO 1)) (NEGATE NIL UP (I 1 (NEGATE (## 1))) 1) ( SPLITC (X) (F COND T) (BI 1 X) (IF (AND (EQ (## 2 1) T) (## 2 2) (NULL (CDDR (##)))) ((BO 2) (2)) ((-2 COND) (LI 2))) UP (BO 1)) (SWAPC NIL (F ((*ANY* COND IF if) --) T) UP (I 1 (SWAPPEDCOND (## 1))) 1) ( MAKE (VAR . VALS) (COMS (MAKECOM VAR VALS))) (D NIL (:) 1 P) (Q NIL (MBD QUOTE)) (MAKEFN (FORM ARGS N M) (IF (QUOTE M) ((BI N M) (LC . N) (BELOW \)) ((IF (QUOTE N) ((BI N -1) (LC . N) (BELOW \)) ((LI 1))) )) (E (MAKEFN (QUOTE FORM) (QUOTE ARGS) (##)) T) UP (1 FORM) 1) (GETD NIL UP (ORR ((I 1 (OR (EDITGETD (## 1) (AND (CDR L) (EDITL0 L (QUOTE (!0))))) (ERROR!)))) ((E (QUOTE GETD?)))) 1) (GETVAL NIL UP (ORR ((I 1 (EVAL (## 1) (QUOTE *)))) ((E (QUOTE GETVAL?)))) 1)) (ADDTOVAR EDITCOMSA JOINC EVAL NEGATE SWAPC D Q GETD GETVAL) (ADDTOVAR EDITCOMSL SPLITC MAKE MAKEFN SWAP GO) (PUTPROPS LET EDITGETD EDITGETD-LET) (PUTPROPS CL:IF EDITGETD (LAMBDA (FORM) (DESTRUCTURING-BIND (TEST THEN ELSE) (CDR FORM) (BQUOTE (COND ((\, TEST) (\, THEN)) (\,@ (AND ELSE (BQUOTE ((T (\, ELSE))))))))))) (RPAQ? INITIALS) (RPAQ? INITIALSLST) (RPAQ? DEFAULTINITIALS T) (MOVD? (QUOTE NILL) (QUOTE PREEDITFN)) (PUTPROPS WEDIT COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL