(FILECREATED " 6-Jul-85 23:04:19" ("compiled on " {ERIS}SOURCES>ASSIST.;29) " 4-Jul-85 14:48:59" recompiled changes: READ' in "" dated " 4-Jul-85 15:03:29") (FILECREATED " 6-Jul-85 23:03:26" {ERIS}SOURCES>ASSIST.;29 74519 changes to: (VARS ASSISTCOMS) (FNS READ') previous date: " 5-Jul-85 15:18:16" {ERIS}SOURCES>ASSIST.;28) READCOMMENT D1 (P 10Q N P 7 FL1 P 6 FLG P 5 TEM P 4 POS P 3 NCHARS P 2 END P 1 START P 0 X I 2 LST I 1 RDTBL I 0 FL F 12Q NORMALCOMMENTSFLG F 13Q COMMENTFLG F 14Q CLISPFLG F 15Q CLISPCHARRAY) I  Bdd@iWi@ BW l@ _@ @A ]g9Mg2Mg+Mg$MgMgMgMgMdgi83i2MW+WW@ dgdgdgiM ih%@LlY Ol@IlY @ g@L BW @ ZIٻ@Jk WBWIKN_@Oh  W-_g W_g O @OIJ @Jk MWb(475Q SETFILEPTR 465Q COPYBYTES 454Q GETFILEPTR 445Q OPENP 432Q OPENP 416Q BOUNDP 412Q LCONC 377Q INPUT 353Q SETFILEPTR 340Q GETFILEPTR 333Q TCONC 324Q SETFILEPTR 312Q SKREAD 305Q SETFILEPTR 265Q SETFILEPTR 244Q STRPOSL 213Q PEEKC 63Q RATOM 55Q GETFILEPTR 45Q POSITION 36Q TCONC 27Q RANDACCESSP) (442Q OUTPUT 427Q OUTPUT 315Q %] 233Q _ 225Q %] 217Q %) 156Q E 147Q DECLARATIONS: 141Q %. 132Q ' 123Q %" 114Q %] 105Q %[ 76Q %) 67Q %() () GETCOMMENTA0001 D1 (NAME ERRORSET F 0 FL) Pg ci(6 OPENFILE) (3 INPUT) () GETCOMMENTA0002 D1 (NAME ERRORSET F 0 NORMALCOMMENTSFLG F 1 X F 2 FL F 3 FILERDTBL) icQRS h(14Q /RPLNODE2 11Q READ) NIL () GETCOMMENT D1 (P 7 MACROY P 6 MACROX P 5 TEM P 4 STR P 3 FLG P 2 FL P 1 NC P 0 ST I 2 DEF I 1 DESTFL I 0 X F 10Q RESETVARSLST F 11Q NORMALCOMMENTSFLG F 12Q FIRSTCOL F 13Q LISPXHIST) `@X3$HH3H3HnHX{@Y3r@Zj@[Ki]@dUJANjHIJ J-ZJg Jo 0o]gW  Mi @i oi @gJhhhWcJH AKgWWcW_og NcOdWNcW WkO NB8` Kl hi ]lWWhi WM `DWgA @A @A JAHdI LB K h (607Q CHANGEFONT 601Q CHANGEFONT 574Q ENDLINE1 570Q ENDLINE1 554Q COPYBYTES 542Q /RPLACA 531Q /RPLACA 526Q GETFILEPTR 516Q DISPLAYP 474Q SPACES 464Q ENDLINE1 445Q POSITION 440Q ENDLINE1 430Q ENDLINE1 422Q CHANGEFONT 407Q ERROR! 376Q NLEFT 365Q TAILP 334Q GETCOMMENTA0002 275Q SETFILEPTR 245Q LISPXPRIN1 234Q LISPXPRIN2 222Q LISPXPRIN1 213Q MEMB 206Q MEMB 167Q GETCOMMENTA0001 156Q OPENP 142Q BOUNDP) (507Q DONTUPDATE 500Q COMMENTFONT 417Q DEFAULTFONT 331Q INTERNAL 303Q NORMALCOMMENTSFLG 252Q CLOSEF? 201Q *LISPXPRINT* 153Q INPUT) ( 326Q (GETCOMMENTA0002) 241Q " - comments lost " 175Q "can't find file " 164Q (GETCOMMENTA0001)) PRINTCOMMENT D1 (P 0 FL I 0 X F 1 DEF F 2 FORMFLG F 3 **COMMENT**FLG F 4 CHANGEFLG0) -QRX STH @  h@HQ (52Q GETCOMMENT 42Q PRIN1 36Q GETCOMMENT 31Q DISPLAYP 17Q DISPLAYP 13Q OUTPUT) NIL () NORMALCOMMENTS D1 (I 0 FLG F 0 NORMALCOMMENTSFLG F 1 FILERDTBL F 2 PRETTYPRINTMACROS) 5Pd@/@goQ gRo ggQ @c(55Q SETSYNTAX 42Q SAVESETQ 23Q SETSYNTAX) (51Q OTHER 46Q * 27Q * 13Q *) ( 37Q (PRETTYPRINTMACROS (CONS (QUOTE (* . PRINTCOMMENT)) PRETTYPRINTMACROS)) 17Q (INFIX ALONE NOESC READCOMMENT)) READ' D1 (I 1 RDTBL I 0 FILE) &@ A dgdggg@A h(40Q READ 7 GETSYNTAX 3 PEEKCCODE) (33Q QUOTE 26Q ' 21Q RIGHTBRACKET 13Q RIGHTPAREN) () PRINTPROPSA0001 D1 (NAME ERRORSET P 0 TL F 1 AT F 2 MACROY) ?Q 2Qh` Q "dHid oi Hid hci(62Q SHOWPRINT 51Q PRIN1 40Q PRIN2 23Q GETPROPLIST 15Q MISSPELLED? 3 GETPROPLIST) (12Q USERWORDS) ( 45Q " : ") PRINTPROPS D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 AT F 4 RESETVARSLST) >o 1gHhhTcYog gIcgI KJ(71Q ERROR! 64Q APPLY 41Q PRINTPROPSA0001 6 PRINTLEVEL) (55Q PRINTLEVEL 45Q ERROR 36Q INTERNAL 14Q PRINTLEVEL) ( 33Q (PRINTPROPSA0001) 3 (2 . 3)) PRINTBINDINGSA0001 D1 (NAME ERRORSET P 2 EPOS P 1 VAL P 0 NAME F 3 FL F 4 POS F 5 AT F 6 MACROY) 0SicoS US oS S jTg cUTd clUT oS T Si T 3oS kTJ Z J Si kJd ZoS oS ISi kTd cJ oS oS U Si hc i(306Q SHOWPRINT 301Q GETTOPVAL 274Q PRIN1 263Q PRIN1 252Q RELSTK 242Q STKNTH 233Q SHOWPRINT 224Q PRIN1 213Q PRIN1 200Q STKNTH 170Q PRIN2 163Q STKNAME 156Q REALFRAMEP 152Q STKNTH 143Q PRIN1 131Q REALFRAMEP 124Q PRIN2 117Q STKNAME 112Q PRIN1 101Q STKARG 70Q STKSCAN 57Q STKNTH 44Q TERPRI 37Q PRIN1 26Q PRIN1 20Q PRIN1) (54Q PRINTBINDINGS) ( 270Q "TOP : " 257Q " @ " 220Q " : " 207Q "? " 137Q "/" 106Q " @ " 33Q ": " 14Q "bindings for ") PRINTBINDINGS D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 2 FL I 1 POS I 0 AT F 4 RESETVARSLST) >ll 1gHhhTcYog gIcgI KJ(71Q ERROR! 64Q APPLY 41Q PRINTBINDINGSA0001 6 PRINTLEVEL) (55Q PRINTLEVEL 45Q ERROR 36Q INTERNAL 14Q PRINTLEVEL) ( 33Q (PRINTBINDINGSA0001)) SHOWPRINT D1 (I 2 RDTBL I 1 FILE I 0 X) `@ihddA A @AB @(31Q PRINT 22Q TERPRI 15Q PRINTDEF) (2 SYSPRETTYFLG) () SHOWPRIN2 D1 (I 2 RDTBL I 1 FILE I 0 X) `@ihddA @AB @(24Q PRIN2 15Q PRINTDEF) (2 SYSPRETTYFLG) () DO?A0001 D1 (NAME ERRORSET F 0 TAIL F 1 FORM F 2 LST F 3 TEM) A`P$R!QQihiP Q gQg PP g ci(73Q HELPSYS 63Q FNTYP 53Q HELPSYS 40Q LENGTH 33Q FNCHECK) (70Q FD 50Q FD 43Q ARGS 7 LAST? 2 LAST?) () DO?A0002 D1 (NAME ERRORSET F 0 TAIL F 1 FORM F 2 FILE) PQ R i(11Q TERPRI 4 DO?=) NIL () DO?A0003 D1 (NAME ERRORSET F 0 TEM F 1 FORM) QP k Plm lgi(21Q SUBATOM 5 NCHARS) (26Q PF) () DO?A0004 D1 (I 0 X) @id (5 PRIN2) NIL () DO?A0005 D1 (I 0 X) @id (5 PRIN2) NIL () DO? D1 (P 5 LN P 4 TEM P 3 FN P 2 FORM P 1 TAIL P 0 C I 2 LST I 1 RDTBL I 0 FILE F 6 LINE F 7 LISPXFLG) &`@ X@i@dgdgdg*V]WkBdV[BVBZYhi,BH XgA HgA gg@A Hgog LLIoi >@A \dg@ goi L l^\@ gRoi BBd i KKid MMioohg Bdioohg BBgL (443Q TCONC 440Q PACK* 426Q MAPRINT 377Q MAPRINT 350Q PRIN2 340Q TERPRI 332Q FLAST 320Q DO?A0003 302Q PEEKC 271Q CHCON1 263Q DO?A0002 246Q PEEKC 231Q READ 222Q PRIN1 205Q DO?A0001 163Q TCONC 160Q PACK* 155Q READ 140Q SYNTAXP 127Q SYNTAXP 117Q CHCON1 57Q INREADMACROP 42Q READLINEP 6 PEEKC) (434Q ? 422Q DO?A0005 373Q DO?A0004 305Q % 251Q % 236Q = 202Q NOBREAK 170Q % 150Q ? 144Q ? 134Q BREAK 123Q SEPR 34Q ^ 26Q = 20Q % ) ( 416Q " " 412Q "(" 367Q " " 363Q " " 314Q (DO?A0003) 257Q (DO?A0002) 216Q "unavailable subject. " 177Q (DO?A0001)) DO?=A0001A0002A0003 D1 (I 0 X F 0 FILE) @hl l Pi (15Q PRIN2 10Q RETDWIM3) NIL () DO?=A0001A0002A0004 D1 (I 0 X F 0 FILE) @hl l Pi (15Q PRIN2 10Q RETDWIM3) NIL () DO?=A0001A0002 D1 (NAME ERRORSET P 1 TEM P 0 ARGNAMES F 2 FILE F 3 FORM F 4 TAIL F 5 LEFT F 6 COM F 7 MACROY) 4 RicUjc Sgc TTcTiT XddT YlIlHXHHdSd?HRi lR oR RiShl l SRi SHR Sc$H!UjUR HgHRi HXRi&HgoR HRi oR JSHdERhog 4RoghRigR SRoghRigg hci(453Q MAPRINT 420Q PRIN1 367Q MAPRINT 341Q PRIN1 330Q PRIN2 317Q PRIN1 264Q PRIN2 244Q SPACES 221Q TERPRI 207Q PRIN2 177Q RETDWIM3 160Q PRIN1 147Q SPACES 136Q PRIN2 71Q ARGTYPE 52Q SMARTARGLIST 36Q ERROR!) (447Q PRIN2 443Q DO?=A0001A0002A0004 433Q %) 412Q DO?=A0001A0002A0003 401Q %) 363Q , 304Q ... 252Q ... 24Q ?=) ( 430Q " = ... " 376Q "plus ... " 360Q " = " 335Q " = " 313Q ". . " 154Q " = ") DO?=A0001 D1 (NAME ERRORSET P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST) Al 1gHhhTcog gIcgI KJh(71Q ERROR! 63Q APPLY 37Q DO?=A0001A0002 4 PRINTLEVEL) (54Q PRINTLEVEL 43Q ERROR 34Q INTERNAL 12Q PRINTLEVEL) ( 31Q (DO?=A0001A0002)) DO?= D1 (I 3 LEFT I 2 FILE I 1 FORM I 0 TAIL) oi (7 DO?=A0001) NIL ( 3 (DO?=A0001)) READLINEP D1 (P 0 SCRATCHPOS I 0 POS) %`m@ XmHhH gH (41Q RELSTK 31Q STKNAME 26Q REALSTKNTH 13Q STKPOS) (34Q READLINE 5 LISPXREADFN) () ASKUSERA0001A0002 D1 (NAME ERRORSET F 0 OPTIONSLST F 1 KEYLST F 2 PRINTLST) %Pg'oi QRPg o i(41Q ASKUSEREXPLAIN 30Q ASKUSERLOOKUP 16Q PRIN1) (25Q EXPLAINDELIMITER 3 EXPLAINSTRING) ( 36Q " " 12Q "one of: ") ASKUSERA0001A0003A0004 D1 (NAME ERRORSET F 0 READBUF F 1 TEM) hci chh(7 READLINE) NIL () ASKUSERA0001A0003 D1 (NAME ERRORSET P 1 MACROY P 0 MACROX F 2 RESETVARSLST F 3 KEY F 4 READBUF F 5 FILE F 6 TEM) _SdgUi LgBgTRcRog HcIdRHcR RkI HS c h(130Q EVAL 121Q ERROR! 110Q NLEFT 101Q TAILP 54Q ASKUSERA0001A0003A0004 14Q READ) (51Q INTERNAL 27Q READBUF 21Q  4 ) ( 46Q (ASKUSERA0001A0003A0004)) ASKUSERA0001A0005 D1 (NAME ERRORSET F 0 TEM) P h(5 EVAL) NIL () ASKUSERA0001 D1 (NAME ERRORSET P 32Q ENTRY P 25Q X P 23Q X P 21Q ECHOEDFLG P 20Q PRINTLST P 17Q NOCASEFLG P 16Q CONFIRMFLG P 15Q NOECHOFLG P 14Q OPTIONS P 13Q PROMPTSTRING P 12Q KEY P 11Q BUFS P 10Q ANSWER P 7 KEYLST1 P 6 TEM P 5 CHAR P 4 OLDTTBL P 3 NC P 2 ORIGDEFAULT P 1 ORIGMESS P 0 ORIGKEYLST F 33Q FILE F 34Q KEYLST F 35Q DEFAULT F 36Q MESS F 37Q RESETVARSLST F 40Q TYPEAHEAD F 41Q LISPXPRNTFLG F 42Q READBUF F 43Q WAIT F 44Q RESETY F 45Q OPTIONSLST) - W8`c8Wc>W@i c@VhiWD _Wc>W:c:W6 ] ^g JNg Ұ=dO&i OygOgWJ^nL o ^W` W@hhiWD _gOKkhW8dkKk hMh OdN_ O OcHi oi i Hc8h_ kh_W6&W6i ic6g` hhW>c>W6 h_"c:W8AO,,O._aOKkW:MgMdgܿOMi W6 ~dNO Nhc@_Hc8Ic@A9Ph4A1@ bA b@l`l{@@l AAl`l{A@Al (26Q CHCON1 20Q CHCON1) NIL () ASKUSER$ D1 (P 6 I P 4 TEM P 3 KEY0 P 2 NC0 P 1 ENTRY I 2 NC I 1 CHAR I 0 KEYLST F 7 KEY F 10Q NOECHOFLG) @AH JBJKhYdcg6Wg.K@d[ JkNMWN)KN)Nk^NkHX@ g \AL g WBK JmJ WLLi J(221Q PRIN1 206Q SUBSTRING 174Q NCHARS 163Q ASKUSERLOOKUP 153Q MEMB 144Q ASKUSERLOOKUP 135Q ASKUSERSETUP 64Q NCHARS) (160Q KEYSTRING 141Q COMPLETEON 44Q  34Q ) () ASKUSER1 D1 (P 2 TEM P 1 ENTRY I 1 CHAR I 0 ENTRY) U@g'!HhYdZg4Jg-Jg&J"Jk ZAJIHXIA Ii(114Q ASKUSER1 63Q NTHCHAR) (47Q  40Q  31Q & 5 KEYLST) () ASKUSERSETUP D1 (P 0 TEM I 0 ENTRY F 1 PROMPTSTRING F 2 KEY F 3 OPTIONS F 4 NOECHOFLG F 5 FILE F 6 OPTIONSLST F 7 ECHOEDFLG F 10Q CONFIRMFLG F 11Q NOCASEFLG)  @dchccgV Xi@<!@c@chcgV Xi@c@c@cg cg cg cWicUiUUi ichch(204Q READP 154Q ASKUSERLOOKUP 144Q ASKUSERLOOKUP 133Q ASKUSERLOOKUP 72Q MEMB 27Q MEMB) (151Q NOCASEFLG 141Q NOECHOFLG 130Q CONFIRMFLG 66Q CONFIRMFLG 23Q CONFIRMFLG) () ASKUSEREXPLAIN D1 (P 10Q X P 7 OPTIONS P 6 TEM P 5 PROMPTSTRING P 4 NOECHOFLG P 3 CONFIRMFLG P 2 KEY P 1 FILE P 0 ENTRY I 3 DELIMITER I 2 OPTIONSLST I 1 PREV I 0 KEYLST) @diaH g ^AHOg'^ANhALh g JhMdh BC XdOdi i Og'^Dg J^LNgNgNi MMi i jCi WhdNi (273Q MAPRINT 244Q PRIN1 234Q POSITION 227Q PRIN1 217Q PRIN1 165Q ASKUSERLOOKUP 141Q PRIN1 134Q MAPRINT 114Q ASKUSEREXPLAIN 107Q \APPEND2 104Q \APPEND2 67Q ASKUSERLOOKUP 27Q ASKUSERLOOKUP 20Q ASKUSERSETUP) (210Q & 202Q  162Q KEYSTRING 153Q EXPLAINSTRING 64Q KEYSTRING 42Q EXPLAINSTRING 24Q KEYLST) () ASKUSERPRIN1 D1 (I 1 NODOFLG I 0 X F 0 LISPXPRNTFLG) PA@i @ihA @(20Q LISPXPRIN1 10Q PRIN1) NIL () MAKEKEYLST D1 (P 14Q KEYSTRING P 13Q X P 7 I P 5 KEY P 0 TEM I 3 AUTOCOMPLETEFLG I 2 LCASFLG I 1 DEFAULTKEY I 0 LST)  @@Td]hgBMd M Mo gigCgMddi3 gMhhKJh\J&LXdkR NOA~o|_g'_OOgigOoO giggoOYddi3 gIhhh_OOh__NOk_O&_Ah (367Q \NCONC2 364Q \NCONC2 225Q CONCAT 45Q CONCAT 34Q L-CASE 26Q U-CASE) (264Q QUOTE 237Q PROGN 234Q RETURN 230Q CONFIRMFLG 212Q EXPLAINSTRING 206Q NOECHOFLG 173Q KEYSTRING 76Q QUOTE 60Q RETURN 54Q AUTOCOMPLETEFLG 50Q CONFIRMFLG 17Q KEYSTRING) ( 243Q (TERPRI T) 220Q " - " 163Q ("No - none of the above " "" CONFIRMFLG T AUTOCOMPLETEFLG T RETURN NIL) 42Q " ") COROUTINE D1 (I 3 ENDFORM## I 2 COROUTFORM## I 1 COROUTPTR## I 0 CALLPTR##) H@d-ji bAd-ji bdmg A B @Cmg hi i (105Q RETTO 101Q ENVEVAL 74Q STKNTH 62Q EVAL 56Q RESUME 52Q STKNTH 37Q SET 34Q STKNTH 16Q SET 13Q STKNTH) (71Q COROUTINE 47Q COROUTINE) () GENERATOR D1 (I 1 COMVAR## I 0 FORM##) PAd bji ji bAdji AAji AmgA A @ AAi (115Q RETTO 106Q EVAL 102Q RESUME 76Q STKNTH 60Q STKNTH 43Q STKNTH 23Q STKNTH 16Q STKNTH 5 EVAL) (71Q GENERATOR) () GENERATE D1 (I 1 VAL I 0 HANDLE) @@A (7 RESUME) NIL () PRODUCE D1 (I 0 VAL F 0 COMVAR##) PP@ (7 RESUME) NIL () GENERATEFN D1 (I 1 COMVAR## I 0 FN) IAji ji bAji Adji AmgA A j@AAi (106Q RETTO 73Q RESUME 67Q STKNTH 51Q STKNTH 34Q STKNTH 15Q STKNTH 10Q STKNTH) (62Q GENERATEFN) () ADIEU D1 (P 0 VAL## F 1 POSSLIST## F 2 COMVAR##) #eHjHH @ RQhci (40Q RETTO 24Q NOTE 17Q \FZEROP) NIL () AU-REVOIR D1 (P 0 VAL## F 1 COMVAR## F 2 POSSLIST##) (eHjHH @ Q QQRhc (45Q RESUME 31Q NOTE 24Q NOTE 17Q \FZEROP) NIL () CLEANPOSLST D1 (P 0 X I 0 PLST) &@dH hH H (41Q RELSTK 33Q RELSTK) NIL () NOTE D1 (I 1 LSTFLG I 0 VAL F 0 POSSLIST##) PA@@h c(12Q \NCONC2) NIL () POSSIBILITIES D1 (P 1 POSSLIST## P 0 COMVAR## I 0 FORM##) ! mg ji Xh @ h(35Q ADIEU 32Q EVAL 26Q PRODUCE 17Q STKNTH 12Q STKNTH) (7 POSSIBILITIES) () TRYNEXT D1 (P 0 PL1## I 2 VAL## I 1 ENDFORM## I 0 PLST##) #@d B X H gA h(35Q RETEVAL 23Q SET 16Q TRYNEXT1 13Q EVAL 7 EVAL) (31Q TRYNEXT) () TRYNEXT1 D1 (P 0 PL1## I 1 MSG## I 0 PLST##) $@dXHd@HA @ b(36Q \NCONC2 31Q RESUME) NIL () POSSIBILITYFN D1 (L (0 FN) I 2 POSSLIST## I 1 COMVAR##) mg ji bh j@(33Q ADIEU 24Q PRODUCE 14Q STKNTH 7 STKNTH) (4 POSSIBILITYFN) () GAINSPACEA0001 D1 (NAME ERRORSET F 0 X F 1 RESPONSE) -P %`gPhPi cgP i(51Q EVAL 33Q ASKUSER 4 EVAL) (40Q N 14Q N 11Q DWIMWAIT) () GAINSPACEA0002 D1 (I 0 ATM) @` (6 REMPROPLIST) (3 SMASHPROPSLST1) () GAINSPACE D1 (P 1 RESPONSE P 0 X) \h`di ji oi `-i oi g `dHH g(120Q EVAL 77Q MAPATOMS 70Q PRIN1 57Q TERPRI 41Q GAINSPACEA0001 30Q TERPRI 21Q POSITION) (131Q done 103Q SMASHPROPSLST1 74Q GAINSPACEA0002 51Q SMASHPROPSLST1 6 GAINSPACEFORMS 3 SMASHPROPSLST1) ( 64Q "mapatoms called to erase the indicated properties..." 35Q (GAINSPACEA0001)) ERASEPROPS D1 (P 0 X I 0 RESPONSE) `` @dgVi oi `?dHdYlI` hhdHhhi gH` hg@g?0`dH YJI[ZK@g d  ZI(263Q HELP 253Q LAST 247Q EDITE 244Q SORT 205Q \APPEND2 134Q UNION 117Q ASKUSER 73Q MEMB 40Q PRIN1 30Q TERPRI 10Q UNION) (235Q E 231Q SMASHPROPSLST1 171Q SMASHPROPSMENU 160Q E 152Q A 137Q SMASHPROPSLST1 131Q SMASHPROPSLST1 122Q Y 70Q SMASHPROPSLST1 43Q SMASHPROPSMENU 20Q Y 13Q SMASHPROPSLST1 5 SMASHPROPSLST 2 SMASHPROPSLST1) ( 34Q "indicate which ones: ") PURGEHISTORYA0001 D1 (NAME ERRORSET P 0 COM F 1 TYPE) hQdgi6g-hdooi ci hdohi g`Q `Q `Q `7`Q `&dHlQHg Hg hh(222Q PURGEHISTORY2 206Q REMPROP 153Q PURGEHISTORY1 136Q PURGEHISTORY1 126Q PURGEHISTORY1 116Q PURGEHISTORY1 106Q HELP 73Q ASKUSER 56Q TERPRI 47Q ASKUSER) (213Q *HISTORY* 203Q *HISTORY* 157Q LISPXCOMS 147Q ARCHIVELST 142Q ARCHIVEFLG 132Q LASTHISTORY 122Q EDITHISTORY 112Q LISPXHISTORY 102Q ARCHIVEFLG 76Q Y 25Q Y 20Q ARCHIVEFLG 11Q E 3 ARCHIVEFLG) ( 65Q "ARCHIVELST and named commands too ? " 42Q ((Y "es - everything" RETURN T) (N "o - just the properties" RETURN (QUOTE NIL)) (E "verything" RETURN T) (J "ust the properties" RETURN (QUOTE NIL))) 36Q "purge everything, or just the properties, e.g. SIDE, LISPXPRINT, etc. ? ") PURGEHISTORY D1 (P 1 MACROY P 0 MACROX I 0 TYPE F 2 RESETVARSLST) Cg`RcRYog HIdRHcR RkI H(77Q ERROR! 66Q NLEFT 57Q TAILP 31Q PURGEHISTORYA0001) (37Q ARCHIVEFLG 26Q INTERNAL 5 ARCHIVEFLG 2 ARCHIVEFLG) ( 23Q (PURGEHISTORYA0001)) PURGEHISTORY1 D1 (I 1 FLG I 0 LST) 6@h0A@h@d`dghhd h(55Q PURGEHISTORY2) (34Q  20Q EDITHISTORY) () PURGEHISTORY2 D1 (P 0 TEM I 0 ENTRY) <g@ X'@gHgd@ hHd @hh(55Q PURGEHISTORY2 35Q MEMB 11Q MEMB) (30Q *HISTORY* 24Q *GROUP* 5 *GROUP*) () (PRETTYCOMPRINT ASSISTCOMS) (RPAQQ ASSISTCOMS ((COMS (FILEPKGCOMS CONSTANTS)) (COMS (* File read macro for *) (DECLARE: DOEVAL@COMPILE DONTCOPY (RECORDS COMMENTBOX)) (FNS READCOMMENT GETCOMMENT PRINTCOMMENT NORMALCOMMENTS) (INITVARS (NORMALCOMMENTSFLG T)) (USERMACROS GET*)) (COMS (* Read macro for ') (FNS READ') (P (AND ( BOUNDP (QUOTE EDITRDTBL)) (READTABLEP EDITRDTBL) (PROGN (SETSYNTAX (QUOTE ') (QUOTE (MACRO FIRST ESCQUOTE READ')) EDITRDTBL) (SETSYNTAX (QUOTE ') EDITRDTBL T))))) (COMS (GLOBALVARS SPELLINGS1 SPELLINGS2 USERWORDS) (FNS PRINTPROPS PRINTBINDINGS) (LISPXMACROS PL PB ;)) (COMS (GLOBALVARS SYSPRETTYFLG) (FNS SHOWPRINT SHOWPRIN2) (INITVARS (SYSPRETTYFLG))) (COMS (GLOBALVARS LAST? LISPXREADFN ) (FNS DO? DO?= READLINEP) (VARS (LAST?)) (P (SETSYNTAX (QUOTE ?) (QUOTE (INFIX FIRST NOESC DO?)) T) ( AND (BOUNDP (QUOTE EDITRDTBL)) (READTABLEP EDITRDTBL) (SETSYNTAX (QUOTE ?) T EDITRDTBL))) (PROP ARGNAMES DEFINEQ) (USERMACROS ?=)) (COMS * ASKUSERCOMS) (COMS (* Coroutine package.) (I.S.OPRS OUTOF) (PROP (MACRO INFO) COROUTINE GENERATOR TRYNEXT POSSIBILITIES) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML TRYNEXT POSSIBILITIES GENERATOR COROUTINE BQUOTE ASKUSERLOOKUP) (LAMA AU-REVOIR ADIEU))) (FNS COROUTINE GENERATOR GENERATE PRODUCE GENERATEFN) (FNS ADIEU AU-REVOIR CLEANPOSLST NOTE POSSIBILITIES TRYNEXT TRYNEXT1 POSSIBILITYFN) (ADDVARS (SYSSPECVARS COMVAR## POSSLIST##))) (COMS (* gainspace package) (DECLARE: DOEVAL@COMPILE DONTCOPY (RECORDS GAINSPACE) (GLOBALVARS GAINSPACEFORMS SMASHPROPSMENU SMASHPROPSLST SMASHPROPSLST1 DWIMWAIT ARCHIVELST LASTHISTORY ARCHIVEFLG LISPXCOMS LISPXHISTORY EDITHISTORY)) (FNS GAINSPACE ERASEPROPS PURGEHISTORY PURGEHISTORY1 PURGEHISTORY2) (VARS SMASHPROPSMENU (SMASHPROPSLST)) (ADDVARS (GAINSPACEFORMS ((CAR LISPXHISTORY) "purge history lists" (PURGEHISTORY RESPONSE) ((Y "es") (N "o") (E . "verything"))) (T "discard definitions on property lists" (SETQ SMASHPROPSLST1 (CONS (QUOTE EXPR) (CONS (QUOTE CODE) ( CONS (QUOTE SUBR) SMASHPROPSLST1))))) (T "discard old values of variables" (SETQ SMASHPROPSLST1 (CONS (QUOTE VALUE) SMASHPROPSLST1))) (T "erase properties" (ERASEPROPS RESPONSE) ((Y "es" EXPLAINSTRING "Yes - you will be asked which properties are to be erased") (N "o") (A "ll" CONFIRMFLG T EXPLAINSTRING "All - all properties on mentioned on SMASHPROPSMENU") (E "dit " EXPLAINSTRING "Edit - you will be allowed to edit a list of property names"))) (CLISPARRAY "erase CLISP translations" (CLRHASH CLISPARRAY)) (CHANGESARRAY "erase changes array" (CLRHASH CHANGESARRAY)) (SYSHASHARRAY "erase system hash array" (CLRHASH)) ((GETPROP (QUOTE EDIT) (QUOTE LASTVALUE)) "discard context of last edit" (REMPROP (QUOTE EDIT) (QUOTE LASTVALUE))) (GREETHIST "discard information saved for undoing your greeting" (SETQ GREETHIST))))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML TRYNEXT POSSIBILITIES GENERATOR COROUTINE ASKUSERLOOKUP) (LAMA AU-REVOIR ADIEU))))) (PUTDEF (QUOTE CONSTANTS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (DECLARE: EVAL@COMPILE (VARS . X) (P (CONSTANTS . X)))))))) (RPAQ? NORMALCOMMENTSFLG T) (ADDTOVAR EDITMACROS (GET* NIL (BIND (IF (NEQ (SETQ #1 (GETCOMMENT (##))) (##)) ((I : #1) 1) NIL)))) (ADDTOVAR EDITCOMSA GET*) (AND (BOUNDP (QUOTE EDITRDTBL)) (READTABLEP EDITRDTBL) (PROGN (SETSYNTAX (QUOTE ') (QUOTE (MACRO FIRST ESCQUOTE READ')) EDITRDTBL) (SETSYNTAX (QUOTE ') EDITRDTBL T))) (ADDTOVAR LISPXHISTORYMACROS (PL (COND (LISPXLINE (MAPC (NLAMBDA.ARGS LISPXLINE) (FUNCTION PRINTPROPS) )) (T (QUOTE (E PL))))) (PB (COND (LISPXLINE (MAPC (NLAMBDA.ARGS LISPXLINE) (FUNCTION (LAMBDA (X) ( PRINTBINDINGS X (AND (EQ LISPXID (QUOTE :)) LASTPOS)))))) (T (QUOTE (E PB))))) (; NIL NIL)) (ADDTOVAR HISTORYCOMS ;) (RPAQ? SYSPRETTYFLG) (RPAQQ LAST? NIL) (SETSYNTAX (QUOTE ?) (QUOTE (INFIX FIRST NOESC DO?)) T) (AND (BOUNDP (QUOTE EDITRDTBL)) (READTABLEP EDITRDTBL) (SETSYNTAX (QUOTE ?) T EDITRDTBL)) (PUTPROPS DEFINEQ ARGNAMES (NIL (X1 XI ... XN) . X)) (ADDTOVAR EDITMACROS (?= NIL (E (PROGN (DO?= (##)) (TERPRI T)) T))) (ADDTOVAR EDITCOMSA ?=) (RPAQQ ASKUSERCOMS ((* Askuser package.) (GLOBALVARS DEFAULTKEYLST ASKUSERTTBL) (FNS ASKUSER ASKUSERLOOKUP ASKUSERCHAR ASKUSER$ ASKUSER1 ASKUSERSETUP ASKUSEREXPLAIN ASKUSERPRIN1 MAKEKEYLST) ( INITVARS (DEFAULTKEYLST (QUOTE ((Y "es ") (N "o ")))) (ASKUSERTTBL (COPYTERMTABLE))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (CONTROL T ASKUSERTTBL) ( ECHOMODE NIL ASKUSERTTBL))) (DECLARE: DOEVAL@COMPILE DONTCOPY (RECORDS ASKUSER OPTIONS)))) (RPAQ? DEFAULTKEYLST (QUOTE ((Y "es ") (N "o ")))) (RPAQ? ASKUSERTTBL (COPYTERMTABLE)) (CONTROL T ASKUSERTTBL) (ECHOMODE NIL ASKUSERTTBL) (I.S.OPR (QUOTE OUTOF) NIL (QUOTE (SUBST (GENSYM) (QUOTE GENVAR) (QUOTE (BIND GENVAR _ (GENERATOR BODY ) EACHTIME (COND ((EQ (SETQ I.V. (GENERATE GENVAR)) GENVAR) (GO $$OUT))) FINALLY (RELSTK (CDR GENVAR)) )))) T) (PUTPROPS COROUTINE MACRO ((P1 P2 F1 F2) (PROGN (OR (STACKP P1) (SETQ P1 (STKNTH 0 T))) (OR (STACKP P2 ) (SETQ P2 (STKNTH 0 T))) ((LAMBDA (..MACROX.) (COND ((EQ ..MACROX. P2) P2) (T (RESUME P2 ..MACROX. P2 ) F1 (RETTO P1 F2 T)))) (STKNTH -1))))) (PUTPROPS GENERATOR MACRO ((FORM COMVAR) (GENERATEFN (FUNCTION (LAMBDA NIL FORM)) COMVAR))) (PUTPROPS TRYNEXT MACRO ((PLST NOMORE MSG) (COND ((SETQ PLST (TRYNEXT1 PLST MSG)) (PROG1 (CAR PLST) ( SETQ PLST (CDR PLST)))) (T (SETQ PLST (CDR PLST)) NOMORE)))) (PUTPROPS POSSIBILITIES MACRO ((FORM) (POSSIBILITYFN (FUNCTION (LAMBDA NIL FORM))))) (PUTPROPS COROUTINE INFO EVAL) (PUTPROPS GENERATOR INFO EVAL) (PUTPROPS TRYNEXT INFO EVAL) (PUTPROPS POSSIBILITIES INFO EVAL) (ADDTOVAR SYSSPECVARS COMVAR## POSSLIST##) (RPAQQ SMASHPROPSMENU (("old values of variables" VALUE) ("function definitions on property lists" EXPR CODE) ("advice information" ADVISED ADVICE READVICE (SETQ ADVISEDFNS NIL)) ("filemaps" FILEMAP) ( "clisp information (warning: this will disable clisp!)" ACCESSFN BROADSCOPE CLISPCLASS CLISPCLASSDEF CLISPFORM CLISPIFYISPROP CLISPINFIX CLISPISFORM CLISPISPROP CLISPNEG CLISPTYPE CLISPWORD CLMAPS I.S.OPR I.S.TYPE LISPFN SETFN UNARYOP) ( "compiler information (warning: this will disable the compiler!)" AMAC BLKLIBRARYDEF CROPS CTYPE GLOBALVAR MACRO MAKE OPD UBOX) ("definitions of named history commands" *HISTORY*) ( "context of edits exited via save command" EDIT-SAVE))) (RPAQQ SMASHPROPSLST NIL) (ADDTOVAR GAINSPACEFORMS ((CAR LISPXHISTORY) "purge history lists" (PURGEHISTORY RESPONSE) ((Y "es") ( N "o") (E . "verything"))) (T "discard definitions on property lists" (SETQ SMASHPROPSLST1 (CONS ( QUOTE EXPR) (CONS (QUOTE CODE) (CONS (QUOTE SUBR) SMASHPROPSLST1))))) (T "discard old values of variables" (SETQ SMASHPROPSLST1 (CONS (QUOTE VALUE) SMASHPROPSLST1))) (T "erase properties" (ERASEPROPS RESPONSE) ((Y "es" EXPLAINSTRING "Yes - you will be asked which properties are to be erased") (N "o") (A "ll" CONFIRMFLG T EXPLAINSTRING "All - all properties on mentioned on SMASHPROPSMENU") (E "dit " EXPLAINSTRING "Edit - you will be allowed to edit a list of property names"))) (CLISPARRAY "erase CLISP translations" (CLRHASH CLISPARRAY)) (CHANGESARRAY "erase changes array" (CLRHASH CHANGESARRAY)) (SYSHASHARRAY "erase system hash array" (CLRHASH)) ((GETPROP (QUOTE EDIT) (QUOTE LASTVALUE)) "discard context of last edit" (REMPROP (QUOTE EDIT) (QUOTE LASTVALUE))) (GREETHIST "discard information saved for undoing your greeting" (SETQ GREETHIST))) (PUTPROPS ASSIST COPYRIGHT ("Xerox Corporation" T 1978 1982 1983 1984 1985)) NIL