(FILECREATED "23-Aug-84 10:59:51" ("compiled on " {ERIS}SOURCES>ASSIST.;6) "21-Aug-84 06:44:02" brecompiled changes: READCOMMENT GETCOMMENT PRINTCOMMENT NORMALCOMMENTS in "INTERLISP-D 21-Aug-84 ..." dated "21-Aug-84 06:58:35") (FILECREATED "23-Aug-84 10:56:45" {ERIS}SOURCES>ASSIST.;6 79932 changes to: (FNS NORMALCOMMENTS READCOMMENT GETCOMMENT PRINTCOMMENT) (VARS ASSISTCOMS) (RECORDS COMMENTBOX) (USERMACROS GET*) previous date: "16-Aug-84 00:14:35" {ERIS}SOURCES>ASSIST.;5) PRINTPROPSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 1 AT F 2 MACROY) ]Q`HÓÐHÓÐÉµAQh`µQ`HÓÐHÓÐÉ°"dHid¿oi ¿Hidµßhci(120Q SHOWPRINT 107Q PRIN1 76Q PRIN2 34Q MISSPELLED?) (50Q \PLISTSPACE 42Q LITATOM 31Q USERWORDS 11Q \PLISTSPACE 3 LITATOM) ( 103Q " : ") PRINTPROPS D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 AT F 4 RESETVARSLST) >o 1gHhhTcYog £g»IcgI K“J(71Q ERROR! 64Q APPLY 41Q PRINTPROPSA0001 6 PRINTLEVEL) (55Q PRINTLEVEL 45Q ERROR 36Q INTERNAL 14Q PRINTLEVEL) ( 33Q (DUMMY.FOR.ERRORSET) 3 (2 . 3)) PRINTBINDINGSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 FL F 3 POS F 4 AT F 5 MACROY) Î R£ic¿oR ¿TR ¿oR ¿R ¿jSµg c¿TSdc²lTS ¸oR ¿S Ri¿S ³3oR ¿kSIY šI Ri°kIdYµêoR ¿oR ¿HRi¿kSdc³ŽI ¿oR ¿oR ¿T Rihc 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 £g»IcgI K“J(71Q ERROR! 64Q APPLY 41Q PRINTBINDINGSA0001 6 PRINTLEVEL) (55Q PRINTLEVEL 45Q ERROR 36Q INTERNAL 14Q PRINTLEVEL) ( 33Q (DUMMY.FOR.ERRORSET)) ASKUSERA0034A0035 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 OPTIONSLST F 1 KEYLST F 2 PRINTLST) 'Pg µoi ¿QRPg µoi(43Q ASKUSEREXPLAIN 32Q \ASKUSERBLOCK/ASKUSERLOOKUP 20Q PRIN1 6 LISTGET) (27Q EXPLAINDELIMITER 3 EXPLAINSTRING) ( 40Q " " 14Q "one of: ") ASKUSERA0034A0037A0038 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 READBUF F 1 TEM) hc¿i c¿hh(7 READLINE) NIL () ASKUSERA0034A0037 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 RESETVARSLST F 3 KEY F 4 READBUF F 5 FILE F 6 TEM) _Sdgð—¿Ui °Lgð²BgTRcR¹og Hc¿IdRð•¿HcR ™RkIH¿µ…S ch(130Q EVAL 121Q ERROR! 110Q NLEFT 101Q TAILP 54Q ASKUSERA0034A0037A0038 14Q READ) (51Q INTERNAL 27Q READBUF 21Q 4 ) ( 46Q (DUMMY.FOR.ERRORSET)) ASKUSERA0034A0039 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TEM) P h(5 EVAL) NIL () ASKUSERA0034 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 10Q ANSWER P 6 TEM P 4 OLDTTBL P 1 ORIGMESS F 32Q FILE F 33Q KEYLST F 34Q DEFAULT F 35Q MESS F 36Q RESETVARSLST F 37Q TYPEAHEAD F 40Q LISPXPRNTFLG F 41Q READBUF F 42Q WAIT F 43Q RESETY F 44Q OPTIONSLST) ,W6µ`c6W:W8kô W4µic4¿ƒið²z¼g` hhW<c<¿W>—i c>°V¿¿hiWB_¿W:d² ¿W:c:˜o °o ‰™W: ¿hc:¿¿i œ¿¿i ¿W:µ°¥W: W:ihohdW@ ¿WDd¥d¡¢±·W8µ±°¦W8hc8¿WDnèÚ ’±šoi ¿W8½±À_2 ¿MOK ^ ’±žN¨O,¥Mgð“h±g ³`g ²XO2M ²POg µOh _¿O³O g µOh _ ¿OŸO Oi h _ ¿g c6¿k[±5O–MO ŠMgð¦Mgð²%OªO Mh _ ¿i²O2_0¿O.µO0h_._,¿O*_*±ùO0&_.¿°òMgð³O–MO ŠMgð¦Mgð²SW6MK^µW4ið£¿W8¥W4 ¿W>¢±›±ékØ»W8¥W4 ¿W6¢±¿Mgð¨Mgð¢±±gi ±¦M ^g ’±ªNg ’±ŸW8’±©W4ið²(Mg ^²i ¿L ¿N ¿` ±÷W8³xMgð²qW4ið²ki ¿i ¿o ¿i ¿I²Id£ ihohdW@ ¿O ‡di ¿µ÷Kkð’±¡W6dg µW6kKkÙi ±}W6h_&¿_$µ‚±“h_¢±þàOgð¢±MO´Ohc6¿W8¥W4 ¿W6 ¿W6«KO ýñ¢±lO³W4ið²g ^µ‚±µM^•Ni ¿KkØ»g ¢±dW6MK^¢±XW6’±%N[O ð¢±±A_&dgð«dgð¥dgð•_¿i°M²WO&dgð²¿gO& ^–MkN²9O&_¿i°#dgð¥dgð˜¿O&_¿i‹¿O&²O&_›O&µ‚±ÿi±ÿO$±þñK ±ÿKW4ið•Mi ¿L ¿o ` ¿¢±²O_(¿NO(O(hc6¿N kØ»i_"¿W4 ] ^gi²W6gMhW6°Ngi’±éW4 ]¿o±¿¿i ±ËNkØ±'O³#W4ið²KO ð²g ^µ{M^•Ni ¿Og µOh _¿O³O g µOh _ ¿O² g ^•MN ŸO Oi h _ ¿O³.W4ið²(KO ñ²Mgðžg §MˆK °„gi ¿O²gO–MO ‹Mgð³UMgð¢±ß°J½±3±O²`MdO ¢±¤¿O²!g ^²MN ŸO Oi h _ ¿O§gi ¿g ^µ W@¢±õO ±íc6¿k[¿W8c8µ™±–Mgð¨Mdgð²"¿O³ËO g ¡M‚gi h _ °¯g ^²L ¿N ¿` °"Mgð³gi ¿¿i ¿oi ¿g ˜oi ¿W4²&W4i ³ic4¿¼g` hhW<c<¿W8c8µ‚±þéW4 ] ^g ³ENg ¢±þÐ°8di ¿µ÷OµygOµgWH^²nL ¿o ^µW` ¿W>²i¿¿hiWB_¿gOKkðhð´W6dkKkÙhMh ¾Od’±ËN_±Ñ ¿°…Oµ¿OcFi °÷oi ¿¿i ¿Hc6¿h_ ¿k»h_¿W4²&W4i ³ic4¿¼g` hhW<c<¿W4 ½h_"c8¿W6AO*µ‚±ù8O,_µ‚±ûeO’±ùýKkð¢±ùöW8’±ùðMgðªMdgð¢±ùá¿O¥Mi ¿W4 ±ÿ~d—NO €N¿hc>_¿Hc6¿Ic:¿Jc8¿h_ ¿i ±øp(4047Q TERPRI 4011Q CONCAT 3774Q READC 3766Q PRIN1 3652Q PEEKC 3632Q SETTERMTABLE 3620Q GETTERMTABLE 3607Q READP 3554Q CLEARBUF 3547Q DOBE 3543Q PRIN1 3531Q PACK 3515Q NOTCHECKED 3503Q BKBUFS 3457Q APPLY 3454Q \NCONC2 3451Q \NCONC2 3441Q SUBSTRING 3403Q CLBUFS 3373Q SYSBUF 3367Q LINBUF 3357Q SETTERMTABLE 3346Q ASKUSERA0034A0039 3336Q SETTERMTABLE 3300Q \ASKUSERBLOCK/ASKUSERPRIN1 3264Q SYNTAXP 3253Q SYNTAXP 3244Q CHCON1 3240Q READC 3205Q SETTERMTABLE 3173Q GETTERMTABLE 3162Q READP 3145Q PRIN1 3134Q \ASKUSERBLOCK/ASKUSERLOOKUP 3125Q PRIN1 3114Q CLEARBUF 3107Q DOBE 3103Q PRIN1 3063Q SETTERMTABLE 3054Q EVAL 3046Q SETTERMTABLE 3037Q FASSOC 3034Q \ASKUSERBLOCK/ASKUSERLOOKUP 3022Q \NCONC2 3015Q PRIN1 3003Q \ASKUSERBLOCK/ASKUSERLOOKUP 2712Q \ASKUSERBLOCK/ASKUSERLOOKUP 2703Q PRIN1 2666Q \NCONC2 2661Q PRIN1 2650Q MEMB 2640Q \ASKUSERBLOCK/ASKUSERLOOKUP 2621Q MEMB 2551Q MEMB 2532Q PRIN1 2521Q NTHCHAR 2512Q \ASKUSERBLOCK/ASKUSERLOOKUP 2473Q NCHARS 2450Q \NCONC2 2443Q PRIN1 2432Q MEMB 2423Q \ASKUSERBLOCK/ASKUSERLOOKUP 2406Q \NCONC2 2375Q \ASKUSERBLOCK/ASKUSERLOOKUP 2356Q \NCONC2 2345Q \ASKUSERBLOCK/ASKUSERLOOKUP 2334Q PRIN1 2321Q \ASKUSERBLOCK/ASKUSERLOOKUP 2310Q NCHARS 2257Q CLEARBUF 2252Q DOBE 2246Q PRINTBELLS 2232Q READC 2221Q SYNTAXP 2163Q SYNTAXP 2153Q CHCON1 2147Q LASTC 2133Q NCHARS 2074Q SETTERMTABLE 2066Q ASKUSERA0034A0037 2056Q SETTERMTABLE 2051Q PRIN1 2034Q NTHCHAR 1720Q MEMB 1627Q NCHARS 1604Q \ASKUSERBLOCK/ASKUSER$ 1571Q \ASKUSERBLOCK/ASKUSERLOOKUP 1556Q PRIN1 1537Q \ASKUSERBLOCK/ASKUSERLOOKUP 1511Q NCHARS 1476Q \ASKUSERBLOCK/ASKUSERSETUP 1467Q READC 1375Q PRIN1 1371Q SUBSTRING 1354Q LISTGET 1321Q PRIN1 1307Q MAPRINT 1270Q \ASKUSERBLOCK/ASKUSERPRIN1 1255Q TERPRI 1250Q ASKUSERA0034A0035 1240Q READC 1233Q TERPRI 1203Q SETTERMTABLE 1174Q EVAL 1166Q SETTERMTABLE 1161Q READC 1152Q FASSOC 1147Q \ASKUSERBLOCK/ASKUSERLOOKUP 1120Q SYNTAXP 1105Q SYNTAXP 1076Q CHCON1 1067Q PRIN1 1031Q READC 1004Q READC 773Q ERROR! 760Q \ASKUSERBLOCK/ASKUSER$ 733Q MEMB 642Q \NCONC2 611Q MEMB 566Q \ASKUSERBLOCK/ASKUSERLOOKUP 555Q \NCONC2 550Q PRIN1 532Q \NCONC2 521Q \ASKUSERBLOCK/ASKUSERLOOKUP 502Q \NCONC2 471Q \ASKUSERBLOCK/ASKUSERLOOKUP 457Q \ASKUSERBLOCK/ASKUSER1 447Q \ASKUSERBLOCK/ASKUSERLOOKUP 437Q \ASKUSERBLOCK/ASKUSERLOOKUP 406Q \ASKUSERBLOCK/ASKUSERCHAR 402Q NTHCHAR 372Q \ASKUSERBLOCK/ASKUSERSETUP 354Q PRIN1 340Q WAITFORINPUT 266Q MAPRINT 245Q \ASKUSERBLOCK/ASKUSERPRIN1 227Q CLEARBUF 222Q DOBE 216Q PRINTBELLS 212Q READP 205Q DOBE 175Q \ASKUSERBLOCK/ASKUSERPRIN1 166Q \ASKUSERBLOCK/ASKUSERPRIN1 155Q \ASKUSERBLOCK/ASKUSERPRIN1 137Q \ASKUSERBLOCK/ASKUSERPRIN1 122Q CLBUFS 112Q SYSBUF 106Q LINBUF 77Q READP 55Q SETTERMTABLE 43Q GETTERMTABLE) (3750Q % 3741Q % 3627Q ASKUSERTTBL 3624Q SETTERMTABLE 3411Q CONCAT 3354Q ASKUSERTTBL 3324Q RETURN 3314Q RETURN 3261Q LINEDELETE 3250Q CHARDELETE 3202Q ASKUSERTTBL 3177Q SETTERMTABLE 3131Q PROMPTCONFIRMFLG 3077Q ? 3071Q ? 3060Q ASKUSERTTBL 3031Q MACROCHARS 3011Q % 3000Q KEYLST 2763Q % 2754Q % 2707Q KEYLST 2677Q % 2635Q PROMPTON 2565Q % 2556Q % 2526Q % 2507Q KEYLST 2502Q % 2420Q PROMPTON 2372Q KEYSTRING 2342Q KEYSTRING 2316Q KEYSTRING 2215Q BREAK 2174Q CONFIRMFLG 2157Q SEPR 2071Q ASKUSERTTBL 1756Q 1750Q 1713Q CLASS 1704Q & 1662Q 1654Q 1646Q & 1566Q AUTOCOMPLETEFLG 1534Q KEYSTRING 1433Q & 1351Q KEYSTRING 1216Q ? 1200Q ASKUSERTTBL 1144Q MACROCHARS 1115Q LINEDELETE 1102Q CHARDELETE 1063Q 1053Q % 1045Q % 746Q % 740Q % 716Q 624Q % 616Q % 563Q KEYLST 516Q KEYSTRING 466Q KEYSTRING 444Q KEYLST 434Q CONFIRMFLG 423Q ? 52Q ASKUSERTTBL 47Q SETTERMTABLE 6 DEFAULTKEYLST) ( 3537Q "___ " 3343Q (DUMMY.FOR.ERRORSET) 3141Q " [confirm] " 3121Q " [confirm] " 2240Q (T) 2063Q (DUMMY.FOR.ERRORSET) 1277Q " ? " 1245Q (DUMMY.FOR.ERRORSET) 350Q "..." 256Q " ? " 163Q " ? " 152Q " ") ASKUSER D1 (P 1 RESETY P 0 LISPXHIST I 7 FILE I 6 OPTIONSLST I 5 LISPXPRNTFLG I 4 TYPEAHEAD I 3 KEYLST I 2 MESS I 1 DEFAULT I 0 WAIT F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q ASKUSERA0034) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \ASKUSERBLOCK/ASKUSERLOOKUP D1 (L (0 FIELD) F 0 OPTIONS F 1 OPTIONSLST) @Pµ@Qd‘NIL NIL () \ASKUSERBLOCK/ASKUSERCHAR D1 (L (1 C2 0 C1) F 0 NOCASEFLG) >@Aðµ9Phð´4A´1@ bA b@l`ñ›l{@ñ–@l ÙAðAl`ñ´l{Añ´@Al Ùð(26Q CHCON1 20Q CHCON1) NIL () \ASKUSERBLOCK/ASKUSER1 D1 (L (1 CHAR 0 ENTRY)) W@g !HµhYdZgð³4Jgð³-Jgð³&J³"Jk ZAð³J£IµHX°É²ùIA ²òIµi(116Q \ASKUSERBLOCK/ASKUSER1 65Q NTHCHAR 10Q LISTGET) (51Q 42Q 33Q & 5 KEYLST) () \ASKUSERBLOCK/ASKUSER$ D1 (L (2 NC 1 CHAR) I 0 KEYLST F 6 KEY F 7 NOECHOFLG) @QHµI´BIñ²Fhdcgð³2Vgð³+J¬@dZ °Ik½¼MLñVM)JM)ð•MkØ]°ñMkÙ¹HX°³@ ¿g [–AK ´g µVBJ Ið’mÿ€I»W¦K”Ki I(213Q PRIN1 200Q SUBSTRING 166Q NCHARS 156Q \ASKUSERBLOCK/ASKUSERLOOKUP 146Q MEMB 137Q \ASKUSERBLOCK/ASKUSERLOOKUP 130Q \ASKUSERBLOCK/ASKUSERSETUP 62Q NCHARS) (153Q KEYSTRING 134Q COMPLETEON 42Q 33Q ) () \ASKUSERBLOCK/ASKUSERSETUP D1 (L (0 ENTRY) F 0 PROMPTSTRING F 1 KEY F 2 OPTIONS F 3 NOECHOFLG F 4 FILE F 5 OPTIONSLST F 6 ECHOEDFLG F 7 CONFIRMFLG F 10Q NOCASEFLG) ‹ @d³c¿hcc¿gU µi°?°;³ @c¿@c¿hc¿gU µi°°@c¿@c¿@c¿g c¿g cg cV“ic¿Tið³T´Ti ´ ic¿hch(176Q READP 147Q \ASKUSERBLOCK/ASKUSERLOOKUP 137Q \ASKUSERBLOCK/ASKUSERLOOKUP 126Q \ASKUSERBLOCK/ASKUSERLOOKUP 66Q MEMB 24Q MEMB) (144Q NOCASEFLG 134Q NOECHOFLG 123Q CONFIRMFLG 62Q CONFIRMFLG 20Q CONFIRMFLG) () ASKUSEREXPLAIN D1 (L (3 DELIMITER 1 PREV) P 7 OPTIONS P 5 PROMPTSTRING P 4 NOECHOFLG P 3 CONFIRMFLG P 2 KEY P 1 FILE I 2 OPTIONSLST I 0 KEYLST) ½@±¦diaH ¿g µA°EOg ^•ANh°ALhð´ g µJhMd‘h BC°Udd”i ƒi ¿µïOg ^µDg µJ^²L³Ngð«Ngð¥Ni ¿M•Mi ¿i jð¥Ci ¿µ‚±ÿYhd²à¿Ni °Ü(271Q MAPRINT 242Q PRIN1 232Q POSITION 225Q PRIN1 215Q PRIN1 163Q \ASKUSERBLOCK/ASKUSERLOOKUP 152Q LISTGET 135Q PRIN1 130Q MAPRINT 115Q ASKUSEREXPLAIN 110Q \APPEND2 105Q \APPEND2 70Q \ASKUSERBLOCK/ASKUSERLOOKUP 44Q LISTGET 27Q \ASKUSERBLOCK/ASKUSERLOOKUP 20Q \ASKUSERBLOCK/ASKUSERSETUP) (206Q & 200Q 160Q KEYSTRING 147Q EXPLAINSTRING 65Q KEYSTRING 41Q EXPLAINSTRING 24Q KEYLST) () \ASKUSERBLOCK/ASKUSERPRIN1 D1 (L (1 NODOFLG 0 X) F 0 LISPXPRNTFLG) P§A¬@i †@ihA@(20Q LISPXPRIN1 10Q PRIN1) NIL () GAINSPACEA0048 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 X F 1 RESPONSE) -P ²%`gPhPi cgð¦P i(51Q EVAL 33Q ASKUSER 4 EVAL) (40Q N 14Q N 11Q DWIMWAIT) NIL GAINSPACEA0049 D1 (L (0 ATM)) @` (6 REMPROPLIST) (3 SMASHPROPSLST1) NIL GAINSPACE D1 (P 1 RESPONSE P 0 X) \h`°di jð¤i ¿oi µä`²-i ¿oi ¿g ¿`ŽdJ”J ¿µðg(120Q EVAL 77Q MAPATOMS 70Q PRIN1 57Q TERPRI 41Q GAINSPACEA0048 30Q TERPRI 21Q POSITION) (131Q done 103Q SMASHPROPSLST1 74Q GAINSPACEA0049 51Q SMASHPROPSLST1 6 GAINSPACEFORMS 3 SMASHPROPSLST1) (64Q "mapatoms called to erase the indicated properties..." 35Q (DUMMY.FOR.ERRORSET)) ERASEPROPS D1 (I 0 RESPONSE) ±`` @dgð²V¿i oi `°?dHdYlð—I` ”µîh²hdHhhi gð›H` ¿µÂhgð¦@gð²:0`°d X–IµHZY¿µîJ@gð´ d YH°á(256Q HELP 246Q LAST 242Q EDITE 237Q SORT 201Q \APPEND2 134Q UNION 117Q ASKUSER 73Q MEMB 40Q PRIN1 30Q TERPRI 10Q UNION) (230Q E 224Q 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: ") PURGEHISTORYA0050 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 1 TYPE) žh¿Qdgð–¿i°6gð²-hdooi c¿i ¿hdohi gð‚¿`Q ¿`Q ¿`Q ¿`´7`Q ¿`°&dHlð²Q—Hg ŠHg ¿µÛhh(222Q \GAINSPACEBLOCK/PURGEHISTORY2 206Q REMPROP 153Q \GAINSPACEBLOCK/PURGEHISTORY1 136Q \GAINSPACEBLOCK/PURGEHISTORY1 126Q \GAINSPACEBLOCK/PURGEHISTORY1 116Q \GAINSPACEBLOCK/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 (I 0 TYPE F 2 RESETVARSLST) Cg`RcRYog H¿IdRð•¿HcR ™RkIH¿µ(77Q ERROR! 66Q NLEFT 57Q TAILP 31Q PURGEHISTORYA0050) (37Q ARCHIVEFLG 26Q INTERNAL 5 ARCHIVEFLG 2 ARCHIVEFLG) (23Q (DUMMY.FOR.ERRORSET)) \GAINSPACEBLOCK/PURGEHISTORY1 D1 (L (1 FLG 0 LST)) 6@hðµ0A“@h@d`ð²‹dgh¿µóh†d ¿µøh(55Q \GAINSPACEBLOCK/PURGEHISTORY2) (34Q 20Q EDITHISTORY) NIL \GAINSPACEBLOCK/PURGEHISTORY2 D1 (L (0 ENTRY)) <g@ X²'@gHgd@ h¿H†d ¿µø„@hh(55Q \GAINSPACEBLOCK/PURGEHISTORY2 35Q MEMB 11Q MEMB) (30Q *HISTORY* 24Q *GROUP* 5 *GROUP*) NIL READ' D1 (P 0 CH I 1 RDTBL I 0 FILE F 1 INBQUOTE) T@ HgA³HgA¨HgA“gHl,ð²Q²@ gg@A hg@A h(116Q READ 101Q READ 66Q READC 44Q SYNTAXP 33Q SYNTAXP 21Q SYNTAXP 6 CHCON1 3 PEEKC) (111Q QUOTE 74Q , 71Q QUOTE 50Q ' 40Q RIGHTBRACKET 27Q RIGHTPAREN 15Q SEPR) NIL READLINEP D1 (P 0 SCRATCHPOS I 0 POS) %`mÿ@X´mÿHhH gðH ¿(41Q RELSTK 31Q STKNAME 26Q REALSTKNTH 13Q STKPOS) (34Q READLINE 5 LISPXREADFN) NIL DO?=A0055A0056A0057 D1 (I 0 X F 0 FILE) @hl lPi(15Q PRIN2 10Q RETDWIM3) NIL NIL DO?=A0055A0056A0058 D1 (I 0 X F 0 FILE) @hl lPi(15Q PRIN2 10Q RETDWIM3) NIL NIL DO?=A0055A0056 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 R£ic¿U£jc ¿S³gc¿Tµ¿Tc¿TiTXd²d³¿T Ylð¤Ilð“HX€H—Hd¢±¿¿Sd³?HRi±ÍlR ¿oR ¿RiðªShl lSRi¿S¡H”R ¿Sc²$H²!Ujð¥UR ¿Hgð³¶HRi¿HX°¯Rið²&Hgð²oR ¿HRi¿oR °JSµHd²ERhog °4RoghRið³g°R ¿SRoghRið£g‚g ¿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?=A0055A0056A0058 433Q %) 412Q DO?=A0055A0056A0057 401Q %) 363Q , 304Q ... 252Q ... 24Q ?=) (430Q " = ... " 376Q "plus ... " 360Q " = " 335Q " = " 313Q ". . " 154Q " = ") DO?=A0055 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST) Al 1gHhhTc¹og £g»Ic¿gI ¿K“€Jh(71Q ERROR! 63Q APPLY 37Q DO?=A0055A0056 4 PRINTLEVEL) (54Q PRINTLEVEL 43Q ERROR 34Q INTERNAL 12Q PRINTLEVEL) (31Q (DUMMY.FOR.ERRORSET)) DO?= D1 (I 3 LEFT I 2 FILE I 1 FORM I 0 TAIL) oi (7 DO?=A0055) NIL (3 (DUMMY.FOR.ERRORSET)) DO?A0059 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TAIL F 1 FORM F 2 LST F 3 TEM) A`Pð³$R²!Q²QihiP Ÿ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?) NIL DO?A0060 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TAIL F 1 FORM F 2 FILE) PQ ¿R i(11Q TERPRI 4 DO?=) NIL NIL DO?A0061 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TEM F 1 FORM) QP kñ´ Plmÿlgi(21Q SUBATOM 5 NCHARS) (26Q PF) NIL DO?A0063 D1 (I 0 X) @id(5 PRIN2) NIL NIL DO?A0064 D1 (I 0 X) @id(5 PRIN2) NIL 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ð²@dgð¬dgð¦dgð²*²V]²W²kð¤Bdª¿V[BºV‚BZYhð€i²,BH XgA¨HgA“gŠg@A Hgð²og ²LL³Ioi °>@A \dgð²¿@ gð™oi °L l^ð²\@ gð²Roi ¿B–Bd ¿i K–Kid¿M²Mioohg ¿Bd²ioohg BBgL (443Q TCONC 440Q PACK* 426Q MAPRINT 377Q MAPRINT 350Q PRIN2 340Q TERPRI 332Q FLAST 320Q DO?A0061 302Q PEEKC 271Q CHCON1 263Q DO?A0060 246Q PEEKC 231Q READ 222Q PRIN1 205Q DO?A0059 163Q TCONC 160Q PACK* 155Q READ 140Q SYNTAXP 127Q SYNTAXP 117Q CHCON1 57Q INREADMACROP 42Q READLINEP 6 PEEKC) (434Q ? 422Q DO?A0064 373Q DO?A0063 305Q % 251Q % 236Q = 202Q NOBREAK 170Q % 150Q ? 144Q ? 134Q BREAK 123Q SEPR 34Q ^ 26Q = 20Q % ) (416Q " " 412Q "(" 367Q " " 363Q " " 314Q (DUMMY.FOR.ERRORSET) 257Q (DUMMY.FOR.ERRORSET) 216Q "unavailable subject. " 177Q (DUMMY.FOR.ERRORSET)) READVBAR D1 (I 2 TC I 1 RDTBL I 0 FILE) F@ dgðž¿@ B@A dgð—¿@ ¿°Ûdgð«dgð¥dgð™¿B@ B(101Q TCONC 76Q HREAD 43Q READC 27Q TCONC 24Q READBQUOTE 16Q READC 3 PEEKC) (66Q ^ 60Q { 52Q %( 34Q % 7 ') NIL READBQUOTEA0095 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 INBQUOTE F 1 RDTBL F 2 RESETVARSLST F 3 FILE F 4 RESETY) 3ggdoQQhhhRc¿igSQ hci(51Q READ 16Q SETSYNTAX) (44Q BQUOTE 5 , 2 SETSYNTAX) (12Q (MACRO FIRST READBQUOTECOMMA)) READBQUOTE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 RDTBL I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q READBQUOTEA0095) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) READBQUOTECOMMA D1 (I 1 RDTBL I 0 FILE) 4@ dgð˜¿@ gdgð˜¿@ ggð—@ gg(52Q READC 35Q READC 16Q READC 3 PEEKC) (61Q , 55Q ,@ 44Q @ 40Q ,! 26Q ! 21Q ,. 7 %.) NIL EXPANDBQUOTE D1 (P 6 DV P 5 AV P 4 BCDR P 3 BCAR I 0 X) ì@µ@d²dið³d¥d¡µ g@hdgð²>¿0@dgð³¿H@h @ @b¿ºIµ JhY¸°ÏJ&¹°Êdgðš¿@ b°dgð³dgð¬dgð¦dgð²0¿@d²&dgð¥dgð”¿gƒ¿g@@ h¿@ @ "K ]²L ^›gMNhKL (351Q BQ.CONS 326Q CONSTANTEXPRESSIONP 317Q CONSTANTEXPRESSIONP 310Q EXPANDBQUOTE 303Q EXPANDBQUOTE 265Q EXPANDBQUOTE 161Q EXPANDBQUOTE 115Q BQ.CONS 112Q EXPANDBQUOTE 104Q BQ.PROGN 101Q \NCONC2) (333Q QUOTE 254Q APPEND 247Q NCONC 241Q ,. 233Q ., 214Q ,! 206Q ,@ 200Q ., 171Q ,. 150Q BQUOTE 63Q , 45Q , 33Q QUOTE) NIL BQUOTE D1 (L (0 BQUOTEX)) @ (3 DOBQUOTE) NIL NIL DOBQUOTE D1 (L (0 BQUOTEX)) y@µ@dgðž¿@ @ dgðš¿@ b°Ödgð³dgð¬dgð¦dgð²¿@ @ ¿@ @ Hd@ð˜¿I@ð‘@HI(142Q DOBQUOTE 135Q DOBQUOTE 126Q \APPEND2 123Q DOBQUOTE 115Q EVAL 50Q EXPANDBQUOTE 31Q DOBQUOTE 23Q EVAL) (103Q ,! 75Q ,@ 67Q ., 60Q ,. 37Q BQUOTE 12Q ,) NIL BQ.CONS D1 (L (1 XD 0 XA)) <Adgð¥dgð™¿g@Agð˜g@AA™g@Ahg@hNIL (65Q LIST 53Q CONS 40Q LIST 33Q LIST 22Q LIST* 14Q LIST* 6 CONS) NIL BQ.PROGN D1 (L (0 L)) @d–¿g@NIL (7 PROGN) NIL 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) Q Bd²d¯¿@ið©Wið¤@ ¦BW l@ _ñ¾@ ¼@A ]gð³9Mgð³2Mgð³+Mgð³$Mgð³Mgð³MgðMgð§Mdgð“¿i°@d¥d¡’i°2MWð³+W“Wµ@ dgð«dgð¥dgðš¿i‰M ²ãi¿h³%@LlÙY ¿Olð™@IlÙY ¿@ gðœ@L ¿BW @ ZIÙ»@JkÙ ¿WµBWIKN_¿@µOh ›W-_g «W_g ²ËO ½@OIJ¿@JkÙ ¿M¹Wb¿°«(505Q SETFILEPTR 475Q COPYBYTES 464Q GETFILEPTR 455Q OPENP 442Q OPENP 426Q BOUNDP 422Q LCONC 407Q INPUT 363Q SETFILEPTR 350Q GETFILEPTR 343Q TCONC 334Q SETFILEPTR 322Q SKREAD 315Q SETFILEPTR 275Q SETFILEPTR 254Q STRPOSL 223Q PEEKC 63Q RATOM 55Q GETFILEPTR 45Q POSITION 36Q TCONC 27Q RANDACCESSP) (452Q OUTPUT 437Q OUTPUT 325Q %] 243Q _ 235Q %] 227Q %) 156Q E 147Q DECLARATIONS: 141Q %. 132Q ' 123Q %" 114Q %] 105Q %[ 76Q %) 67Q %() () GETCOMMENTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FL) Pg ci(6 OPENFILE) (3 INPUT) () GETCOMMENTA0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 NORMALCOMMENTSFLG F 1 X F 2 FL F 3 FILERDTBL) ic¿QRS 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) ®`@Xd¥d¡³6H¢±²Hd¥d¡¢±¢Hd¥d¡¢±’HnèÚHØX¢±„@Yd¥d¡²r@Z²j@[”Kið²]@d³U¿JAð³NjHñ³IJ “J-Z€Jg ³Jo ³0o]gW ³Mi ¿@i ¿oi @gJhhhWc¿JH A³KgWWcW_og Nc¿OdWð–¿Nc°W ›WkON¿µB²8` ¼Kœ¿l hi°]lØWñ—Whi†WMÙ ¿`µDWgð³A ³@A ¿@A ¿JAHdIØLµB´ K´ ¿h ¿°í ¿°º(651Q CHANGEFONT 643Q CHANGEFONT 636Q ENDLINE1 632Q ENDLINE1 616Q COPYBYTES 604Q /RPLACA 573Q /RPLACA 570Q GETFILEPTR 560Q DISPLAYP 536Q SPACES 526Q ENDLINE1 507Q POSITION 502Q ENDLINE1 472Q ENDLINE1 464Q CHANGEFONT 451Q ERROR! 440Q NLEFT 427Q TAILP 376Q GETCOMMENTA0002 337Q SETFILEPTR 307Q LISPXPRIN1 276Q LISPXPRIN2 264Q LISPXPRIN1 255Q MEMB 250Q MEMB 231Q GETCOMMENTA0001 220Q OPENP 204Q BOUNDP) (551Q DONTUPDATE 542Q COMMENTFONT 461Q DEFAULTFONT 373Q INTERNAL 345Q NORMALCOMMENTSFLG 314Q CLOSEF? 243Q *LISPXPRINT* 215Q INPUT) ( 370Q (DUMMY.FOR.ERRORSET) 303Q " - comments lost " 237Q "can't find file " 226Q (DUMMY.FOR.ERRORSET)) PRINTCOMMENT D1 (P 0 FL I 0 X F 1 DEF F 2 FORMFLG F 3 **COMMENT**FLG F 4 CHANGEFLG0) -Q²R²X ’SµT¤H ™@ 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) 8Pd@ð³2@³goQ¿gR ³o ŠgoQ¿@c¿(60Q SETSYNTAX 44Q SAVESETQ 33Q ASSOC 23Q SETSYNTAX) (50Q * 27Q * 13Q *) ( 54Q (QUOTE OTHER) 41Q (PRETTYPRINTMACROS (CONS (QUOTE (* . PRINTCOMMENT)) PRETTYPRINTMACROS)) 17Q (INFIX ALONE NOESC READCOMMENT)) 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) () 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) @@°`d]hgBMd ”M €Mo gigCgMd²dið³d¥d¡µ gMhhºKµJh\J&»µ¡LXdkRNµOAµ‚±o±Š_g _¿OOgigOoOgiggoOYd²dið³d¥d¡µ gIhhh_¿OµOh__¿N¾OkØ_¿±ÿsO&_¿°í´Ah (425Q \NCONC2 422Q \NCONC2 250Q CONCAT 217Q LISTGET 47Q CONCAT 36Q L-CASE 31Q EQUAL 26Q U-CASE) (321Q QUOTE 262Q PROGN 257Q RETURN 253Q CONFIRMFLG 235Q EXPLAINSTRING 231Q NOECHOFLG 214Q KEYSTRING 112Q QUOTE 62Q RETURN 56Q AUTOCOMPLETEFLG 52Q CONFIRMFLG 17Q KEYSTRING) (266Q (TERPRI T) 243Q " - " 203Q ("No - none of the above " "" CONFIRMFLG T AUTOCOMPLETEFLG T RETURN NIL) 44Q " ") COROUTINE D1 (I 3 ENDFORM## I 2 COROUTFORM## I 1 COROUTPTR## I 0 CALLPTR##) H@d-µji bAd-µji bdmÿg AB @Cmÿg hii(105Q RETTO 101Q ENVEVAL 74Q STKNTH 62Q EVAL 56Q RESUME 52Q STKNTH 37Q SET 34Q STKNTH 16Q SET 13Q STKNTH) (71Q COROUTINE 47Q COROUTINE) NIL OLDRESUME D1 (I 2 VAL I 1 TOPTR I 0 FROMPTR) mÿg@ABi(16Q RETTO 10Q STKNTH) (4 RESUME) NIL GENERATOR D1 (I 1 COMVAR## I 0 FORM##) PAd” b®ji ji b°Ad§ji ¿A§Aji ¿AmÿgAA@ AAi(115Q RETTO 106Q EVAL 102Q RESUME 76Q STKNTH 60Q STKNTH 43Q STKNTH 23Q STKNTH 16Q STKNTH 5 EVAL) (71Q GENERATOR) NIL GENERATE D1 (I 1 VAL I 0 HANDLE) @@A(7 RESUME) NIL NIL PRODUCE D1 (I 0 VAL F 0 COMVAR##) PP@(7 RESUME) NIL NIL GENERATEFN D1 (I 1 COMVAR## I 0 FN) IAµji ji b°§Aji ¿Ad§ji ¿AmÿgAAj@AAi(106Q RETTO 73Q RESUME 67Q STKNTH 51Q STKNTH 34Q STKNTH 15Q STKNTH 10Q STKNTH) (62Q GENERATEFN) NIL ADIEU D1 (P 0 VAL## F 1 POSSLIST## F 2 COMVAR##) eHjð¤@ ¿RQhc¿i(27Q RETTO 13Q NOTE) NIL NIL AU-REVOIR D1 (P 0 VAL## F 1 COMVAR## F 2 POSSLIST##) eHjð¤@ ¿Q QQRhc¿(34Q RESUME 20Q NOTE 13Q NOTE) NIL NIL CLEANPOSLST D1 (P 0 X I 0 PLST) &@ŠdHµ µôh²öH ¿H ¿°è(41Q RELSTK 33Q RELSTK) NIL NIL NOTE D1 (I 1 LSTFLG I 0 VAL F 0 POSSLIST##) PA‘@‚@h c(12Q \NCONC2) NIL NIL POSSIBILITIES D1 (P 1 POSSLIST## P 0 COMVAR## I 0 FORM##) ! mÿg ji Xh @ h(35Q ADIEU 32Q EVAL 26Q PRODUCE 17Q STKNTH 12Q STKNTH) (7 POSSIBILITIES) NIL 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) NIL TRYNEXT1 D1 (P 0 PL1## I 1 MSG## I 0 PLST##) $@d X•Hd¡@HA@ b°ã(36Q \NCONC2 31Q RESUME) NIL NIL POSSIBILITYFN D1 (L (0 FN) I 2 POSSLIST## I 1 COMVAR##) mÿg ji bh j@(33Q ADIEU 24Q PRODUCE 14Q STKNTH 7 STKNTH) (4 POSSIBILITYFN) NIL (PRETTYCOMPRINT ASSISTCOMS) (RPAQQ ASSISTCOMS ((COMS (FILEPKGCOMS CONSTANTS)) (COMS * BQUOTECOMS) (COMS (FNS READCOMMENT GETCOMMENT PRINTCOMMENT NORMALCOMMENTS) (INITVARS (NORMALCOMMENTSFLG T)) (USERMACROS GET*) (DECLARE: DOEVAL@COMPILE DONTCOPY (RECORDS COMMENTBOX))) (COMS (* Read macros for ' * and ^W) (FNS READ') (P ( PROGN (SETSYNTAX (QUOTE ') (QUOTE (MACRO FIRST NOESC READ')) EDITRDTBL) (SETSYNTAX (QUOTE ') EDITRDTBL T)) (MAPC (CHARCODE (^A ^B ^C ^D ^E ^F)) (FUNCTION (LAMBDA (X) (ECHOCONTROL X (QUOTE IGNORE))))))) ( COMS (FNS PRINTPROPS PRINTBINDINGS) (LISPXMACROS PL PB ;) (BLOCKS (PRINTPROPS PRINTPROPS (NOLINKFNS . T) (GLOBALVARS SPELLINGS1 SPELLINGS2 USERWORDS)) (PRINTBINDINGS PRINTBINDINGS (NOLINKFNS . T)))) (COMS (FNS SHOWPRINT SHOWPRIN2) (INITVARS (SYSPRETTYFLG)) (GLOBALVARS SYSPRETTYFLG)) (COMS (FNS DO? DO?=) ( VARS (LAST?)) (P (SETSYNTAX (QUOTE ?) (QUOTE (INFIX FIRST NOESC DO?)) T) (SETSYNTAX (QUOTE ?) T EDITRDTBL)) (PROP ARGNAMES DEFINEQ) (USERMACROS ?=)) (COMS * ASKUSERCOMS) (COMS (* Coroutine package.) (FNS * COFNS) (FNS * GENERFNS) (ADDVARS (SYSSPECVARS COMVAR## POSSLIST##)) (P (MOVD? (QUOTE OLDRESUME ) (QUOTE RESUME))) (PROP (MACRO INFO) * COMACROS) (I.S.OPRS OUTOF) (PROP BYTEMACRO GENERATOR POSSIBILITIES)) (COMS * GAINSPACECOMS) (BLOCKS (NIL READ' (LINKFNS . T)) (NIL READLINEP (GLOBALVARS LISPXREADFN)) (NIL DO?= DO? (GLOBALVARS LAST?) (NOLINKFNS HELPSYS))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML TRYNEXT POSSIBILITIES GENERATOR COROUTINE BQUOTE ASKUSERLOOKUP) (LAMA AU-REVOIR ADIEU))))) (PUTDEF (QUOTE CONSTANTS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (DECLARE: EVAL@COMPILE (VARS . X) (P (CONSTANTS . X)))))))) (RPAQQ BQUOTECOMS ((* BQUOTE AND FRIENDS) (FNS READVBAR READBQUOTE READBQUOTECOMMA) (MACROS LIST*) ( FNS EXPANDBQUOTE BQUOTE DOBQUOTE BQ.CONS BQ.PROGN) (MACROS BQUOTE) (P (SETSYNTAX (QUOTE %|) (QUOTE ( INFIX READVBAR)) FILERDTBL) (SETSYNTAX (QUOTE %|) (QUOTE (INFIX READVBAR)) T) (SETSYNTAX (QUOTE %|) ( QUOTE (INFIX READVBAR)) EDITRDTBL) (SETSYNTAX (QUOTE `) (QUOTE (MACRO FIRST READBQUOTE)) T) (SETSYNTAX (QUOTE `) (QUOTE (MACRO FIRST READBQUOTE)) EDITRDTBL)) (VARS (INBQUOTE)))) (PUTPROPS LIST* MACRO (X (COND ((NULL X) NIL) ((NULL (CDR X)) (CAR X)) ((NULL (CDDR X)) (CONS (QUOTE CONS) X)) (T (LIST (QUOTE CONS) (CAR X) (CONS (QUOTE LIST*) (CDR X))))))) (PUTPROPS BQUOTE MACRO (FORM (EXPANDBQUOTE (CAR FORM)))) (SETSYNTAX (QUOTE %|) (QUOTE (INFIX READVBAR)) FILERDTBL) (SETSYNTAX (QUOTE %|) (QUOTE (INFIX READVBAR)) T) (SETSYNTAX (QUOTE %|) (QUOTE (INFIX READVBAR)) EDITRDTBL) (SETSYNTAX (QUOTE `) (QUOTE (MACRO FIRST READBQUOTE)) T) (SETSYNTAX (QUOTE `) (QUOTE (MACRO FIRST READBQUOTE)) EDITRDTBL) (RPAQQ INBQUOTE NIL) (RPAQ? NORMALCOMMENTSFLG T) (ADDTOVAR EDITMACROS (GET* NIL (BIND (IF (NEQ (SETQ #1 (GETCOMMENT (##))) (##)) ((I : #1) 1) NIL)))) (ADDTOVAR EDITCOMSA GET*) (PROGN (SETSYNTAX (QUOTE ') (QUOTE (MACRO FIRST NOESC READ')) EDITRDTBL) (SETSYNTAX (QUOTE ') EDITRDTBL T)) (MAPC (CHARCODE (^A ^B ^C ^D ^E ^F)) (FUNCTION (LAMBDA (X) (ECHOCONTROL X (QUOTE IGNORE))))) (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) (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.) (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))) (BLOCKS (ASKUSERBLOCK ASKUSER ASKUSERLOOKUP ASKUSERCHAR ASKUSER1 ASKUSER$ ASKUSERSETUP ASKUSEREXPLAIN ASKUSERPRIN1 (GLOBALVARS DEFAULTKEYLST ASKUSERTTBL) (LOCALFREEVARS KEY CONFIRMFLG NOECHOFLG PROMPTSTRING OPTIONS OPTIONSLST FILE NOCASEFLG ECHOEDFLG LISPXPRNTFLG) (SPECVARS PRINTLST KEYLST ORIGMESS) (SPECVARS ANSWER OLDTTBL) (BLKLIBRARY LISTGET MEMB) (ENTRIES ASKUSER ASKUSEREXPLAIN) (NOLINKFNS PRINTBELLS))) (DECLARE: DOEVAL@COMPILE DONTCOPY (PROP BLKLIBRARYDEF LISTGET ) (RECORDS ASKUSER OPTIONS)))) (RPAQ? DEFAULTKEYLST (QUOTE ((Y "es ") (N "o ")))) (RPAQ? ASKUSERTTBL (COPYTERMTABLE)) (CONTROL T ASKUSERTTBL) (ECHOMODE NIL ASKUSERTTBL) (RPAQQ COFNS (COROUTINE OLDRESUME GENERATOR GENERATE PRODUCE GENERATEFN)) (RPAQQ GENERFNS (ADIEU AU-REVOIR CLEANPOSLST NOTE POSSIBILITIES TRYNEXT TRYNEXT1 POSSIBILITYFN)) (ADDTOVAR SYSSPECVARS COMVAR## POSSLIST##) (MOVD? (QUOTE OLDRESUME) (QUOTE RESUME)) (RPAQQ COMACROS (COROUTINE GENERATOR TRYNEXT POSSIBILITIES)) (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 (X (PROG ((Y (SUBST (CAR X) (QUOTE FORM##) (QUOTE (LAMBDA (COMVAR## ..MACROX.) (COND ((EQ (SETQ ..MACROX. (STKNTH -1 (QUOTE *PROG*LAM) (CAR COMVAR##))) COMVAR##) COMVAR## ) (T (RESUME (CDR COMVAR##) ..MACROX. COMVAR##) FORM## (RETTO (CAR COMVAR##) COMVAR## T)))))))) ( RETURN (COND ((CADR X) (FRPLACD (CDR Y) (CONS (QUOTE (OR (STACKP (CAR COMVAR##)) (FRPLACA COMVAR## ( STKNTH 0 T)))) (CONS (QUOTE (OR (STACKP (CDR COMVAR##)) (FRPLACD COMVAR## (STKNTH 0 T)))) (CDDR Y)))) (LIST Y (LIST (QUOTE OR) (LIST (QUOTE LISTP) (CADR X)) (QUOTE (CONS (STKNTH 0 T) (STKNTH 0 T)))))) (T (LIST Y (QUOTE (CONS (STKNTH 0 T) (STKNTH 0 T)))))))))) (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) (PROG (COMVAR## POSSLIST##) (PRODUCE (LIST (SETQ COMVAR## (CONS (STKNTH -1 (QUOTE *PROG*LAM)) (STKNTH 0 T))))) FORM (ADIEU)))) (PUTPROPS COROUTINE INFO EVAL) (PUTPROPS GENERATOR INFO EVAL) (PUTPROPS TRYNEXT INFO EVAL) (PUTPROPS POSSIBILITIES INFO EVAL) (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 GENERATOR BYTEMACRO ((FORM COMVAR) (GENERATEFN (FUNCTION (LAMBDA NIL FORM)) COMVAR))) (PUTPROPS POSSIBILITIES BYTEMACRO ((FORM) (POSSIBILITYFN (FUNCTION (LAMBDA NIL FORM))))) (RPAQQ GAINSPACECOMS ((* gainspace package) (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)))) (BLOCKS (GAINSPACEBLOCK GAINSPACE ERASEPROPS PURGEHISTORY PURGEHISTORY1 PURGEHISTORY2 (ENTRIES GAINSPACE ERASEPROPS PURGEHISTORY) (GLOBALVARS GAINSPACEFORMS SMASHPROPSMENU SMASHPROPSLST SMASHPROPSLST1 DWIMWAIT ARCHIVELST LASTHISTORY ARCHIVEFLG LISPXCOMS LISPXHISTORY EDITHISTORY) (SPECVARS RESPONSE))) (DECLARE: DOEVAL@COMPILE DONTCOPY (RECORDS GAINSPACE)))) (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)) NIL