(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "19-Apr-2023 18:58:13" ("compiled on " |{DSK}larry>il>medley>sources>HIST.;6|) "17-Apr-2023 09:00:19" |brecompiled| |changes:| GREET0 |in| "Welcome to Fuller sysout 17-Apr-2023 ..." |dated| "17-Apr-2023 09:05:06") (FILECREATED "19-Apr-2023 18:58:13" |{DSK}larry>il>medley>sources>HIST.;6| 152088 :EDIT-BY "lmm" :CHANGES-TO (FNS GREET0) :PREVIOUS-DATE "19-Mar-2023 10:09:08" |{DSK}larry>il>medley>sources>HIST.;1|) LISPXFINDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 LST I 0 SI::*CLEANUP-FORMS* F 10 TYPE F 11 HISTORY F 12 LINE F 13 QUIETFLG F 14 BACKUP) : `WWWWldW4WHIkٹ`HHIkٹW)H\dgg^LgRHLg`WW LKgK gK[ HIJ K[LdL`gihL LjWdg'LdgL L d `h `h `LdgihM LWdgb0 LId^dgN N d `h `h _OO__O _OdgdgLdgdg+0 Ld _O Oh_O&_OWoi hdgdgLhdgL gL h(565 \\LISPXFINDBLOCK/LISPXFIND1 550 \\LISPXFINDBLOCK/LISPXFIND1 511 ERROR 470 \\LISPXFINDBLOCK/LISPXFIND1 414 LAST 387 \\APPEND2 364 LAST 358 LISPXGETINPUT 350 MEMB 302 LISPXPUT 275 \\APPEND2 252 LAST 246 LISPXGETINPUT 238 MEMB 200 LISPXPUT 168 \\NCONC2 163 \\LISPXFINDBLOCK/LISPXFIND0 155 LDIFF 128 LISPXFIND) (556 COPIES 541 COPY 528 ENTRIES 519 ENTRY 453 COPIES 445 COPY 435 ENTRIES 427 ENTRY 380 HISTSTR0 370 HISTSTR0 344 *HISTORY* 322 INPUT 294 *ARCHIVE* 281 ARCHIVEFLG 268 HISTSTR0 258 HISTSTR0 232 *HISTORY* 216 INPUT 192 *ARCHIVE* 186 ARCHIVEFLG 146 |and| 136 AND 118 ARCHIVELST 111 @@ 98 \ 86 |undo| 77 UNDO 50 REREADFLG 13 EDITQUIETFLG 4 EDITQUIETFLG) ( 505 "- LISPXFIND ?") LISPXFIND :D8 (P 0 SI::*RESETFORMS* I 4 QUIETFLG I 3 BACKUP I 2 TYPE I 1 LINE I 0 HISTORY) >@ogi g`hg $(55 SI::RESETUNWIND 50 \\MVLIST 45 LISPXFINDA0001 18 ERROR) (40 SI::RESETUNWIND 29 EDITQUIETFLG 24 EDITQUIETFLG 12 \) ( 7 "no history.") \\LISPXFINDBLOCK/LISPXFIND0 :D8 (L (3 MOD 2 INDEX 0 LINE0) P 0 HISTORYFLG I 1 LST F 5 LINE F 6 TYPE) P@d3ABC@U HVggL Ldg5@\g bLoi Vg@hh@dgdgx@Zg@\"g@\g@ g@\Y@kL gABCJ@L U ABCLU JIKAK dgdgdgdg@g @gABC@dgdgAABC@U JABCJU ZKJAh AJ J IKJK IKJKh KJ Lh(441 DREVERSE 436 LDIFF 427 \\APPEND2 411 LDIFF 398 TAILP 391 DREVERSE 386 LDIFF 377 \\APPEND2 361 HISTORYFIND 344 HISTORYFIND 251 LDIFF 233 HISTORYFIND 220 HISTORYFIND 213 LDIFF 189 NLEFT 96 ERROR 81 GETPROP 48 MEMB 19 HISTORYFIND) (327 |all| 319 ALL 305 |thru| 295 THRU 284 |thru| 276 |to| 267 THRU 258 TO 195 F 173 |thru| 164 THRU 154 |to| 144 TO 131 |from| 123 FROM 103 INPUT 76 *HISTORY* 63 @ 42 *HISTORY* 32 INPUT) ( 90 " ?") \\LISPXFINDBLOCK/LISPXFIND1 :D8 (L (0 X)) @h @b@b@(7 \\APPEND2) NIL () HISTORYFIND :D8 (L (4 LISPXFINDFLG 3 EVENTADDRESS 2 MOD 1 INDEX) P 7 PREDFLG P 5 =FLG P 4 _FLG P 2 Z P 0 L I 0 LST F 12 LINE F 13 HISTORY F 14 TYPE F 15 HISTORYFLG F 16 BACKUP F 17 QUIETFLG)  @C CZdg```XgJdgDJoi i_CbgiCbJdgiCbgJdgC[-Cb%gJgi_CbLMJ3HOMNjJHjJ XH@@JkH XJAHAJ XABjJ[jHK X`QDNW)d_O__`OlF`iO hgWWWW W"  Joi +Cb&Hd[KOHNHh IbHh\]_cX(412 \\NCONC2 373 ERROR 360 RETFROM 355 LISPXFIND 326 FIXSPELL 271 NTH 248 NTH 232 NLEFT 215 NTH 190 \\LISPXFINDBLOCK/HISTORYFIND1 76 ERROR) (396 LASTHISTORY 339 LISPXFIND 317 LISPXFINDSPLST 305 LISPXFINDSPLST 280 DWIMFLG 163 |suchthat| 155 SUCHTHAT 134 \f 125 F 109 _ 92 = 58 |all| 49 ALL 39 LASTHISTORY 30 LASTHISTORY 22 LASTHISTORY 13 \\) ( 367 " ?" 70 " ?") \\LISPXFINDBLOCK/HISTORYFIND1 :D8 (F 5 L F 6 Z F 7 LST F 8 _FLG F 9 PREDFLG F 10 =FLG F 11 HISTORYFLG) 1PWUWU WlU c W5Vd3&V l_V`  i Vi UZgJgUdhUgK ZIW UUlVJIJicrHWEgUUc dU NgUUZgJgU`UdgL UIU UWWkU (301 NLEFT 285 HISTORYMATCH 272 MEMB 207 EDIT4E 132 MEMB 85 EDITFPAT 76 EDITFPAT 70 PACK 64 DUNPACK 48 CHCON1 28 NLEFT 17 LAST) (266 *HISTORY* 252 REREADFLG 238 EVAL 229 OK 214 *PRINT* 185 *HISTORY* 126 *HISTORY* 104 |undo| 96 UNDO 59 CHCONLST1) () ENTRY# :D8 (L (1 X 0 HIST)) '@j@ A@ dj@ld(21 FLENGTH 10 FLENGTH) NIL () EVALQTA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 LISPXID F 3 SI::NLSETQ-VALUE) i@id R hcg(17 LISPX 11 LISPXREAD) (26 :NORMAL) () EVALQT :D8 (P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 LISPXID F 3 *PROCEED-CASES*) `@gbi @i` `SI gHi `i (92 TERPRI 73 CLBUFS 54 EVALQTA0001 34 PROMPTCHAR 21 FRESHLINE 14 ENTEREVALQT) (85 TOPLISPXBUFS 80 TOPLISPXBUFS 60 :NORMAL 43 SI::NLSETQ-PROCEED-CASE 29 LISPXHISTORY 6 _) () GETEXPRESSIONFROMEVENTSPEC :D8 (L (0 LINE)) `@gi A0`HYMd HI IJdgZJJ dkdlJJdJdo gHgJ0 J-d[ddi3 gKh_O Oh_O&_O>J0 J.d\ddi3 gLh_O Oh_O&_O_N Oh^O&(120 ERROR 77 ARGTYPE 47 LDIFF 39 MKPROGN 16 LISPXFIND) (231 QUOTE 168 QUOTE 137 SETQ 129 SET 59 RETRY\: 27 HISTSTR0 10 INPUT 4 LISPXHISTORY) ( 115 "Can't remember") GREETA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 NAME F 4 SI::NLSETQ-VALUE) i@jdi Shi g S S `d i ZJg ` ZJi `d ihcg(135 GREET0 125 EVAL 111 LOAD 102 GREETFILENAME 91 LOAD 78 GREETFILENAME 67 EVAL 48 MKATOM 41 SETUSERNAME 34 \\DEFINEDP 22 USERNAME 12 TAB) (146 :NORMAL 117 POSTGREETFORMS 97 USERNAME 86 SYSLOAD 59 PREGREETFORMS 53 USERNAME 29 SETUSERNAME) () GREET :D8 (L (1 FLG) P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 NAME F 3 *PROCEED-CASES*) 3`SI gHoi i (48 TERPRI 42 PRIN1 18 GREETA0001) (24 :NORMAL 7 SI::NLSETQ-PROCEED-CASE) ( 36 "error during GREET...") GREET0 :D8 NIL ` aHH]M[KNdkj(hoJIo ` PNdkj3`lLol LolLooNl jooi `oi `i oi i (220 LISPXTERPRI 214 LISPXPRIN1 202 LISPXPRIN1 190 LISPXPRIN1 172 LISPXPRIN1 151 IMOD 84 SASSOC 74 CL:FORMAT 69 CL:NTH 20 \\MVLIST 15 CL:GET-DECODED-TIME) (196 FIRSTNAME 177 FIRSTNAME 101 FIRSTNAME 79 GREETDATES 4 GREETDATES) ( 208 "." 184 ", " 165 "Hi" 159 "Hello" 141 "Good evening" 135 "Good afternoon" 124 "Good morning" 112 "You're working late tonight" 64 ("JAN" "FEB" "MAR" "APR" "MAY" "JUN" "JUL" "AUG" "SEP" "OCT" "NOV" "DEC") 57 "~2D-~A") HISTORYMATCH :D8 (L (1 PAT 0 INPUT) I 2 EVENT) @Ai (7 EDITFINDP) NIL () HISTORYSAVEA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R hcg(10 EVAL) (19 :NORMAL) () HISTORYSAVE :D8 (L (5 PROPS 4 INPUT3 3 INPUT2 2 INPUT1) P 12 SI::*NLSETQFLAG* P 11 *PROCEED-CASES* P 10 X P 9 SI::NLSETQ-VALUE P 8 EVENT P 5 X I 1 ID I 0 HISTORY F 13 *PROCEED-CASES*)  @@@@ldj5@ @@h`g``]o``9``,g@]Mg`h M`MdBCDAgE^h NDCDIkYKIjKعHLkؼHXJLl@hddd]@rH`X@`O`MM M_gO (`M ```kHh@Md@M]@IA@AM^hdBNNBNCNDBCDCNCNDD^MNM^ANdggE^gNE`/M ` d h_`W O Ag`` `gM(537 ERROR! 519 LISPXWATCH 488 HISTORYSAVEA0002 293 LISPXFIND1 277 MEMB 258 ARCHIVEFN 162 \\NCONC2 124 \\NCONC2) (530 ABORT 525 REREADFLG 514 LISPXSTATS 508 EDITSTATS 501 * 475 SI::NLSETQ-PROCEED-CASE 459 HISTORYSAVEFORMS 448 HISTORYSAVEFORMS 437 \ 427 \ 420 \ 313 ARCHIVELST 307 ARCHIVELST 298 ARCHIVELST 286 ARCHIVELST 270 *ARCHIVE* 247 ARCHIVEFN 239 EDITHISTORY 231 ARCHIVELST 150 \ 131 REDOCNT 116 REDOCNT 111 *REDOCNT* 97 *REDOCNT* 89 REDOCNT 84 \#REDOCNT 76 REREADFLG 71 HISTSTR2 58 REREADFLG 53 HISTSTR3 48 *GROUP* 39 REREADFLG) () LISPXA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 LISPZ F 2 LISPY F 3 LISPXTEM) CiQ6dRHi Hi Sioghdi h(57 MAPRINT 35 LISPXPRIN1 26 HISTORYMATCH 21 EDITFPAT) (48 \ 5 EDITQUIETFLG) ( 43 " does not appear in ") LISPXA0004 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 READBUF F 1 LISPY F 2 LISPXHIST F 3 LISPXID) 'hcQR P chid S (35 LISPX 29 LISPXREAD 17 LISPXREADBUF 10 LISPXUNREAD) NIL () LISPX :D8 (L (4 LISPXFLG 3 LISPXXUSERFN 2 LISPXXMACROS 0 LISPXX) P 17 SI::*RESETFORMS* P 16 LISPXLINE P 11 LISPXVALUES P 9 LISPXTEM P 8 LISPXVALUE P 7 LISPZ P 6 LISPY P 5 LISPXLINE P 4 LISPXLISTFLG P 2 HELPFLAG P 1 LISPXHIST P 0 HELPCLOCK I 1 LISPXID F 18 ADDSPELLFLG F 19 LISPXHIST F 20 HELPFLAG F 21 READBUF) B`bC`g gbl W&W(dgg @di "i@hi ]bM@O@@iN`i _gi Ogi i@hi ]Mb@dd3@s`%`_gO _gKB^LhNh_K`^Kdgh_g@M[bM]Kg ^fM/AgAgyK q%KgeKg\KgSKgJKgAKg8Kg/Kg&KgKgKgKdgL$@h!gKdgMgKdg'`AhKM YgM gKdg`ggMgKdgN`gM`Mg `di gid fg9`gMgM``Mhdi 'KgKdg2`g`oi `Mg _` ``O gid NYKo hL@dg#id hK`Lhd3@3@ @` @o W$@l Lh`@lF`h@ [@MU@d3@@ W$@l w`p@lF`hi []KdhKd[bS@d3@?@ W$4@l )`"@o @lF`hi [O`Ah@M N5L@dMK[bM NNA C@MlCOOh_M@d A G`s@dd3@lMfMd3@^Mk _gLO`B@d l7@d loi @Mi @M A @ M@ A __IIOO OOdid O$@MbO#`Ahddg@ghd KdgMh gM` sKgKdg#g`Mgi h @gKdggMgM gM_M_OhMO dd_`Ogi g`hg $MgONh `Ogi  Mg gMh` gMh` M Moioghdi Mid g KgKgKdgUMd_O_Odgdgdgdg~OMkO _gO MO O_%Od OiddO O_OgOggOh_iFdgdg3O.MkO _d!gMO O3i_h hKg Kg_`Mgi AgN Nh O`ONhgKdgq`gM_MO Mgi i g (i g _i NOlO.NO "gKdgM`I gMogi `hgi gN kgN _FgN _&`hgi ^dd`"OdN ONNN_IgOh MhOhhO/NdKNA Nh MhNhNh ^``NmIINKg3D)gW*hg $NI I(2834 LISPXUNREAD 2821 SI::RESETUNWIND 2816 \\MVLIST 2811 LISPXA0004 2744 LISPXUSE0 2725 \\APPEND2 2712 EVAL 2676 \\NCONC2 2635 LISPXGETINPUT 2603 LISPXFIND 2580 MEMB 2563 MEMB 2548 MEMB 2536 LISPXFIND 2518 ERROR 2486 LISPXUSE 2454 LISPXFIX 2432 GETSTREAM 2423 STREAMPROP 2413 GETSTREAM 2405 STREAMPROP 2395 GETSTREAM 2388 COPY 2383 LISPXFIND 2370 LDIFF 2307 \\APPEND2 2299 COPY 2284 LISPXFIND 2222 LDIFF 2200 NLEFT 2125 FNCHECK 2110 BOUNDP 2087 LDIFF 2061 NLEFT 1951 PRINT 1941 MAPRINT 1911 \\DEFINEDP 1903 /SETATOMVAL 1898 UNION 1878 /SETATOMVAL 1873 UNION 1853 /REMPROP 1840 /PUT 1833 LISPXFIND 1815 \\APPEND2 1794 SI::RESETUNWIND 1789 \\MVLIST 1784 LISPXA0002 1757 LISPXFIND 1728 LDIFF 1655 \\APPEND2 1649 LISPXFIND 1605 LISPXUSEC 1584 \\APPEND2 1566 HISTORYSAVE 1513 SHOWPRINT 1493 LISPXSTOREVALUE 1475 \\MVLIST 1470 APPLY 1464 LISPX/ 1456 LISPX/ 1448 EVAL 1442 LISPX/ 1433 PRINT 1423 PRIN1 1406 ARGTYPE 1393 ARGTYPE 1366 NTHCHAR 1324 EVAL 1318 LISPX/ 1273 EVAL 1255 NLAMBDA.ARGS 1222 HISTORYSAVE 1201 FIXSPELL 1183 GETLIS 1162 ADDSPELL 1149 \\DEFINEDP 1110 FIXSPELL 1084 ADDSPELL 1068 BOUNDP 1041 FIXSPELL 1006 ADDSPELL 992 GETLIS 979 GETLIS 965 \\DEFINEDP 926 LISPXREAD 899 ERROR 878 PRINT 863 FLENGTH 841 \\NCONC2 828 LISPXFIND 808 PRINT 789 ERROR! 747 PRINTHISTORY 713 ERROR! 684 PRINT 667 UNDOLISPX2 650 LISPXFIND 630 ERROR! 584 ERROR! 545 UNDOLISPX 528 HISTORYSAVE 349 BOUNDP 316 GETPROP 221 MEMB 174 READLINE 162 SYNTAXP 147 SYNTAXP 134 CHCON1 129 LASTC 94 READLINE 80 PRINT 68 GETTOPVAL 45 CLOCK 29 \\DEFINEDP) (2806 SI::RESETUNWIND 2793 READBUF 2782 NAME 2769 REDOCNT 2758 HISTSTR2 2751 REREADFLG 2666 ...ARGS 2615 HISTSTR0 2597 INPUT 2591 LISPXHISTORY 2574 *HISTORY* 2557 USE-ARGS 2542 ...ARGS 2530 ENTRY 2524 LISPXHISTORY 2512 \ 2494 |...| 2480 LISPXHISTORY 2471 |use| 2462 USE 2418 FIXFN 2400 FIXFN 2377 INPUT 2357 - 2352 LISPXHISTORY 2343 |fix| 2334 FIX 2319 HISTSTR2 2291 * 2278 INPUT 2272 LISPXHISTORY 2263 |repeat| 2254 REPEAT 2211 F 2182 |times| 2174 TIMES 2157 NOT 2150 |until| 2140 UNTIL 2069 F 2041 |until| 2033 |while| 2024 UNTIL 2015 WHILE 1986 |repeat| 1977 REPEAT 1968 |redo| 1959 REDO 1932 \ 1893 HISTORYCOMS 1884 HISTORYCOMS 1868 LISPXCOMS 1859 LISPXCOMS 1848 STATE 1827 COPIES 1820 LISPXHISTORY 1806 *HISTORY* 1779 SI::RESETUNWIND 1768 EDITQUIETFLG 1763 EDITQUIETFLG 1751 INPUT 1744 LISPXHISTORY 1702 |in| 1693 IN 1684 \: 1673 NAME 1664 |name| 1643 INPUT 1637 LISPXHISTORY 1632 RETRY\: 1623 RETRY 1614 |retry| 1600 LISPXHISTORY 1592  1574 ORIGINAL 1554 *GROUP* 1548 *HISTORY* 1539 LISPXHISTORY 1501 IT 1383 CLISPCHARS 1373 - 1335 CLISPFLG 1212 LISPXHISTORY 1193 LISPXCOMS 1170 DWIMFLG 1102 LISPXCOMS 1092 DWIMFLG 1033 LISPXCOMS 1022 DWIMFLG 974 MACROPROPS 938 LISPXCOMS 915 LAMBDA 871 |archived| 854 ARCHIVELST 848 ARCHIVELST 835 ARCHIVELST 823 COPIES 817 LISPXHISTORY 795 ARCHIVELST 782 ABORT 777 REREADFLG 766 ARCHIVE 757 |archive| 737 LISPXHISTORY 731 ARCHIVELST 721 @@ 706 ABORT 701 REREADFLG 693 ?? 677 |forgotten| 657 LISPXHISTORY 645 ENTRIES 639 LISPXHISTORY 623 ABORT 618 REREADFLG 609 FORGET 600 |forget| 590 BREAK! 577 ABORT 572 REREADFLG 563 RETRY\: 554 |retry:| 536 \ 518 LISPXHISTORY 509 |undo| 500 UNDO 486 NAME 477 |name| 459 |retry| 450 |fix| 441 |use| 432 |repeat| 423 |redo| 414  405 |...| 396 USE 387 FIX 378 REPEAT 369 REDO 360 RETRY 340 \: 332 _ 311 *HISTORY* 289 E 270 ORIGINAL 259 LISPXHISTORYMACROS 231 ORIGINAL 214 *HISTORY* 204 LISPXHISTORY 197 REREADFLG 156 RIGHTBRACKET 141 RIGHTPAREN 121 REREADFLG 63 HELPFLAG 55 BREAK! 35 LISPXUSERFN 24 LISPXUSERFN 17 LISPXUSERFN 6 LISPXMACROS) ( 2507 "... what??" 1927 "****Note: " 1920 (|is| |also| |the| |name| |of| \a |function.| |When| |typed| |in,| |its| |interpretation| |as| \a |history| |command| |will| |take| |precedence.|) 1417 " = " 1178 (EXPR FILEDEF) 987 (EXPR FILEDEF CLISPWORD) 894 "doesn't take any arguments" 802 (|no| |archive| |list|)) LISPX/ :D8 (L (1 FN 0 X) I 2 VARS) q`i`bAL@d[A dkdl*Ag HgH gHih@i @d `@(99 LISPX/1 89 LISPX/1 50 GETPROP 28 ARGTYPE) (105 LISPXFNS 71 EVAL 59 EVAL 45 INFO 11 LISPXHISTORY 4 LISPXFNS) () LISPX/1 :D8 (L (1 TAILFLG 0 X) P 5 VARS F 9 VARS)  @dFA@@@ A@`@@dg@dgdg@ Wdgdg%@dWW @i Ydg0@!d[d3KiKONh_N&_OW @@ YJYg0@%d\dd3Li ONh_N&_OIg,@dW~@i Hd@I@@@ YkIl"@g YggI@3`@d @` '@ m@i Hd@I@HIhbb;H@I(427 LISPX/1 415 \\DEFINEDP 406 GETHASH 393 \\DEFINEDP 358 GETPROP 336 ARGTYPE 307 LISPX/1 252 LISPX/1 216 LISPX/1 203 \\NCONC2 134 LISPX/1 122 \\APPEND2 84 LISPX/1 25 LISPX/1) (401 CLISPARRAY 383 CLISPARRAY 371 EVAL 364 EVAL 353 INFO 284 SETQ 226 PROG 145 PROG 101 NLAMBDA 93 LAMBDA 74 F/L 66 FUNCTION 56 QUOTE 41 LISPXFNS) () LISPXEVAL :D8 (L (0 LISPXFORM) P 0 LISPXHIST I 1 LISPXID) 4Agb`Ah@ Xd@d A H(44 EVAL 38 LISPX/ 25 HISTORYSAVE) (17 LISPXHISTORY 9 _) () LISPXFIND1 :D8 (L (0 X)) @h @b@b@(7 \\APPEND2) NIL () LISPXGETINPUT :D8 (L (1 EVENT 0 INPUT)) @NIL NIL () LISPXPRIN1 :D8 (L (3 NODOFLG 2 Z 1 Y 0 X) F 0 LISPXHIST) Q`=P:gAi@ @gB@ABhA@Ah@dhhiP Ch @AB (78 PRIN1 64 LISPXPUT 24 STRINGP) (33 PRIN1 14 *LISPXPRINT* 4 LISPXPRINTFLG) () LISPXPRIN2 :D8 (L (3 NODOFLG 2 Z 1 Y 0 X) F 0 LISPXHIST) T`@P=gAi@@ @gB@ABhA@Ah@dhhiP Ch @AB (81 PRIN2 67 LISPXPUT 27 STRINGP) (36 PRIN2 14 *LISPXPRINT* 4 LISPXPRINTFLG) () LISPXPRINT :D8 (L (3 NODOFLG 2 Z 1 Y 0 X) F 0 LISPXHIST) C`/P,ggB@ABhA@Ah@dhhiP Ch @AB (64 PRINT 50 LISPXPUT) (19 PRINT 14 *LISPXPRINT* 4 LISPXPRINTFLG) () LISPXPRINTDEF :D8 (L (5 NODOFLG 4 TAIL 3 DEF 2 LEFT 1 FILE 0 EXPR) F 0 LISPXHIST) <`%P"gg@ABCDhhiP Eh @ABCD (57 LISPXPRINTDEF0 40 LISPXPUT) (19 LISPXPRINTDEF0 14 *LISPXPRINT* 4 LISPXPRINTFLG) () LISPXPRINTDEF0A0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 EXPR F 1 LEFT F 2 DEF F 3 TAIL) PQRS (8 PRINTDEF) NIL () LISPXPRINTDEF0 :D8 (L (1 FILE) P 0 SI::*RESETFORMS* I 4 TAIL I 3 DEF I 2 LEFT I 0 EXPR) /gA hhhg $(40 SI::RESETUNWIND 35 \\MVLIST 30 LISPXPRINTDEF0A0001 10 OUTPUT) (25 SI::RESETUNWIND 4 OUTPUT) () LISPXPUT :D8 (L (3 LST 2 ADDFLG 1 L 0 PROP)) /C`b@CC@Ah ABdA A(40 \\NCONC2 28 \\NCONC2) (6 LISPXHISTORY) () LISPXREADA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R hcg(10 EDITE) (19 :NORMAL) () LISPXREAD :D8 (L (1 RDTBL 0 FILE) P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 X F 5 READBUF F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) Udi c d|`gig @A @Al`XdR`Ih`VioWJ gIgUc H(113 LISPXREADA0001 53 READ 45 IMAGESTREAMTYPEP 11 LISPXREADBUF) (146 REREADFLG 136 REREADFLG 131 ABORT 119 :NORMAL 93 SI::NLSETQ-PROCEED-CASE 84 CTRLUFLG 76 CTRLUFLG 63 LISPXREADFN 40 TEXT 32 READ 27 LISPXREADFN 21 REREADFLG) ( 101 (CL:ERROR . SI::NLSETQHANDLER)) LISPXREADBUF :D8 (L (1 STRIPSEPRSFLG 0 RDBUF)) @h@d`b`@b@`@`k@bd3j@kى @XO@AI]d`J``H@ BMM K Lh[IYL&@ `i oi hb4(203 PRIN1 191 PRIN1 178 LISPXREADBUF 151 COPY 139 \\NCONC2 86 EVAL) (185 REDOCNT 128 HISTSTR2 123 HISTSTR0 112 HISTSTR2 60 REDOCNT 53 REDOCNT 44 HISTSTR2 28 HISTSTR3 15 HISTSTR0) ( 197 " repetitions. ") LISPXREADP :D8 (L (0 FLG) F 0 READBUF) *Pid @i gh ci(34 LISPXREADBUF 20 PEEKC 9 READP) (25 \ ) () LISPXSPACES :D8 (L (3 NODOFLG 2 Z 1 Y 0 X) F 0 LISPXHIST) H`5P2gAi@kogA@Ah@dhhiP Ch @A (69 SPACES 56 LISPXPUT) (34 SPACES 14 *LISPXPRINT* 4 LISPXPRINTFLG) ( 27 " ") LISPXSTOREVALUE :D8 (L (2 VALUES 1 VALUE) I 0 EVENT) @dAgBh@ (20 LISPXPUT) (12 LISPXVALUES) () LISPXSUBST :D8 (L (3 CHARFLG 2 Z 1 Y 0 X)) C@AB @ABi (19 ESUBST 9 SUBST) NIL () LISPXTAB :D8 (L (3 NODOFLG 2 Z 1 Y 0 X) F 0 LISPXHIST) C`/P,ggB@ABhA@Ah@dhhiP Ch @AB (64 TAB 50 LISPXPUT) (19 TAB 14 *LISPXPRINT* 4 LISPXPRINTFLG) () LISPXTERPRI :D8 (L (3 NODOFLG 2 Z 1 Y 0 X) F 0 LISPXHIST) ;`)P&g@iog@dhhiP Ch@ (56 TERPRI 44 LISPXPUT) (29 TERPRI 14 *LISPXPRINT* 4 LISPXPRINTFLG) ( 23 " ") LISPXTYPEAHEADA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 L F 3 X F 4 SI::NLSETQ-VALUE) i@id cdgdgRd g dgg dgR odg#gi Rcdid REg#R dghid hS i ShSihi Rchcg(203 READLINE 190 READP 172 PRINTHISTORY1 153 REVERSE 134 PRINT 118 PRIN1 95 EDITE 77 RETFROM 55 RETFROM 40 LISPXUNREAD 11 LISPXREAD) (217 :NORMAL 162 > 144 ?? 112 \\\\ 103 Q 86 FIX 72 LISPXTYPEAHEAD 64 STOP 50 LISPXTYPEAHEAD 27 GO 19 OK) () LISPXTYPEAHEAD :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 L P 0 X F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) 0 gi `VioWK (42 LISPXTYPEAHEADA0001 13 PRIN1) (22 SI::NLSETQ-PROCEED-CASE 7 >) ( 30 (CL:ERROR . SI::NLSETQHANDLER)) LISPXUNREAD :D8 (L (0 LST) I 1 EVENT F 0 READBUF) @A`AP`P c(23 \\APPEND2) (16 HISTSTR0 7 HISTSTR3) () LISPXUSE :D8 (L (2 LSPXHST 0 LINE) P 8 LISPXHIST P 7 GENLST P 2 VARS I 1 HISTORY) D @ogi gL@@dgdg,KgJLh LM ghidgdg@KdgdgILh gJLh ghi^dgdgKKdg$IJLh LM ghi!KgILh ghih$L@h @dM O_@bKdgJLh Z$gILh YKgLXHIgIhIgAHgid AHgid I 344 EDITQUIETFLG 327  273 INPUT 262 *ERROR* 248 ENTRY 210 FOR 194  188  175  146 -> 138 = 129 TO 82 IN 58 *ERROR* 40 ENTRY 7 IN) ( 470 " does not appear in " 412 (CL:ERROR . SI::NLSETQHANDLER) 385 " ? " 228 " ?" 94 "Unable to figure out what you meant in:") PRINTHISTORY :D8 (L (4 FILE 3 NOVALUES 2 SKIPFN 1 LINE) P 2 EVENT P 1 HELPCLOCK I 0 HISTORY) @`ib A@@Ag XD D HDdBJkB4@J Di gD JCdiiJkCD D D h(128 TERPRI 122 TERPRI 110 PRINTHISTORY1 87 PRIN1 75 PRIN2 68 ENTRY# 44 TERPRI 38 TERPRI 31 LISPXFIND) (81 \. 26 ENTRIES 5 EDITHISTORY) () PRINTHISTORY1A0001 :D8 (L (1 FL 0 X)) @Ai (7 PRIN2) NIL () PRINTHISTORY1 :D8 (L (2 FILE 1 NOVALUES) P 4 EVENT I 0 EVENT) @1g@ ZlhB JBJ g@YlhB g@ Bhddg B IZIdLAB g@ ZlhB oB JkB oB HDH`:lhB @ZJB `HYHI XHHBA Ig@ lB dB g@ ZlhB JBJ +A(@g'dlhB KBi h(380 SHOWPRINT 371 TAB 341 APPLY 329 TAB 314 MEMB 298 LISPXREPRINT 288 SPACES 274 MEMB 259 PRINTHISTORY2 247 LDIFF 229 PRIN1 216 TAB 190 PRIN1 178 PRIN1 168 PRIN1 156 TAB 138 MEMB 122 PRINTHISTORY1 101 TERPRI 94 MAPRINT 77 MEMB 65 TAB 42 APPLY 30 TAB 15 MEMB) (356 LISPXVALUES 308 *PRINT* 268 *LISPXPRINT* 235 HISTSTR0 204 HISTSTR2 132 *REDOCNT* 88 PRINTHISTORY1A0001 71 *HISTORY* 48 *GROUP* 9 *FIRSTPRINT*) ( 184 " times " 162 "... ") PRINTHISTORY2A0001 :D8 (L (1 FL 0 X)) @Ai (7 SHOWPRIN2) NIL () PRINTHISTORY2 :D8 (L (2 NOVALUES 1 FILE 0 INPUT) F 1 \#RPARS) q@dA ZdAhddg D8@Ai @XQggA 3BikA H@Ai A h(109 TERPRI 102 SHOWPRIN2 90 SPACES 74 PRIN1 48 SHOWPRIN2 34 MAPRINT 12 PRIN1) (68 |()| 62 ] 28 PRINTHISTORY2A0001) () USEREXECA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 LISPXID F 3 LISPXXMACROS F 4 LISPXXUSERFN F 5 SI::NLSETQ-VALUE) i@id RST hc g(19 LISPX 11 LISPXREAD) (28 :NORMAL) () USEREXECA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 LISPXID F 4 READBUF F 5 *PROCEED-CASES*) MhcSgci ji Si` `UI (71 USEREXECA0001A0002 51 PROMPTCHAR 38 CL:TERPRI 29 POSITION) (60 SI::NLSETQ-PROCEED-CASE 46 LISPXHISTORY 20 _ 12 REREADFLG 7 READBUFSOURCE) () USEREXEC :D8 (P 0 SI::*RESETFORMS* I 2 LISPXXUSERFN I 1 LISPXXMACROS I 0 LISPXID F 1 READBUF) >gQg`g`hg $(55 SI::RESETUNWIND 50 \\MVLIST 45 USEREXECA0001) (40 SI::RESETUNWIND 27 REREADFLG 22 REREADFLG 16 READBUFSOURCE 11 READBUFSOURCE 4 READBUF) () USERLISPXPRINT :D8 (L (3 NODOFLG 2 Z 1 FILE 0 X) F 2 LISPXHIST) pm H YH gIhdi I Ilm Y`RgI@AB hiR Ch @ABlI(95 LISPXPUT 85 NLIST 60 MKATOM 55 SUBSTRING 44 HELP 37 STRPOS 22 RELSTK 15 STKNAME 6 STKNTH) (76 *LISPXPRINT* 66 LISPXPRINTFLG 27 LISPX) () VALUEOF :D8 (L (0 LINE)) @`g (23 VALUOF 18 EDITFINDP) (13 VALUEOF 5 LISPXHISTORY) () VALUOF :D8 (P 1 HISTORYFLG I 1 BACKUP I 0 LINE) U @`@A`kٸ```H`ld@ddh d (82 VALUOF-EVENT 75 HISTORYFIND) (54 LISPXHISTORY 47 LISPXHISTORY 39 LISPXHISTORY 31 LISPXHISTORY 21 LISPXHISTORY 9 LISPXHISTORY) () ENTEREVALQTA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R hcg(10 EVAL) (19 :NORMAL) () ENTEREVALQT :D8 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 X F 4 *PROCEED-CASES*) 0hg `d`TJ h(38 ENTEREVALQTA0001 10 RESETRESTORE) (27 SI::NLSETQ-PROCEED-CASE 15 RESETFORMS 5 RESET) () REMEMBER :D8 (I 0 LINE) @ g (15 MARKASCHANGED 5 GETEXPRESSIONFROMEVENTSPEC) (10 EXPRESSIONS) () VALUOF-EVENT :D8 (P 3 X I 0 Y F 4 LINE) Ig@ c@g'$Tb@Td[ IHhZH&J(53 VALUOF-EVENT 10 MEMB) (25 LISPXVALUES 4 *GROUP*) () LISPXFIX :D8 (P 0 LISPXHIST I 1 COMS I 0 INPUT) (@d` d@hhA (36 LAST 31 EDITL) (11 HISTSTR0) () CHANGESLICE :D8 (I 2 L I 1 HISTORY I 0 N F 0 LISPXHIST) l@@o oA)`@` `S@` EB gAAd@ bhP A@A@kldkldB@h(100 UNDOSAVE 86 NTH 67 \\NCONC2 57 CHANGESLICE 38 CHANGESLICE 15 ERROR) (73 CHANGESLICE 52 EDITHISTORY 44 EDITHISTORY 33 LISPXHISTORY 26 LISPXHISTORY) ( 10 "is too small") LISPXSTATE :D8 (P 1 Y P 0 X I 1 STATE I 0 NAME F 2 LISPXHIST) u @g XH@g Y@oi IAggd @ggAHH @gAR A(113 /PUT 98 UNDOLISPX2 68 UNDOLISPX2 42 ERROR 27 GETP 13 GETP) (105 STATE 84 BEFORE 79 STATE 60 WAS 52 AFTER 22 *HISTORY* 8 STATE) ( 36 " ?") (PRETTYCOMPRINT HISTCOMS) (RPAQQ HISTCOMS ((FNS PRINTHISTORY ENTRY# PRINTHISTORY1 PRINTHISTORY2) (FNS EVALQT ENTEREVALQT USEREXEC LISPXREAD LISPXREADBUF LISPXREADP LISPXUNREAD LISPX LISPX/ LISPX/1 LISPXEVAL LISPXSTOREVALUE HISTORYSAVE LISPXFIND LISPXGETINPUT REMEMBER GETEXPRESSIONFROMEVENTSPEC LISPXFIND0 LISPXFIND1 HISTORYFIND HISTORYFIND1 HISTORYMATCH VALUEOF VALUOF VALUOF-EVENT LISPXUSE LISPXUSE0 LISPXUSE1 LISPXSUBST LISPXUSEC LISPXFIX CHANGESLICE LISPXSTATE LISPXTYPEAHEAD) (ALISTS (SYSTEMINITVARS LISPXHISTORY GREETHIST)) (DECLARE\: DONTEVAL@LOAD DOCOPY (VARS (\#REDOCNT 3) (ARCHIVEFLG T) (ARCHIVEFN ) (ARCHIVELST (QUOTE (NIL 0 50 100))) (DISPLAYTERMFLG) (EDITHISTORY (QUOTE (NIL 0 30 100))) ( HERALDSTRING) (LASTEXEC) (LASTHISTORY) (LISPXBUFS) (LISPXHIST) (LISPXHISTORY (QUOTE (NIL 0 30 100))) ( LISPXPRINTFLG T) (LISPXUSERFN) (MAKESYSDATE) (PROMPT#FLG T) (REDOCNT) (SYSOUT.EXT (QUOTE SYSOUT)) ( SYSOUTFILE (QUOTE WORK)) (SYSOUTGAG) (TOPLISPXBUFS))) (LISPXMACROS SHH RETRIEVE BEFORE AFTER OK REMEMBER\: REMEMBER TYPE-AHEAD ??T) (ADDVARS (LISPXFINDSPLST FROM TO THRU SUCHTHAT ALL AND) ( BEFORESYSOUTFORMS (SETQ SYSOUTDATE (DATE)) (PROGN (COND ((NULL FILE) (SETQ FILE SYSOUTFILE)) (T (SETQ SYSOUTFILE (PACKFILENAME (QUOTE VERSION) NIL (QUOTE BODY) FILE)))) (COND ((AND (NULL (FILENAMEFIELD FILE (QUOTE EXTENSION))) (NULL (FILENAMEFIELD FILE (QUOTE VERSION)))) (SETQ FILE (PACKFILENAME (QUOTE BODY) FILE (QUOTE EXTENSION) SYSOUT.EXT)))))) (RESETFORMS (SETQ READBUF NIL) (SETQ READBUFSOURCE NIL) (SETQ TOPLISPXBUFS (OR (CLBUFS T) TOPLISPXBUFS)) (COND ((EQ CLEARSTKLST T) (COND ((EQ NOCLEARSTKLST NIL) (CLEARSTK)) (T (* |clear| |all| |stack| |pointers| EXCEPT |those| |on| NOCLEARSTKLST.) (MAPC ( CLEARSTK T) (FUNCTION (LAMBDA (X) (AND (NOT (FMEMB X NOCLEARSTKLST)) (RELSTK X)))))))) (T (MAPC CLEARSTKLST (FUNCTION RELSTK)) (SETQ CLEARSTKLST NIL)))) (HISTORYSAVEFORMS) (LISPXCOMS  |...| ?? FIX FORGET NAME ORIGINAL REDO REPEAT RETRY UNDO USE |fix| |forget| |name| |redo| |repeat| |retry| |undo| |use|) (SYSTATS (LISPXSTATS LISPX INPUTS) (UNDOSAVES UNDO SAVES) (UNDOSTATS CHANGES UNDONE) NIL ( EDITCALLS CALLS TO EDITOR) (EDITSTATS EDIT COMMANDS) (EDITEVALSTATS COMMANDS INVOLVING EVALUATING A LISP EXPRESSION) (EDITESTATS USES OF AN E COMMAND TYPED IN DIRECTLY) (EDITISTATS USES OF AN I COMMAND TYPED IN DIRECTLY) (EDITUNDOSAVES EDIT UNDO SAVES) (EDITUNDOSTATS EDIT CHANGES UNDONE) NIL (P.A.STATS P.A. COMMANDS) NIL (CLISPIFYSTATS CALLS TO CLISPIFY) NIL (FIXCALLS CALLS TO DWIM) (FIXTIME) ( ERRORCALLS WERE DUE TO ERRORS) (DWIMIFYFIXES WERE FROM DWIMIFYING) NIL "OF THOSE DUE TO ERRORS:" ( TYPEINFIXES WERE DUE TO ERRORS IN TYPE-IN) (PROGFIXES WERE DUE TO ERRORS IN USER PROGRAMS) (SUCCFIXES1 OF THESE CALLS WERE SUCCESSFUL) NIL "OF THE CALLS DUE TO DWIMIFYING:" (SUCCFIXES2 WERE SUCCESSFUL) NIL (SPELLSTATS OF ALL DWIM CORRECTIONS WERE SPELLING CORRECTIONS) (CLISPSTATS WERE CLISP TRANSFORMATIONS) (INFIXSTATS OF THESE WERE INFIX TRANSFORMATIONS) (IFSTATS WERE IF/THEN/ELSE STATEMENTS) (I.S.STATS WERE ITERATIVE STATEMENTS) (MATCHSTATS WERE PATTERN MATCHES) (RECORDSTATS WERE RECORD OPERATIONS) NIL (SPELLSTATS1 OTHER SPELLING CORRECTIONS\, E.G. EDIT COMMANDS) NIL (RUNONSTATS OF ALL SPELLING CORRECTIONS WERE RUN-ON CORRECTIONS) NIL (VETOSTATS CORRECTIONS WERE VETOED) NIL) ( NOCLEARSTKLST)) (APPENDVARS (AFTERSYSOUTFORMS (COND ((LISTP SYSOUTGAG) (EVAL SYSOUTGAG)) (SYSOUTGAG) ( (OR (NULL USERNAME) (EQ USERNAME (USERNAME NIL T))) (TERPRI T) (PRIN1 HERALDSTRING T) (TERPRI T) ( TERPRI T) (GREET0) (TERPRI T)) (T (LISPXPRIN1 (QUOTE "****ATTENTION USER ") T) (LISPXPRIN1 (USERNAME) T) (LISPXPRIN1 (QUOTE ": this sysout is initialized for user ") T) (LISPXPRIN1 USERNAME T) (LISPXPRIN1 (QUOTE ". ") T) (LISPXPRIN1 (QUOTE "To reinitialize, type GREET() ") T))) (SETINITIALS))) (P (MAPC SYSTATS (FUNCTION (LAMBDA (X) (AND (LISTP X) (EQ (GETTOPVAL (CAR X)) (QUOTE NOBIND)) (SETTOPVAL (CAR X) NIL))))) (PUTD (QUOTE E))) (COMS (FNS GREET GREET0) (ADDVARS ( PREGREETFORMS (DREMOVE GREETFORM RESETFORMS) (SETQ CONSOLETIME (SETQ CPUTIME (SETQ EDITIME 0))) (SETQ CONSOLETIME0 (CLOCK 0)) (SETQ CPUTIME0 (CLOCK 2))) (POSTGREETFORMS (SETINITIALS) (AND EDITCHARACTERS ( APPLY (QUOTE SETTERMCHARS) EDITCHARACTERS)))) (DECLARE\: DONTEVAL@LOAD DOCOPY (VARS (GREETHIST) ( SYSTEMTYPE) (GREETFORM (QUOTE (LISPXEVAL (QUOTE (GREET)) (QUOTE _)))) (CUTEFLG) (GREETDATES (QUOTE (( " 1-JAN" . "Happy new year") ("12-FEB" . "Happy Lincoln's birthday") ("14-FEB" . "Happy Valentine's day") ("22-FEB" . "Happy Washington's birthday") ("15-MAR" . "Beware the Ides of March") ("17-MAR" . "Happy St. Patrick's day") ("18-MAY" . "It's Victoria Day") ( " 1-JUL" . "It's Canada Day") ("31-OCT" . "Trick or Treat") (" 5-NOV" . " it's Guy Fawkes day") ("25-DEC" . "Merry Christmas")))) (USERNAME) (HOSTNAME) (CONSOLETIME 0) (CONSOLETIME0 0) (CPUTIME 0) ( CPUTIME0 0) (EDITIME 0) (FIRSTNAME)) (ADDVARS (BEFOREMAKESYSFORMS (SETQ RESETFORMS (CONS GREETFORM RESETFORMS)) (SETQ MAKESYSDATE (DATE)))) (ADDVARS (AFTERMAKESYSFORMS (LISPXEVAL (QUOTE (GREET)) (QUOTE _)))))) (FNS LISPXPRINT LISPXPRIN1 LISPXPRIN2 LISPXPRINTDEF LISPXPRINTDEF0 LISPXSPACES LISPXTERPRI LISPXTAB USERLISPXPRINT LISPXPUT) (GLOBALVARS \#REDOCNT ARCHIVEFLG ARCHIVEFN ARCHIVELST BOUNDPDUMMY BREAKRESETVALSLST CAR/CDRNIL CHCONLST1 CLEARSTKLST CLISPARRAY CLISPCHARS CLISPFLG CLISPTRANFLG CONSOLETIME CONSOLETIME0 CPUTIME CPUTIME0 CTRLUFLG CUTEFLG DISPLAYTERMFLG DWIMFLG EDITHISTORY EDITIME EDITQUIETFLG EDITSTATS EVALQTFORMS FILERDTBL FIRSTNAME GREETDATES GREETHIST HISTORYCOMS HISTORYSAVEFN HISTORYSAVEFORMS HISTSTR0 HISTSTR2 HISTSTR3 IT LASTHISTORY LISP-RELEASE-VERSION LISPXBUFS LISPXCOMS LISPXFINDSPLST LISPXFNS LISPXHISTORY LISPXHISTORYMACROS LISPXMACROS LISPXPRINTFLG LISPXREADFN LISPXSTATS LISPXUSERFN MACSCRATCHSTRING NEWUSERFLG P.A.STATS POSTGREETFORMS PREGREETFORMS PRETTYHEADER RANDSTATE READBUFSOURCE REDOCNT REREADFLG RESETFORMS SYSFILES TOPLISPXBUFS USERHANDLE USERNAME) (VARS (LISP-RELEASE-VERSION 2.0)) (BLOCKS (LISPXFINDBLOCK LISPXFIND LISPXFIND0 LISPXFIND1 HISTORYFIND HISTORYFIND1 (ENTRIES LISPXFIND HISTORYFIND) (LOCALFREEVARS _FLG L LST Z =FLG HISTORYFLG PREDFLG LINE HISTORY TYPE BACKUP QUIETFLG) (NOLINKFNS HISTORYMATCH LISPXGETINPUT)) (NIL ENTRY# EVALQT GETEXPRESSIONFROMEVENTSPEC GREET GREET0 HISTORYMATCH HISTORYSAVE LISPX LISPX/ LISPX/1 LISPXEVAL LISPXFIND1 LISPXGETINPUT LISPXPRIN1 LISPXPRIN2 LISPXPRINT LISPXPRINTDEF LISPXPRINTDEF0 LISPXPUT LISPXREAD LISPXREADBUF LISPXREADP LISPXSPACES LISPXSTOREVALUE LISPXSUBST LISPXTAB LISPXTERPRI LISPXTYPEAHEAD LISPXUNREAD LISPXUSE LISPXUSE0 LISPXUSE1 LISPXUSEC PRINTHISTORY PRINTHISTORY1 PRINTHISTORY2 USEREXEC USERLISPXPRINT VALUEOF VALUOF (LOCALVARS . T) (SPECVARS LISPXLINE LISPXID LISPXVALUE LISPXLISTFLG HISTORY ID EVENT BREAKRESETVALS VARS GENLST INITLST NAME MESSAGE) (LINKFNS . T ) (NOLINKFNS LISPXTYPEAHEAD UNDOLISPX ARCHIVEFN LISPXFIX LISPXUSE LISPXUSE0 LISPXSUBST LISPXFIND HISTORYMATCH PRINTHISTORY DISPLAYTERMP LISPXSTOREVALUE HISTORYSAVEFN ENTEREVALQT PRINTHISTORY1 PRINTHISTORY2 LISPXFIND HISTORYMATCH LISPXGETINPUT LISPXSUBST ARCHIVEFN LISPXFIX LISPXUSE LISPXUSE0 LISPXSUBST HISTORYMATCH PRINTHISTORY DISPLAYTERMP LISPXSTOREVALUE HISTORYSAVEFN ENTEREVALQT LISPXTYEAHEAD UNDOLISPX GREETFILENAME))) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA VALUEOF) (NLAML) (LAMA))))) (ADDTOVAR SYSTEMINITVARS (LISPXHISTORY NIL 0 100 100) (GREETHIST)) (RPAQQ \#REDOCNT 3) (RPAQQ ARCHIVEFLG T) (RPAQQ ARCHIVEFN NIL) (RPAQQ ARCHIVELST (NIL 0 50 100)) (RPAQQ DISPLAYTERMFLG NIL) (RPAQQ EDITHISTORY (NIL 0 30 100)) (RPAQQ HERALDSTRING NIL) (RPAQQ LASTEXEC NIL) (RPAQQ LASTHISTORY NIL) (RPAQQ LISPXBUFS NIL) (RPAQQ LISPXHIST NIL) (RPAQQ LISPXHISTORY (NIL 0 30 100)) (RPAQQ LISPXPRINTFLG T) (RPAQQ LISPXUSERFN NIL) (RPAQQ MAKESYSDATE NIL) (RPAQQ PROMPT#FLG T) (RPAQQ REDOCNT NIL) (RPAQQ SYSOUT.EXT SYSOUT) (RPAQQ SYSOUTFILE WORK) (RPAQQ SYSOUTGAG NIL) (RPAQQ TOPLISPXBUFS NIL) (ADDTOVAR LISPXHISTORYMACROS (TYPE-AHEAD (LISPXTYPEAHEAD)) (??T NIL (PROG (TEM) (RESETVARS (( PRETTYTRANFLG T)) (RESETFORM (OUTPUT T) (PRINTDEF (COND ((NULL (CDAR (SETQ TEM (LISPXFIND LISPXHISTORY LISPXLINE (QUOTE ENTRY))))) (CAAR TEM)) (T (CAR TEM))) NIL T))) (TERPRI T) (RETURN NIL)))) (ADDTOVAR LISPXMACROS (SHH NIL (COND ((OR (CDR (LISTP LISPXLINE)) (AND (FMEMB (LASTC T) (QUOTE (\) ])) ) (LITATOM (CAR LISPXLINE)))) (APPLY (CAR LISPXLINE) (COND ((AND (LISTP (CADR LISPXLINE)) (NULL (CDDR LISPXLINE))) (CADR LISPXLINE)) (T (CDR LISPXLINE))))) (T (EVAL (COND (LISPXLINE (CAR LISPXLINE)) (T ( QUOTE SHH))))))) (RETRIEVE (PROG ((X (GETP (CAR LISPXLINE) (QUOTE *HISTORY*))) REREADFLG) (COND ((NULL X) (ERROR (CAR LISPXLINE) (QUOTE " ?") T))) (MAPC (CDDR X) (FUNCTION (LAMBDA (X) (HISTORYSAVE LISPXHISTORY X)))) (RETURN (CAR LISPXLINE)))) (BEFORE (LISPXSTATE (CAR LISPXLINE) (QUOTE BEFORE))) ( AFTER (LISPXSTATE (CAR LISPXLINE) (QUOTE AFTER))) (OK (RETFROM (OR (STKPOS (QUOTE USEREXEC)) (QUOTE LISPX)) T T)) (REMEMBER\: (PROG1 (LET (FILEPKGFLG) (EVAL (LISPX/ (CAR LISPXLINE)) LISPXID)) ( MARKASCHANGED (CAR LISPXLINE) (QUOTE EXPRESSIONS)))) (REMEMBER (REMEMBER LISPXLINE))) (ADDTOVAR LISPXCOMS SHH RETRIEVE BEFORE AFTER OK REMEMBER\: REMEMBER TYPE-AHEAD ??T) (ADDTOVAR HISTORYCOMS RETRIEVE TYPE-AHEAD) (ADDTOVAR LISPXFINDSPLST FROM TO THRU SUCHTHAT ALL AND) (ADDTOVAR BEFORESYSOUTFORMS (SETQ SYSOUTDATE (DATE)) (PROGN (COND ((NULL FILE) (SETQ FILE SYSOUTFILE)) (T (SETQ SYSOUTFILE (PACKFILENAME (QUOTE VERSION) NIL (QUOTE BODY) FILE)))) (COND ((AND (NULL ( FILENAMEFIELD FILE (QUOTE EXTENSION))) (NULL (FILENAMEFIELD FILE (QUOTE VERSION)))) (SETQ FILE ( PACKFILENAME (QUOTE BODY) FILE (QUOTE EXTENSION) SYSOUT.EXT)))))) (ADDTOVAR RESETFORMS (SETQ READBUF NIL) (SETQ READBUFSOURCE NIL) (SETQ TOPLISPXBUFS (OR (CLBUFS T) TOPLISPXBUFS)) (COND ((EQ CLEARSTKLST T) (COND ((EQ NOCLEARSTKLST NIL) (CLEARSTK)) (T (* |clear| |all| |stack| |pointers| EXCEPT |those| |on| NOCLEARSTKLST.) (MAPC (CLEARSTK T) (FUNCTION (LAMBDA (X) (AND (NOT (FMEMB X NOCLEARSTKLST)) (RELSTK X)))))))) (T (MAPC CLEARSTKLST (FUNCTION RELSTK)) (SETQ CLEARSTKLST NIL)))) (ADDTOVAR HISTORYSAVEFORMS) (ADDTOVAR LISPXCOMS  |...| ?? FIX FORGET NAME ORIGINAL REDO REPEAT RETRY UNDO USE |fix| |forget| |name| |redo| |repeat| |retry| |undo| |use|) (ADDTOVAR SYSTATS (LISPXSTATS LISPX INPUTS) (UNDOSAVES UNDO SAVES) (UNDOSTATS CHANGES UNDONE) NIL ( EDITCALLS CALLS TO EDITOR) (EDITSTATS EDIT COMMANDS) (EDITEVALSTATS COMMANDS INVOLVING EVALUATING A LISP EXPRESSION) (EDITESTATS USES OF AN E COMMAND TYPED IN DIRECTLY) (EDITISTATS USES OF AN I COMMAND TYPED IN DIRECTLY) (EDITUNDOSAVES EDIT UNDO SAVES) (EDITUNDOSTATS EDIT CHANGES UNDONE) NIL (P.A.STATS P.A. COMMANDS) NIL (CLISPIFYSTATS CALLS TO CLISPIFY) NIL (FIXCALLS CALLS TO DWIM) (FIXTIME) ( ERRORCALLS WERE DUE TO ERRORS) (DWIMIFYFIXES WERE FROM DWIMIFYING) NIL "OF THOSE DUE TO ERRORS:" ( TYPEINFIXES WERE DUE TO ERRORS IN TYPE-IN) (PROGFIXES WERE DUE TO ERRORS IN USER PROGRAMS) (SUCCFIXES1 OF THESE CALLS WERE SUCCESSFUL) NIL "OF THE CALLS DUE TO DWIMIFYING:" (SUCCFIXES2 WERE SUCCESSFUL) NIL (SPELLSTATS OF ALL DWIM CORRECTIONS WERE SPELLING CORRECTIONS) (CLISPSTATS WERE CLISP TRANSFORMATIONS) (INFIXSTATS OF THESE WERE INFIX TRANSFORMATIONS) (IFSTATS WERE IF/THEN/ELSE STATEMENTS) (I.S.STATS WERE ITERATIVE STATEMENTS) (MATCHSTATS WERE PATTERN MATCHES) (RECORDSTATS WERE RECORD OPERATIONS) NIL (SPELLSTATS1 OTHER SPELLING CORRECTIONS\, E.G. EDIT COMMANDS) NIL (RUNONSTATS OF ALL SPELLING CORRECTIONS WERE RUN-ON CORRECTIONS) NIL (VETOSTATS CORRECTIONS WERE VETOED) NIL) (ADDTOVAR NOCLEARSTKLST) (APPENDTOVAR AFTERSYSOUTFORMS (COND ((LISTP SYSOUTGAG) (EVAL SYSOUTGAG)) (SYSOUTGAG) ((OR (NULL USERNAME) (EQ USERNAME (USERNAME NIL T))) (TERPRI T) (PRIN1 HERALDSTRING T) (TERPRI T) (TERPRI T) ( GREET0) (TERPRI T)) (T (LISPXPRIN1 (QUOTE "****ATTENTION USER ") T) (LISPXPRIN1 (USERNAME) T) ( LISPXPRIN1 (QUOTE ": this sysout is initialized for user ") T) (LISPXPRIN1 USERNAME T) (LISPXPRIN1 (QUOTE ". ") T) (LISPXPRIN1 (QUOTE "To reinitialize, type GREET() ") T))) (SETINITIALS)) (MAPC SYSTATS (FUNCTION (LAMBDA (X) (AND (LISTP X) (EQ (GETTOPVAL (CAR X)) (QUOTE NOBIND)) (SETTOPVAL (CAR X) NIL))))) (PUTD (QUOTE E)) (ADDTOVAR PREGREETFORMS (DREMOVE GREETFORM RESETFORMS) (SETQ CONSOLETIME (SETQ CPUTIME (SETQ EDITIME 0 ))) (SETQ CONSOLETIME0 (CLOCK 0)) (SETQ CPUTIME0 (CLOCK 2))) (ADDTOVAR POSTGREETFORMS (SETINITIALS) (AND EDITCHARACTERS (APPLY (QUOTE SETTERMCHARS) EDITCHARACTERS) )) (RPAQQ GREETHIST NIL) (RPAQQ SYSTEMTYPE NIL) (RPAQQ GREETFORM (LISPXEVAL (QUOTE (GREET)) (QUOTE _))) (RPAQQ CUTEFLG NIL) (RPAQQ GREETDATES ((" 1-JAN" . "Happy new year") ("12-FEB" . "Happy Lincoln's birthday") ("14-FEB" . "Happy Valentine's day") ("22-FEB" . "Happy Washington's birthday") ("15-MAR" . "Beware the Ides of March") ("17-MAR" . "Happy St. Patrick's day") ("18-MAY" . "It's Victoria Day") ( " 1-JUL" . "It's Canada Day") ("31-OCT" . "Trick or Treat") (" 5-NOV" . " it's Guy Fawkes day") ("25-DEC" . "Merry Christmas"))) (RPAQQ USERNAME NIL) (RPAQQ HOSTNAME NIL) (RPAQQ CONSOLETIME 0) (RPAQQ CONSOLETIME0 0) (RPAQQ CPUTIME 0) (RPAQQ CPUTIME0 0) (RPAQQ EDITIME 0) (RPAQQ FIRSTNAME NIL) (ADDTOVAR BEFOREMAKESYSFORMS (SETQ RESETFORMS (CONS GREETFORM RESETFORMS)) (SETQ MAKESYSDATE (DATE))) (ADDTOVAR AFTERMAKESYSFORMS (LISPXEVAL (QUOTE (GREET)) (QUOTE _))) (RPAQQ LISP-RELEASE-VERSION 2.0) NIL