(FILECREATED " 3-Aug-85 17:41:59" ("compiled on " {ERIS}LISPUSERS>BQUOTE.;13) " 2-Aug-85 10:54:49" recompiled changes: BQUOTE \BQUOTE.UNCOMMA \BQUOTE.STANDARD in "INTERLISP-D 2-Aug-85 ..." dated " 2-Aug-85 11:08:23") (FILECREATED " 3-Aug-85 17:41:29" {ERIS}LISPUSERS>BQUOTE.;13 18114 changes to: (MACROS BQUOTE) (FNS BQUOTE \BQUOTE.UNCOMMA \BQUOTE.STANDARD) previous date: " 3-Aug-85 16:06:20" {ERIS}LISPUSERS>BQUOTE.;12) \BQUOTE.MACROFN D1 (P 1 ANSWER P 0 \BQUOTE.LEVEL I 1 RDTBL I 0 STREAM F 2 \BQUOTE.LEVEL) Rkg@A hYHkd I(31Q \BQUOTE.DOT.FIX 15Q READ) (10Q BQUOTE) () \BQUOTE.DOT.FIX D1 (P 0 TAIL I 0 SEX) 5@d-XH HgHHdggHHh@(17Q \BQUOTE.DOT.FIX) (51Q \., 43Q ., 31Q \,) () \COMMA.MACROFN D1 (P 0 \BQUOTE.LEVEL I 1 RDTBL I 0 STREAM F 1 \BQUOTE.LEVEL) @ A ggQdjI@ g@ g@ g@ g@ g@ @ gg@ gkjHoo @ dg@ gg@ gg@A h(235Q READ 220Q READC 201Q READC 166Q PEEKC 161Q ERROR 131Q READC 114Q PEEKC 107Q READC 75Q PEEKC 65Q READC 54Q PEEKC 44Q READC 33Q PEEKC 7 GETSYNTAX 3 PEEKC) (230Q \, 224Q \,. 212Q %. 205Q \,@ 172Q @ 134Q ,,, 124Q ,, 117Q , 100Q , 70Q ,. 57Q %. 47Q ,@ 36Q @ 17Q , 12Q SEPRCHAR) ( 156Q "" 152Q "Too many commas") \QUOTE.MACROFN D1 (I 1 RDTBL I 0 STREAM) g@A h(7 READ) (2 QUOTE) () BQUOTE D1 (L (0 SEX)) @ k (12Q EVAL 7 \BQUOTE.EXPAND 3 \BQUOTE.UNCOMMA) NIL () \BQUOTE.UNCOMMA D1 (P 0 MARKER I 0 SEX) 7@doXd@H@ h@d @ @ @(63Q \BQUOTE.UNCOMMA 55Q \BQUOTE.UNCOMMA 46Q \BQUOTE.UNCOMMA 32Q \BQUOTE.UNCOMMA) NIL ( 14Q ((, . \,) (,@ . \,@) (,! . \,@) (., . \.,) (,. . \,.))) \BQUOTE.EXPAND D1 (I 1 LEVEL I 0 SEX) jAo@ Adj)@ddgkbbj @j k@dudg@dgo@ dgo@ dgo@ g@l @d"dgdgdgih@ @k @di3 g@h@@d8dgdgdgdg@Ak g@Ak @A @di3g@h(406Q \BQUOTE.STANDARD 400Q \BQUOTE.STANDARD 363Q \BQUOTE.STANDARD 266Q \BQUOTE.STANDARD 260Q \BQUOTE.SPLICE 213Q \BQUOTE.STANDARD 177Q ERROR 157Q ERROR 137Q ERROR 67Q \BQUOTE.EXPAND 61Q \BQUOTE.EXPAND 13Q ERROR) (426Q QUOTE 367Q BQUOTE 351Q \,. 343Q \., 335Q \,@ 326Q \, 305Q QUOTE 244Q \,. 236Q \., 230Q \,@ 203Q BQUOTE 164Q \,. 144Q \., 124Q \,@ 111Q \, 37Q BQUOTE) ( 173Q ",. in illegal context" 153Q ". , in illegal context" 133Q ",@ in illegal context" 7 "Too many commas") \BQUOTE.STANDARD D1 (P 4 ANSWER P 3 D.QUOTEDP P 2 D.LISTP P 1 D P 0 A I 1 LEVEL I 0 SEX) iP@X@YHA XIA YdZdIg[JIggHIKIgHhKH gHIhggHIh(23Q \BQUOTE.EXPAND 15Q \BQUOTE.EXPAND) (134Q QUOTE 126Q QUOTE 113Q CONS 75Q LIST 55Q LIST 50Q LIST 37Q QUOTE) () \BQUOTE.SPLICE D1 (P 4 ANSWER P 3 D P 2 A2 P 1 A1 P 0 A I 0 SEX) >P@XdYHZ@[dk [doJK gJKhggJK(24Q \BQUOTE.EXPAND) (66Q APPEND 60Q APPEND 45Q APPEND) ( 32Q (QUOTE NIL)) \BQUOTE.BREAKRESET D1 (L (0 LEVEL) F 0 \BQUOTE.LEVEL) P@cNIL NIL () \BQUOTE.PRINT D1 (I 0 SEX) w@l \@W@dgg=dgg1dgg%dggdgggg @d o @ o h(163Q PRIN1 154Q \PRETTYBLOCK/SUBPRINT 150Q PRIN1 140Q PRIN2 130Q PRIN1 125Q SHOULDNT 5 EQLENGTH) (121Q ,.% 114Q \,. 110Q .% , 102Q \., 74Q ,@ 66Q \,@ 60Q , 52Q \, 44Q ` 36Q BQUOTE 30Q ' 22Q QUOTE) ( 160Q ")" 145Q "(") BQUOTE.START D1 (P 1 RDTBL F 2 \BQUOTE.LEVEL) HjcoHhY )I-goI goI goI HX(100Q SETSYNTAX 64Q SETSYNTAX 50Q SETSYNTAX 30Q BOUNDP 21Q BQUOTE.PRETTYSTART) (70Q , 54Q ` 40Q ') ( 74Q (MACRO FIRST NONIMMEDIATE ESCQUOTE \COMMA.MACROFN) 60Q (MACRO FIRST NONIMMEDIATE ESCQUOTE \BQUOTE.MACROFN) 44Q (MACRO FIRST NONIMMEDIATE ESCQUOTE \QUOTE.MACROFN) 6 (\ORIGREADTABLE NIL T DEDITRDTBL EDITRDTBL FILERDTBL)) BQUOTE.PRETTYSTART D1 NIL o (6 ADDTOVAR) NIL ( 3 (PRETTYPRINTMACROS (\,. . \BQUOTE.PRINT) (\., . \BQUOTE.PRINT) (\,@ . \BQUOTE.PRINT) (\, . \BQUOTE.PRINT) (BQUOTE . \BQUOTE.PRINT) (QUOTE . \BQUOTE.PRINT))) BQUOTE.STOP D1 (P 1 RDTBL F 2 FILERDTBL) AggR oHhY I-ggI ggI HX(71Q SETSYNTAX 56Q SETSYNTAX 37Q BOUNDP 30Q BQUOTE.PRETTYSTOP 11Q SETSYNTAX) (65Q OTHER 62Q , 52Q OTHER 47Q ` 5 OTHER 2 ') ( 15Q (\ORIGREADTABLE NIL T DEDITRDTBL EDITRDTBL FILERDTBL)) BQUOTE.PRETTYSTOP D1 (F 4 PRETTYPRINTMACROS) *T1HIcdgJ KhZYHXK&ZNIL (22Q \BQUOTE.PRINT) () \BQUOTE.HACK.FONTSA0001 D1 (I 0 P) @ h@ @ (27Q DSPFONT 24Q PROCESS.TTY 20Q \BQUOTE.FONT 15Q DSPFONT 12Q PROCESS.TTY 3 HASTTYWINDOWP) NIL () \BQUOTE.HACK.FONTS D1 (P 2 VAR P 0 W F 3 FONTPROFILE) {gl gl gl S dhH H g oIhZ &J J g gJd IY(163Q SETTOPVAL 160Q \BQUOTE.FONT 155Q GETTOPVAL 143Q FONTPROP 135Q GETTOPVAL 127Q FONTP 124Q GETTOPVAL 116Q BOUNDP 74Q MAP.PROCESSES 61Q DSPFONT 55Q \BQUOTE.FONT 52Q DSPFONT 36Q OPENWINDOWS 33Q FONTPROFILE 27Q \BQUOTE.HACK.FONT 17Q \BQUOTE.HACK.FONT 7 \BQUOTE.HACK.FONT) (146Q GACHA 140Q FAMILY 71Q \BQUOTE.HACK.FONTSA0001 22Q GACHA 12Q GACHA 2 GACHA) ( 100Q (BACKTRACEFONT LAFITEDISPLAYFONT LAFITEEDITORFONT MENUFONT TEDIT.DEFAULT.FONT)) \BQUOTE.HACK.FONTA0001 D1 (NAME ERRORSET F 0 FAMILY F 1 SIZE F 2 RESETVARSLST F 3 BQUOTEFAMILY F 4 FONT F 5 LISPUSERSDIRECTORIES F 6 RESETY) ]gd gU RcgP cQg cPPQgjgT PQgjg SQgjg c i(127Q SETFONTDESCRIPTOR 111Q SETFONTDESCRIPTOR 73Q SETFONTDESCRIPTOR 44Q FONTCREATE 33Q PACK* 16Q SETTOPVAL 6 GETTOPVAL) (123Q DISPLAY 117Q MRR 105Q DISPLAY 101Q BRR 66Q DISPLAY 62Q MRR 51Q FONTDESCRIPTOR 41Q MRR 27Q BQUOTE 12Q DISPLAYFONTDIRECTORIES 2 DISPLAYFONTDIRECTORIES) () \BQUOTE.HACK.FONT D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 FONT P 0 BQUOTEFAMILY I 1 SIZE I 0 FAMILY F 5 LISPXHIST F 6 RESETVARSLST) & U!Vog hg\ Lh(42Q ERROR! 33Q RESETRESTORE 21Q \BQUOTE.HACK.FONTA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (\BQUOTE.HACK.FONTA0001)) \BQUOTE.FONT D1 (I 0 FONT) )@g @g @g @g @g (46Q FONTCREATE 42Q FONTPROP 33Q FONTPROP 24Q FONTPROP 15Q FONTPROP 6 FONTPROP) (37Q DEVICE 30Q ROTATION 21Q FACE 12Q SIZE 3 FAMILY) () (PRETTYCOMPRINT BQUOTECOMS) (RPAQQ BQUOTECOMS ((* * Backquote -- By Kelly Roach. Based on an earlier version by John L. White. *) (E (* Forms in this area are made with BQUOTE off for readability. *) (BQUOTE.PRETTYSTOP)) (INITVARS ( \BQUOTE.LEVEL 0)) (MACROS BQUOTE) (FNS \BQUOTE.MACROFN \BQUOTE.DOT.FIX \COMMA.MACROFN \QUOTE.MACROFN BQUOTE \BQUOTE.UNCOMMA \BQUOTE.EXPAND \BQUOTE.STANDARD \BQUOTE.SPLICE \BQUOTE.BREAKRESET \BQUOTE.PRINT BQUOTE.START BQUOTE.PRETTYSTART BQUOTE.STOP BQUOTE.PRETTYSTOP) (FNS \BQUOTE.HACK.FONTS \BQUOTE.HACK.FONT \BQUOTE.FONT) (ADDVARS (BREAKRESETFORMS (\BQUOTE.BREAKRESET 0)) (RESETFORMS (SETQ \BQUOTE.LEVEL 0))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (KEYACTION (QUOTE LF) (QUOTE ((96 10 NOLOCKSHIFT) . IGNORE))) (\BQUOTE.HACK.FONTS) (BQUOTE.START))) (E (BQUOTE.PRETTYSTART)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA BQUOTE) (NLAML) (LAMA))))) (RPAQ? \BQUOTE.LEVEL 0) (PUTPROPS BQUOTE MACRO (SEX (\BQUOTE.EXPAND (\BQUOTE.UNCOMMA (CAR SEX)) 1))) (ADDTOVAR BREAKRESETFORMS (\BQUOTE.BREAKRESET 0)) (ADDTOVAR RESETFORMS (SETQ \BQUOTE.LEVEL 0)) (KEYACTION (QUOTE LF) (QUOTE ((96 10 NOLOCKSHIFT) . IGNORE))) (\BQUOTE.HACK.FONTS) (BQUOTE.START) (PRETTYCOMPRINT BQUOTECOMS) (RPAQQ BQUOTECOMS ((* * Backquote -- By Kelly Roach. Based on an earlier version by John L. White. *) (E (* Forms in this area are made with BQUOTE off for readability. *) (BQUOTE.PRETTYSTOP)) (INITVARS ( \BQUOTE.LEVEL 0)) (MACROS BQUOTE) (FNS \BQUOTE.MACROFN \BQUOTE.DOT.FIX \COMMA.MACROFN \QUOTE.MACROFN BQUOTE \BQUOTE.UNCOMMA \BQUOTE.EXPAND \BQUOTE.STANDARD \BQUOTE.SPLICE \BQUOTE.BREAKRESET \BQUOTE.PRINT BQUOTE.START BQUOTE.PRETTYSTART BQUOTE.STOP BQUOTE.PRETTYSTOP) (FNS \BQUOTE.HACK.FONTS \BQUOTE.HACK.FONT \BQUOTE.FONT) (ADDVARS (BREAKRESETFORMS (\BQUOTE.BREAKRESET 0)) (RESETFORMS (SETQ \BQUOTE.LEVEL 0))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (KEYACTION 'LF ' ((96 10 NOLOCKSHIFT) . IGNORE)) (\BQUOTE.HACK.FONTS) (BQUOTE.START))) (E (BQUOTE.PRETTYSTART)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML BQUOTE) (LAMA))))) (PUTPROPS BQUOTE COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL