(FILECREATED "23-SEP-83 13:42:10" ("compiled on " {PHYLUM}EDITMACROS.;11) "17-SEP-83 17:05:46" recompiled changes: \EDIT.PREPARESWITCH \EDIT.BQUOTIFY \EDIT.BQUOTIFY.1 in WORK dated "19-SEP-83 13:45:18") (FILECREATED "23-SEP-83 13:40:58" {PHYLUM}EDITMACROS.;11 9384 changes to: (FNS \EDIT.BQUOTIFY \EDIT.PREPARESWITCH \EDIT.BQUOTIFY.1) (VARS EDITMACROSCOMS) (USERMACROS BQUOTE) previous date: " 3-JUL-83 07:19:03" {PHYLUM}EDITMACROS.;9) \EDIT.CONDCLAUSES.TO.IF D1 (P 1 TEM P 0 L I 0 X) »@@ kÙºk[Jñ³H@d³¿g@@´@ hgH°b g@ghH ¸@b¿KkØ°·@d©gH°/ @ œ@ •ghŒg@ghH X Xddgðž¿Hd•g¿Œgð”HgH(225Q DREVERSE 221Q \NCONC2 216Q \NCONC2 166Q EVAL 157Q CONSTANTEXPRESSIONP 151Q REVERSE 112Q \NCONC2 107Q \NCONC2 66Q REVERSE 45Q \EDIT.CONDCLAUSES.TO.IF 6 LENGTH) (266Q if 260Q elseif 247Q PROGN 234Q else 206Q elseif 200Q then 172Q else 137Q else 77Q elseif 71Q then 54Q else 31Q OR) NIL \EDIT.IF.TO.CONDCLAUSES D1 (P 5 TEM P 4 L P 3 UITEM P 2 ITEM P 1 CONDITIONFLG P 0 CLAUSE I 0 X) í@ gð£¿@bd@b¿hgB@µIµ‚±§H L\±¯@b¿Zlð´J »IµKgð¥Kgð’i°NJH¸h°Ggð²%Kdgð”¿hY°gðšg¹HL¼hX‚¿h°Igð²Kgð¥Kgð‘i†‚¢±ÿzH L¼Kgð—i@L\°%@@b¿h¸g¹±ÿTgð“ˆIgð£¿gL (351Q DREVERSE 341Q SHOULDNT 327Q ERROR 255Q DREVERSE 245Q SHOULDNT 241Q ERROR 205Q ERROR 106Q U-CASE 57Q DREVERSE 14Q ERROR 4 U-CASE) (345Q COND 334Q ELSEIF 322Q THEN 313Q THEN 264Q ELSE 232Q ELSEIF 224Q ELSE 215Q ELSEIF 172Q ELSEIF 165Q THENRET 153Q THEN 143Q THEN 124Q ELSEIF 116Q ELSE 35Q THEN 7 IF) NIL \EDIT.PREPARECOPY D1 (P 6 TO.LOCATOR P 5 I.OP P 4 FROM.LOCATOR I 0 LL) £@1Hbd²dgð³»Jµ KhZ¹@°æK&º°ùb¿I@@bM“L¦N¤ooL´ gLhoN´ gNhogMgð”oƒoogMohhhho (240Q \APPEND2 235Q \APPEND2 232Q \APPEND2 227Q \APPEND2 224Q \APPEND2 221Q \APPEND2) (170Q I 146Q N 142Q IF 127Q LC 111Q LC 17Q TO) (216Q (__) 175Q (COPY #3) 165Q ((E (QUOTE (NESTED LOCATIONS)))) 161Q (AND (LISTP (CAR #1)) (MEMB (CAR #1) (CDR #2))) 154Q (AND (LISTP (CAR #1)) (MEMB (CAR #1) #2)) 137Q ((MARK #2)) 121Q ((MARK #1) (S #3) _) 103Q (BIND MARK) 76Q ((E (QUOTE ?)))) \EDIT.PREPARESWITCH D1 (P 5 TO.LOCATOR P 4 FROM.LOCATOR I 0 LL) q@1Hbd² do ³»Jµ KhZ¹@°ãK&º°ùb¿I@L¦M¤ooL´ gLhoM´ gMhoo (156Q \APPEND2 153Q \APPEND2 150Q \APPEND2 145Q \APPEND2 142Q \APPEND2 23Q MEMB) (123Q LC 105Q LC) (137Q (__) 133Q ((IF (OR (AND (LISTP (CAR #1)) (FMEMB (CAR #1) (CDR L))) (AND (LISTP (CAR L)) (FMEMB (CAR L) (CDR #1)))) ((E (QUOTE (NESTED LOCATIONS)))) (UP (MARK #2) (\ #1) UP (I 1 (PROG1 (CAAR #2) (SETQ #1 (CAAR L)))) (\ #2) UP (I 1 #1)))) 115Q ((MARK #1) _) 77Q (BIND MARK) 72Q ((E (QUOTE ?))) 20Q (WITH TO)) \EDIT.BQUOTIFY D1 (P 7 X P 6 L P 3 X I 0 FORM) @d¢±ùdgð–¿@hdgð²1¿0@°dKg X–IµHZY¿µçJh YH°ðdgð²(¿@g @ µg@hh hdgð²5¿@!L^µM@ g h²ëMNg ½N°Ödgð²7¿@1L^²$MN _˜Nd•¿¿h°Ng ½N°ÜMd²hgð´ @i  ´@h(377Q CONSTANTEXPRESSIONP 373Q \EDIT.BQUOTIFY 370Q EXPANDMACRO 340Q \NCONC2 335Q \EDIT.BQUOTIFY.1 311Q \EDIT.BQUOTIFY 254Q \NCONC2 251Q \EDIT.BQUOTIFY.1 232Q \NCONC2 227Q \EDIT.BQUOTIFY.1 220Q LAST 164Q \NCONC2 142Q \EDIT.BQUOTIFY 133Q \EDIT.BQUOTIFY.1 105Q LAST 56Q \EDIT.BQUOTIFY.1) (360Q LIST@ 332Q ,@ 265Q NCONC 246Q ,@ 224Q ,. 173Q APPEND 147Q ,. 130Q , 116Q CONS 53Q , 30Q LIST 13Q QUOTE) NIL \EDIT.BQUOTIFY.1 D1 (I 1 UNQUOTER I 0 Z) @ µA@h(3 \EDIT.BQUOTIFY) NIL NIL (PRETTYCOMPRINT EDITMACROSCOMS) (RPAQQ EDITMACROSCOMS ((* These useful EDIT macros, which everybody needs, ought to go into the statndard) (FNS \EDIT.CONDCLAUSES.TO.IF \EDIT.IF.TO.CONDCLAUSES \EDIT.PREPARECOPY \EDIT.PREPARESWITCH \EDIT.BQUOTIFY \EDIT.BQUOTIFY.1) (USERMACROS IFY CONDIFY COPY SWITCH BQUOTE) (P (PROG (X) "Remove those anachronistic FIX8 and FIX9 macros!" A (COND ((OR (SETQ X (ASSOC (QUOTE FIX8) EDITMACROS )) (SETQ X (ASSOC (QUOTE FIX9) EDITMACROS))) (SETQ EDITMACROS (DREMOVE X EDITMACROS)) (GO A))))))) (ADDTOVAR USERMACROS (CONDIFY NIL (ORR ((IF (FMEMB (## 1) (QUOTE (IF if))))) ((ORF (IF --) (if --)))) UP (I 1 (\EDIT.IF.TO.CONDCLAUSES (## 1))) 1) (COPY L (COMS (CONS (QUOTE COMSQ) (\EDIT.PREPARECOPY ( QUOTE L))))) (SWITCH L (COMS (CONS (QUOTE COMSQ) (\EDIT.PREPARESWITCH (QUOTE L))))) (IFY NIL (F (COND (& --) --) T) UP (I 1 (\EDIT.CONDCLAUSES.TO.IF (CDR (## 1)))) 1)) (ADDTOVAR EDITMACROS (BQUOTE NIL UP (ORR ((I 1 (OR (CONS (QUOTE BQUOTE) (OR (\EDIT.BQUOTIFY (## 1)) ( ERROR!))) (ERROR!)))) ((E (QUOTE BQUOTE?)))) 1)) (ADDTOVAR EDITCOMSA BQUOTE) (ADDTOVAR EDITCOMSL COPY SWITCH) (PROG (X) "Remove those anachronistic FIX8 and FIX9 macros!" A (COND ((OR (SETQ X (ASSOC (QUOTE FIX8) EDITMACROS)) (SETQ X (ASSOC (QUOTE FIX9) EDITMACROS))) (SETQ EDITMACROS (DREMOVE X EDITMACROS)) (GO A) ))) (PUTPROPS EDITMACROS COPYRIGHT ("Xerox Corporation" 1983)) NIL