(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "26-Jan-98 13:37:04" ("compiled on " |{DSK}disk2>jdstools>lc3>lispcore3.0>sources>SPELL.;1|) "30-Mar-95 20:33:04" |bcompl'd| |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "17-May-90 11:20:15" |{DSK}local>lde>lispcore>sources>SPELL.;2| 60991 |changes| |to:| (VARS SPELLCOMS) |previous| |date:| "15-Nov-86 22:33:41" |{DSK}local>lde>lispcore>sources>SPELL.;1|) MISSPELLED? :D8 (L (5 FN 3 FLG 2 SPLST 1 REL 0 XWORD) I 4 TAIL) I@˜@gð²$` gi `idE£@B„@kE‘@@ABCDE (70 FIXSPELL 43 PRINT 31 PRIN1 20 LISPXWATCH) (36 LASTWORD 25 = 15 SPELLSTATS1 7 ) () FIXSPELLA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 FIXSPELLTEM F 4 SPLST F 5 X F 6 TIEFLG F 7 FN F 8 TLST) ÂiTd´ dk T´Thc ¿I›TkIc³.±JµHµ±† cJð²J °qc¤H¸°ÎH¸WS ²¼W–SkW²²IŸS ˜S c¿Vgð³Vgð©Vdgð–¿SU±ÿ}“S±ÿxU²gi ¿hc hS±ÿ`(182 PRINT 127 MKATOM 120 STRINGP 100 EDIT4E1 95 UNPACK 73 RELSTK 60 GENERATE 18 ELT) (176 |ambiguous| 154 EVERYTHING 145 LIST 136 ALL 5 EDITQUIETFLG) () FIXSPELL :D8 (L (9 APPROVALFLG 8 FROMDWIM 7 DONTMOVETOPFLG 3 FLG 1 REL 0 XWORD) P 7 SI::*RESETFORMS* P 3 TLST P 2 FIXSPELLTEM P 1 X I 6 TIEFLG I 5 FN I 4 TAIL I 2 SPLST F 8 TYPE-IN? F 9 NOSPELLFLG F 10 DWIM.GIVE.UP.TIME F 11 DWIM.GIVE.UP.INTERVAL F 12 LISPXHIST F 13 FIXSPELL.UPPERCASE.QUIET) jW«l Wö¿aWið’±EWšG—W´‚±8B¨B´‚±,@d3@ð«@ ´‚±A§`b¿@d¢±q »Bµ-@gð¢±ÊG•W¢±Á`¹@`hG±³ÒBh½\µ@d ³Ã¿@ ºE²"JkE°F]µL°Û@ð²ùM¹G¢±C±B`ð©Bd`ð—¿J Œ`ð–J ¤JB²J¹W¢±èG¢±Wið¢±Ú±ûBd^—JNð’NZ¤µñh¢±ÿ;JJhY°*@gW ZµKYµ)KABDEFHG ¹I³ehB²ägb¿JY°ìlð²9IZ²4@ »g`hg ¿$°®IdJð•¿HkØ¸ºI°‰Fgð’±ðFgð’±åFgð’±ÚIµCgð¢±ÙI²A@Ið¨Cgð²IY¿D@Dð˜DIDI@ICGG Zd¢±ŒµÕ°ÑD´‚±ÿ%Cgð³u@Id”ICGGµg Zµ*@ Id I Añ´4IY±þÑµ‚±ÿuD²@Dð²DId‘IDDJµId²ö¿JJ@ICGG Zd²äµ#G’±ÿ,B¢±ÿ&`B¢±ÿIB ±ÿYB ±ÿ(770 ADDSPELL 759 MOVETOP 722 FIXSPELL1 688 /RPLNODE 642 \\FIXSPELLBLOCK/CHOOZ1 637 NCHARS 630 NCHARS 618 NCHARS 609 FIXSPELL1 553 FIXSPELL1 537 /RPLNODE 422 SI::RESETUNWIND 417 \\MVLIST 412 FIXSPELLA0001 385 UNPACK 344 CHOOZ 319 MEMB 241 BOUNDP 227 CL:FBOUNDP 167 U-CASE 158 U-CASEP 136 FIXSPELL1 91 CHCON 64 STRINGP 11 \\CLOCK0) (746 SPELLSTR1 603 MUSTAPPROVE 577 NO-MESSAGE 512 NO-MESSAGE 490 NO-MESSAGE 475 EVERYTHING 464 LIST 453 ALL 407 SI::RESETUNWIND 396 EDITQUIETFLG 391 EDITQUIETFLG 360 NEEDNOTAPPROVE 312 RESPELLS 233 SPELLINGS3 218 SPELLINGS2 209 SPELLINGS1 128 LASTWORD 121 LASTWORD 102 77 FIXSPELLREL) () CHOOZ :D8 (L (7 FROMDWIM 6 NDBLS 5 TIEFLG 4 FN 2 SPLST 1 REL 0 XWORD) P 11 ALTFLG P 4 NCTWORD P 3 NCXWORD I 3 TAIL F 12 DWIM.GIVE.UP.TIME) Y@d¦ b B´ Bk B´B“F³jb¿@°ddOð—¿FkØb¿‚_¿µì@ lð_¿W˜W ³I˜BkI]µg…Jµ/BµBEgð³EgðªEgð¢±ÁOd¢±Æ ]dJð²+¿J ¿°Â]`ð§M`ð–Bb¿°Bb¿M˜M¾M_¿ƒM_¾N ¼O‘L€H»LdKñž¿O³KldÚLÛAýñldÚKFÙkØÛAýñ”i’±ÿE@N` _KLG _¢±ÿ'D˜OkD¢±ÿM—NOh°IŸMd ˜¿M €M_¿Od²H¿`¢±þëC¢±þæO²Egð®LO ñ¢±þËOO Egð´O_¿±þ¯jð³OµO²[HLKÙÙkÙHkÙ°Q ²ëEdgð›¿OO_¿±þygðªEgð¢OAldð®ldb¿Oh_¿±þSOO_¿±þHKLO_dAñ²¿OEgð’O…Ob¿h_¿±þAð¢±þOO_¿±þOd–¿E¡hO(534 \\FIXSPELLBLOCK/CHOOZ1 453 \\FZEROP 403 PACKC 389 NCHARS 341 MKATOM 333 STRINGP 296 SKOR 284 DCHCON 226 NCHARS 172 RELSTK 158 GENERATE 152 DREVERSE 92 TIMEREXPIRED? 75 LAST 27 ELT 15 FLENGTH 8 CHCON) (550 EVERYTHING 489 LIST 481 ALL 462 EVERYTHING 410 EVERYTHING 377 EVERYTHING 358 RUNONFLG 279 SKORLST2 190 SPELLSTR2 182 SPELLSTR1 134 EVERYTHING 126 LIST 117 ALL) () \\FIXSPELLBLOCK/CHOOZ1 :D8 (L (2 SC 1 NC2 0 NC1)) ld@AØXBlÚÙÚHÛNIL NIL () SKOR :D8 (L (4 FROMDWIM 3 NCT 2 NCX 1 TWORD 0 XWORD) F 17 SPELLCASEARRAY F 18 ALTFLG F 19 NCXWORD) $jdò@_¿A_¿@³ZA’±|@³:A³7L²4J²1L ¼J ºM–M ½K–K »LJð£LKð“HkÙ¸Mµ HK¢±§l±§Jð¤MKð²ïHkÙ°ëOlð²Z@b´hb¿M¢±«OM_¿_Oð³)lÿOó¢±”lÿOó¢±‹W"O W"O ð²uM BlØñ²QHkØ¸°OA²²OOð³%lÿOó²¤lÿOó²W"O W"O ð²ˆ@b¿BkÙb¿Ab¿CkÙb¿O¾±þöIkØ¹h½@b¿BkÙb¿O¾±þßL²aOL_¿_Oð³%lÿOó²LlÿOó²EW"O W"O ð²0L BlØñ”HkØ¸ƒIkØ¹Md“¼h½€¼@b¿BkÙb¿O¾±þ}A¢±1K²XOK_¿_Oð³%lÿOó²ClÿOó² " 180 "=" 88 "") \\FIXSPELL1/FIXSPELL2A0001 :D8 (L (0 X)) @d ˜¿@i id(23 LISPXPRIN2 15 LISPXPRIN1 6 STRINGP) NIL () \\FIXSPELL1/FIXSPELL2 :D8 (L (1 FLG 0 X)) G@d²!d™d¥@hihddgi ° —@i ‡@id¿A¦i h(66 LISPXTERPRI 57 LISPXPRIN2 48 LISPXPRIN1 40 STRINGP 33 MAPRINT) (26 \\FIXSPELL1/FIXSPELL2A0001) () ADDSPELL :D8 (I 2 N I 1 SPLST I 0 X) Ì@d3@ð´‚±ªA–Adjð²8¿@``A³@``¿@kð²@` Adlð²¿@` ið§Adlð²4¿@``@``@˜@ABoAi(201 ERROR 188 ADDSPELL1 166 ADDSPELL1 145 ADDSPELL1 112 ADDSPELL1 87 ADDSPELL1 59 ADDSPELL1 35 ADDSPELL1) (177 LASTWORD 171 SPELLINGS3 161 \#SPELLINGS3 156 SPELLINGS3 150 USERWORDS 140 \#USERWORDS 135 USERWORDS 117 SPELLINGS2 107 SPELLINGS2 92 SPELLINGS1 82 SPELLINGS1 71 LASTWORD 64 SPELLINGS2 54 \#SPELLINGS2 49 SPELLINGS2 40 USERWORDS 30 \#USERWORDS 25 USERWORDS) ( 194 "bad addspell type:") ADDSPELL1 :D8 (P 3 M P 2 L3 P 1 L2 P 0 L1 I 2 N I 1 SPLST I 0 WORD F 7 LISPXHIST) A©`@h@Að’±õ@Að’±ìAd"Ad`ð’ºk‹`ð“Aºj»I²Q@Ið²/J¢±½B³HI¿IJ¿JI±©HI¿JºIJ¿JI±•I`ð”Hºj»H¸I¹K²µKkØ°¯J«H@h ¿°TB³Jd@JLMN°?KBñ²'H@JLMNJJHLMNHh¿°JJ@JLMNW²g@AhW A(261 UNDOSAVE 154 \\NCONC2) (248 ADDSPELL2 122 SPELLSTR1 55 SPELLSTR1 43 SPELLSTR1 6 SPELLSTR1) () ADDSPELL2 :D8 (P 0 TEM I 1 SPLST I 0 WORD) @AXdš` h(18 /RPLACA) (13 SPELLSTR2) () SETSPELLCASE :D8 (P 3 Y P 2 X P 1 I F 4 SPELLCASEARRAY) XclZlAIHó—o°:TIl ØI¿IkÔY°ådJ°d»TK J ¿µçhµÙh(73 SETCASEARRAY 68 CHCON1 61 CHCON1 36 SETCASEARRAY 4 CASEARRAY) NIL ( 23 ((1 !) (2 \") (3 \#) (4 $) (5 %) (6 &) (7 \' &) (8 $ *) (9 $ $) (0 $ _) (= - +) (\; +) (\' \") (\: * \;) (< \,) (> \.) (? /))) (PRETTYCOMPRINT SPELLCOMS) (RPAQQ SPELLCOMS ((FNS ADDSPELL ADDSPELL1 ADDSPELL2 MISSPELLED? FIXSPELL FIXSPELL1 FIXSPELL2 CHOOZ CHOOZ1 SETSPELLCASE SKOR0 SKOR MOVETOP) (INITVARS (USERWORDS) (SPELLINGS1 (QUOTE (DEFINEQ ARGLIST MOVD GETD FNTYP BREAK UNBREAK REBREAK TRACE BREAKIN MAKEFILE MAKEFILES LISTFILES FILES? WHEREIS CLEANUP PP PF EDITF EDITV EDITP ADVISE UNADVISE UNSAVEDEF RECOMPILE TCOMPL COMPILE BRECOMPILE BCOMPL MAPCAR MAPC LOAD LOADFROM LOADFNS TIME CLOSEF CLOSEALL OPENP OUTPUT INPUT OUTFILE INFILE LOGOUT PUTPROP REMPROP GETPROP SYSOUT CLISPIFY DWIMIFY EDITCALLERS FREEVARS CALLS))) (SPELLINGS2 (QUOTE (GETPROP ADD1 AND APPEND ASSOC COND CONS COPY ELT EQ EQUAL ERROR ERSETQ EVAL FASSOC FMEMB FRPLACA FRPLACD FUNCTION GO IDIFFERENCE IGREATERP ILESSP IMINUS IPLUS ITIMES LENGTH LIST LISTP MAPC MAPCAR MAPCONC MEMB MEMBER NCONC NCONC1 NEQ NLISTP NLSETQ NULL NUMBERP OR PRINT PRIN1 PROG PROGN PUTPROP QUOTE READ RETURN RPLACA RPLACD SELECTQ SETA SETQ SPACES SUB1 TERPRI ZEROP IF F/L VALUEOF FOR FETCH REPLACE CREATE GETPROP PUTPROP DIFFERENCE GREATERP LESSP PLUS))) (SPELLINGS3 (QUOTE (BROKENFNS ADVISEDFNS NOTLISTEDFILES FILELST NOTCOMPILEDFILES PROMPT#FLG CLISPIFYPRETTYFLG DWIMIFYCOMPFLG FILERDTBL EDITRDTBL SYSPRETTYFLG NOSPELLFLG INITIALS NIL))) (SPELLSTR1 "{spellseparator}") (SPELLSTR2 "{spellignore}") (FIXSPELLREL 70) (FIXSPELLDEFAULT (QUOTE \y)) (SKORLST1 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (SKORLST2 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) DWIMKEYLST FIXSPELLKEYLST (FASTYPEFLG) (RUNONFLG NIL) (\#USERWORDS 20) (\#SPELLINGS1 20) (\#SPELLINGS2 20) (\#SPELLINGS3 20) (DWIMWAIT 10) (RESPELLS) ( FIXSPELL.UPPERCASE.QUIET NIL)) (P (SETSPELLCASE) (NCONC1 SPELLINGS1 SPELLSTR1) (NCONC1 SPELLINGS2 SPELLSTR1) (ATTACH SPELLSTR1 SPELLINGS3)) (DECLARE\: DONTCOPY (MACROS SPELLEQ)) (BLOCKS (FIXSPELLBLOCK MISSPELLED? FIXSPELL CHOOZ CHOOZ1 SKOR SKOR0 MOVETOP (ENTRIES MISSPELLED? FIXSPELL CHOOZ SKOR0 SKOR MOVETOP) (LOCALFREEVARS NCXWORD NCTWORD TAIL ALTFLG)) (FIXSPELL1 FIXSPELL1 FIXSPELL2)) (DECLARE\: EVAL@COMPILE DONTCOPY (P (AND (OR (GETPROP (QUOTE NOSPELLFLG) (QUOTE GLOBALVAR)) (FMEMB (QUOTE NOSPELLFLG) GLOBALVARS)) (HELP "NOSPELLFLG shouldn't be a global variable!" " How did it get that way?")))) (GLOBALVARS \#SPELLINGS2 \#SPELLINGS3 \#USERWORDS APPROVEFLG CLISPCHARS CLISPFLG COMMENTFLG DWIMFLG DWIMKEYLST DWIMWAIT EDITQUIETFLG FASTYPEFLG LASTWORD REREADFLG RESPELLS RUNONFLG RUNONSTATS SKORLST1 SKORLST2 SPELLINGS1 SPELLINGS2 SPELLINGS3 SPELLSTATS SPELLSTATS1 SPELLSTR1 SPELLSTR2 USERWORDS VETOSTATS))) (RPAQ? USERWORDS) (RPAQ? SPELLINGS1 (QUOTE (DEFINEQ ARGLIST MOVD GETD FNTYP BREAK UNBREAK REBREAK TRACE BREAKIN MAKEFILE MAKEFILES LISTFILES FILES? WHEREIS CLEANUP PP PF EDITF EDITV EDITP ADVISE UNADVISE UNSAVEDEF RECOMPILE TCOMPL COMPILE BRECOMPILE BCOMPL MAPCAR MAPC LOAD LOADFROM LOADFNS TIME CLOSEF CLOSEALL OPENP OUTPUT INPUT OUTFILE INFILE LOGOUT PUTPROP REMPROP GETPROP SYSOUT CLISPIFY DWIMIFY EDITCALLERS FREEVARS CALLS))) (RPAQ? SPELLINGS2 (QUOTE (GETPROP ADD1 AND APPEND ASSOC COND CONS COPY ELT EQ EQUAL ERROR ERSETQ EVAL FASSOC FMEMB FRPLACA FRPLACD FUNCTION GO IDIFFERENCE IGREATERP ILESSP IMINUS IPLUS ITIMES LENGTH LIST LISTP MAPC MAPCAR MAPCONC MEMB MEMBER NCONC NCONC1 NEQ NLISTP NLSETQ NULL NUMBERP OR PRINT PRIN1 PROG PROGN PUTPROP QUOTE READ RETURN RPLACA RPLACD SELECTQ SETA SETQ SPACES SUB1 TERPRI ZEROP IF F/L VALUEOF FOR FETCH REPLACE CREATE GETPROP PUTPROP DIFFERENCE GREATERP LESSP PLUS))) (RPAQ? SPELLINGS3 (QUOTE (BROKENFNS ADVISEDFNS NOTLISTEDFILES FILELST NOTCOMPILEDFILES PROMPT#FLG CLISPIFYPRETTYFLG DWIMIFYCOMPFLG FILERDTBL EDITRDTBL SYSPRETTYFLG NOSPELLFLG INITIALS NIL))) (RPAQ? SPELLSTR1 "{spellseparator}") (RPAQ? SPELLSTR2 "{spellignore}") (RPAQ? FIXSPELLREL 70) (RPAQ? FIXSPELLDEFAULT (QUOTE \y)) (RPAQ? SKORLST1 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (RPAQ? SKORLST2 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (RPAQ? DWIMKEYLST NIL) (RPAQ? FIXSPELLKEYLST NIL) (RPAQ? FASTYPEFLG) (RPAQ? RUNONFLG NIL) (RPAQ? \#USERWORDS 20) (RPAQ? \#SPELLINGS1 20) (RPAQ? \#SPELLINGS2 20) (RPAQ? \#SPELLINGS3 20) (RPAQ? DWIMWAIT 10) (RPAQ? RESPELLS) (RPAQ? FIXSPELL.UPPERCASE.QUIET NIL) (SETSPELLCASE) (NCONC1 SPELLINGS1 SPELLSTR1) (NCONC1 SPELLINGS2 SPELLSTR1) (ATTACH SPELLSTR1 SPELLINGS3) (PUTPROPS SPELL COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1990)) NIL