(FILECREATED "21-Jun-85 17:42:30" ("compiled on " {ERIS}SOURCES>DWIMIFY.;19) "16-Jun-85 14:20:10" brecompiled changes: DWIMIFYFNS DWIMIFY DWIMIFY0 DWIMIFY0? DWMFY0 DWIMIFY1 DWIMIFY1? DWMFY1 DWIMIFY1A DWIMIFY2 DWIMIFY2? DWMFY2 DWIMIFY2A CLISPANGLEBRACKETS SHRIEKER CLISPRESPELL CLISPATOM1 CLRPLNODE STOPSCAN? CLUNARYMINUS? CLBINARYMINUS? CLISPATOM1A CLISPATOM1B CL89CHECK CLISPATOM2 CLISPLOOKUP CLISPATOM2A CLISPBROADSCOPE CLISPBROADSCOPE1 CLISPATOM2C CLISPATOM2D CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPATOMIS CLISPATOMIS1 CLISPMATCHUP CLISPATOMARE CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS2 CLISPATOMIS? CLISPATOMIS?1 WTFIX WTFIX0 RETDWIM1 FIX89TYPEIN FIXLAMBDA FIXATOM FIXATOM1 FIXCONTINUE FIXCONTINUE1 FIX89 FIX89A CLISPIF CLISPIF0 CLISPIF1 CLISPIF2 CLISPIF3 CLISPFORVARS CLISPFORVARS1 GETDUMMYVAR in "INTERLISP-D 16-Jun-85 ..." dated "16-Jun-85 14:32:13") (FILECREATED "21-Jun-85 17:36:44" {ERIS}SOURCES>DWIMIFY.;19 273525 changes to: (FNS CLISPATOM1 CLISPATOM2A CLISPCAR/CDR FIXATOM CLISPFORVARS CLISPFORVARS1 DWIMIFYFNS DWIMIFY DWIMIFY0 DWIMIFY0? DWMFY0 DWIMIFY1 DWIMIFY1? DWMFY1 DWIMIFY1A DWIMIFY2 DWIMIFY2? DWMFY2 DWIMIFY2A CLISPANGLEBRACKETS SHRIEKER CLISPRESPELL CLRPLNODE STOPSCAN? CLUNARYMINUS? CLBINARYMINUS? CLISPATOM1A CLISPATOM1B CL89CHECK CLISPATOM2 CLISPLOOKUP CLISPBROADSCOPE CLISPBROADSCOPE1 CLISPATOM2C CLISPATOM2D CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPATOMIS CLISPATOMIS1 CLISPMATCHUP CLISPATOMARE CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS2 CLISPATOMIS? CLISPATOMIS?1 WTFIX WTFIX0 RETDWIM1 FIX89TYPEIN FIXLAMBDA FIXATOM1 FIXCONTINUE FIXCONTINUE1 FIX89 FIX89A CLISPIF CLISPIF0 CLISPIF1 CLISPIF2 CLISPIF3 GETDUMMYVAR ) previous date: "31-Mar-85 20:35:21" {ERIS}SOURCES>DWIMIFY.;18) \FORBLOCK/CLISPFORVARS D1 (L (0 PTRS) P 0 CLISPCONTEXT F 11Q VARS F 12Q I.S.TYPE F 13Q MAKEPROGFLG F 14Q LEFT.ARROWS.BITTABLE F 15Q I.V. F 16Q INITVARS F 17Q UNDOLST F 20Q FIRSTI.V. F 21Q LEFT.ARROW F 22Q IVINITFLG) Ì g@½@[\¿LdMð’±plð²&`¢±çWL ¢±ÜLKhid Y¢±ÎI±ËLd¢±¾dgð’±¶dgð’±dgð¥dgð¿LLi±“¿Ldgð©gð²L³LgLL±ÿm`²AL_µh°lð²+WO ²!i²#LMKð ¿Ld²4d³/d°'O°ÅLKð›MLð–Li W¢±fLW ‚ ¿L\±ÿ¿h¤h½K€K\dMð²¿O²@gð©W¦Occ ¿N dgð¥dgð’¿i¿h™iZc¿L\°$Ldgð¥dgð’¿i¿h´iZc¿LºLYd²3dlð²,Wc¿O³I_¿@gð—@O&¿J’±·IN^±¯dgð¥dgð“¿i°)dgð¦dgð²¿Ig¿IgIh¿i¿h²nic¿IWc¿O³6I_¿@dgð³%dgð•¿ic$°gð›@Oih…g ¿J—IWc¿„IN¾LIW"IhLWc…Ih ¿L±þºLgLL¿L½@gLc@h@¿LKð¢±þKd¢±þ†dgð³%dgð³dgð³dgð®dgð¨dgð¢±þQ¿i±þN(1161Q /RPLNODE 1137Q CLISPFORERR 1061Q SHOULDNT 475Q DREVERSE 414Q CLISPFORERR 410Q CLISPFORERR 373Q \FORBLOCK/CLISPFORVARS1 324Q \FORBLOCK/CLISPFORVARS1 306Q STRPOSL 171Q DWIMIFY2 75Q DWIMIFY2 60Q STRPOSL) (1300Q SAVESETQQ 1272Q SAVESETQ 1264Q old 1255Q OLD 1246Q SETQQ 1237Q SETQ 1170Q I.S.TYPE 1151Q DO 1056Q CLISPFORVARS 1035Q AS 1022Q FOR 1013Q BIND 736Q QUOTE 726Q SETQ 716Q SAVESETQQ 710Q SETQQ 676Q SAVESETQ 670Q SETQ 635Q AS 551Q old 543Q OLD 511Q old 503Q OLD 455Q BIND 253Q CLISPFLG 233Q SETQ 215Q ¬ 205Q _ 154Q SAVESETQ 146Q SETQ 135Q SAVESETQQ 124Q SETQQ 45Q CLISPFLG 2 FOR/BIND) () \FORBLOCK/CLISPFOR0 D1 (P 57Q VARS P 50Q I.S.OPRSLST P 33Q UNDOLST P 22Q TERMINATEFLG P 21Q MAKEPROGFLG P 20Q INITVARS P 17Q PROGVARS P 16Q IVINITFLG P 15Q FIRSTI.V. P 14Q I.V. P 13Q I.S.TYPE1 P 7 I.S.PTRS P 6 LASTPTR P 5 I.S.TYPE P 4 DWIMIFYCHANGE P 3 VARS P 2 DUMMYVARS I 0 EXP F 63Q VARS F 64Q DWIMIFYFLG F 65Q HISTENTRY F 66Q LISPXHIST) ‰3@o`oWf ôð!Ð.Wh`¿`¿H_dlð’±™±¢±ONgð¢± `²"OHð²ONd¡_THð¨HOTH¿ONggð’±ÙNµ;ORµ*ONd³>_dgð³W¿Ngð²aNdNð²3°=HN¸h_R¿±ÿs³ÅNHh ¿°»_g_Nµ‚±ÿd±{Ng¿Ogð¢±ÄgHh^±ÇOg_RµOdg²Û¿@ ±$³OR¨hHh^±›OHh^±‘M³O_¿gH]h^±}Odgð² ¿HMð²O_¿MHH¿Nh±XOgð²9Hgð§Hgð²*O8³&O_¿gH]h¾gO_g¿O_8±MHg±Odgð³%dgð³dgð³dgð®dgð¨dgð¢±gð›gH_8h±»Odgð²"¿OBµOD_™OHg¿gH_>h±’gð²$O>µO@µOD_™OHg¿gH_Bh°iOdgð²%¿O>µO@µOB_™OHg¿gH_Dh°=gð² OBµOD_™OHg¿gH_@h°Ogð™gH_Fh…g ^O_²O<ONg¿ONh _¿Hd’±ƒ¿@Wjô¢±xgi ¿i ¿@i °Îgð²RO$³OBµODµO.µO@_$¿O8³ O<³O³O>©OB¦OD£O@´i __¿h_B_D_>_@_F¿gH_¨OB¥OD¢O@–i _¿O _µûMd²,d³&g_gðžOggð’M€Mh€_¿O.³xO0³tM³`¨o@ ¿¿±îO@³YOB’±OD’±‡`³HO$³DOg ³9oi ¿02@°dhk_`¿Obµ O`h_d‚O`&_b¿µãOdid¿Ogð¢±FggX¢±:OH_X¿gOX _ _¿KO [±*O>³ÅO<³ÁO³¼O ³¸O"³´OH³°OL³¬OJ³¨Ogð³Ogð©Odgð²’¿O,³‹OD²OgOgh ’±ÿsOB²HOdgð•¿g°ngð”g°dOgð¨Odgðœ¿gOB °Hgð§Ogð²5g°6OD²,Odgð•¿g°$gð›gOD °Ogð“g…g OBµODOOO:h¸OF¢±DHOOBµODOFhOO:h ± Oµ°^gXµ g ¿Hgð–H H¸oOd—¿gO€OµOhHd• dgð” h_ ¿gO¨gO_¿gghh_2¿O<²wO_¿h_B_D_>_@_F¿Odgðš¿O_>¿°Jdgðš¿O_F¿°9dgðš¿O_B¿°(dgðš¿O_D¿°dgð™¿O_@¿„gð¦O_µ I_*¿OBµOD¢±OBµOD_gð¨Odgð™¿OBµOD°gð¨Ogð²;O_²3Odlð“_*°%gð§OgðžO_*O …g ³OD™O_*O ‹O*OhO_¿OO*ð²O.gO*hh _.¿°?O&gOOB²i_"¿O*go°O.gO*hh _.¿O*hh _&¿O(gO*OF²!OOBµODhO*dhOFh±ugO*h±hO>²OO_µ0OO> ¿i_¿O@¢±OFd3²¿jOFó¢±g±ªOO>h°Ñ²rggi OF hh_F¿gOggOhggOhgO OO@hhigO OO@hhhhh°+O>3 ² O@3 ²O@O>ýñšo_F¿g‚g_¿O³O gOkhh _ ¿O@ hO_¿O.Od®O OOhh _.¿OF¦O>£O@²=O(gOO>¬O@©OFd3²¿gO OOFµkhhh _(¿O<“OµYOHµ?O"§O.²O0´gO2_4¿gghh_2¿O0 _0²igO0d²T¿gO0°L _d gð²/¿O°/__¿O_¿O_¿IY’±ü‡o ±ü|O2 _2¿±ÿ}O2hh_0¿O. _.µ#O, _,µ O.²VgO.°Fd²¿gO,°d—¿gO.€O2_.¿°Ígghh_,¿O.šgO.O,h†gO,hO_¿gOO:´7g02O: °!d_ZOZ _`šObµuO`_d_b¿µàOdhO OLd’ gO&OJd’ OghO0O(gghhO4 X¿gWl _¿O6°) _bO`°‹d_\O\¿O\O\¿O\Oµ µâ@H @g¿°ð(6176Q CLISPTRAN 6122Q LAST 6105Q MEMB 6071Q \NCONC2 6066Q \NCONC2 6063Q \NCONC2 6057Q \NCONC2 6054Q \NCONC2 6051Q \NCONC2 6046Q \NCONC2 6043Q \NCONC2 6040Q \NCONC2 6035Q \NCONC2 6002Q \FORBLOCK/CLISPFOR3 5766Q \FORBLOCK/CLISPFOR3 5724Q LDIFF 5703Q DREVERSE 5523Q \FORBLOCK/CLISPFOR2 5512Q \FORBLOCK/CLISPFOR2 5463Q \NCONC2 5453Q CLISPFORERR 5371Q FLAST 5363Q \FORBLOCK/CLISPFOR3 5332Q \FORBLOCK/CLISPFOR2 5245Q \NCONC2 5214Q CLISPLOOKUP 5140Q \NCONC2 5121Q CLISPLOOKUP 5074Q WARNUSER 5067Q GETDUMMYVAR 5061Q \NCONC2 4725Q CLISPLOOKUP 4677Q CLISPLOOKUP 4617Q WARNUSER 4612Q GETDUMMYVAR 4515Q \FORBLOCK/CLISPFORINITVAR 4451Q SUBPAIR 4377Q \NCONC2 4361Q \NCONC2 4340Q SUBST 4300Q \NCONC2 4234Q \FORBLOCK/CLISPFORINITVAR 4216Q SHOULDNT 4207Q \FORBLOCK/CLISPFORINITVAR 3600Q \FORBLOCK/CLISPFOR4 3570Q \APPEND2 3555Q SUBPAIR 3552Q DWIMIFY1 3547Q COPY 3501Q EVAL 3462Q SHOULDNT 3434Q \NCONC2 3427Q \FORBLOCK/CLISPFORF/L 3416Q SUBST 3361Q \FORBLOCK/CLISPFORF/L 3340Q SHOULDNT 3315Q CLISPLOOKUP 3230Q CLISPLOOKUP 3136Q EDITFINDP 3007Q \APPEND2 2776Q \APPEND2 2767Q MEMB 2721Q PRINT 2661Q RETDWIM2 2643Q PRIN1 2631Q \FORBLOCK/CLISPFOR4 2563Q ERROR! 2557Q ERRORMESS1 2443Q \FORBLOCK/CLISPFOR1 2433Q GETDUMMYVAR 2373Q \FORBLOCK/CLISPFOR1 2334Q \APPEND2 2327Q \FORBLOCK/CLISPFORVARS 2311Q \APPEND2 2306Q \FORBLOCK/CLISPFORVARS 2242Q \FORBLOCK/CLISPFOR0A 2220Q \NCONC2 2211Q ERROR! 2205Q ERRORMESS1 2160Q ERROR! 2154Q ERRORMESS 1456Q GETDUMMYVAR 1364Q \NCONC2 1361Q READLINE 1353Q PEEKC 1346Q PRIN1 1313Q \NCONC2 1302Q CLISPFORERR 1251Q SHOULDNT 1206Q CLISPFORERR 1142Q CLISPFORERR 1066Q CLISPFORERR 1015Q CLISPFORERR 545Q /RPLNODE 427Q \FORBLOCK/\DURATIONTRAN 350Q CLISPFORERR 305Q \NCONC2 262Q \FORBLOCK/CLISPFOR0A 156Q /RPLNODE 20Q \APPEND2) (6203Q * 6100Q SIDE 6023Q $$LP 6020Q GO 6007Q $$ITERATE 5771Q $$LP 5673Q DECLARE 5662Q PROG 5644Q COND 5631Q COND 5612Q $$ITERATE 5607Q GO 5566Q OR 5552Q OR 5536Q COND 5376Q RETURN 5353Q OR 5341Q COND 5315Q $$OUT 5312Q GO 5301Q $$OUT 5207Q + 5162Q SETQ 5045Q SETQ 5031Q GT 5025Q LT 4720Q GT 4672Q LT 4661Q MINUSP 4656Q COND 4645Q ZEROP 4642Q OR 4634Q AND 4606Q SETQ 4603Q BY 4557Q LT 4457Q CDR 4407Q SETQ 4347Q NLISTP 4331Q VAR 4312Q SETQ 4266Q NLISTP 4213Q CLISPFOR0 4167Q SETQQ 4157Q SETQ 4124Q old 4114Q OLD 4074Q old 4064Q OLD 4017Q AS 4000Q TO 3757Q ON 3736Q IN 3715Q BY 3674Q FROM 3627Q $$VAL 3624Q RETURN 3613Q $$VAL 3604Q $$VAL 3562Q PROGN 3522Q PROGN 3471Q = 3457Q CLISPFOR0 3450Q I.S.OPR 3335Q CLISPFOR0 3331Q MAP 3324Q do 3306Q MAPCON 3301Q join 3274Q MAPLIST 3266Q collect 3252Q MAPC 3244Q do 3235Q DO 3221Q MAPCONC 3213Q join 3203Q JOIN 3174Q MAPCAR 3167Q collect 3162Q SUBSET 3154Q subset 3127Q & 3122Q SETQ 3101Q do 3071Q join 3061Q collect 2762Q BIND 2742Q I.S.OPR 2737Q fcollect 2727Q collect 2625Q I.S.OPR 2612Q DWIMESSGAG 2546Q DWIMESSGAG 2511Q MODIFIER 2505Q I.S.OPR 2475Q FORWORD 2465Q CLISPWORD 2350Q ON 2342Q IN 2317Q FOR 2274Q AS 2266Q BIND 2174Q DWIMESSGAG 2142Q DWIMESSGAG 2115Q MODIFIER 2073Q FIRST 2066Q first 2044Q EACHTIME 2037Q eachtime 2017Q FINALLY 2010Q finally 1765Q WHEN 1760Q when 1740Q UNLESS 1731Q unless 1706Q REPEATUNTIL 1701Q repeatuntil 1661Q REPEATWHILE 1652Q repeatwhile 1627Q UNTIL 1622Q until 1602Q WHILE 1573Q while 1550Q DECLARE 1543Q declare 1530Q BIND 1522Q bind 1502Q AS 1371Q as 1342Q ... 1277Q TWICE 1246Q CLISPFOR0 1234Q BY 1227Q by 1212Q TO 1203Q BOTH 1161Q to 1146Q ON 1137Q BOTH 1110Q on 1072Q IN 1063Q BOTH 1035Q in 1021Q FROM 1012Q BOTH 767Q from 750Q FOR 743Q for 733Q by 725Q to 717Q on 710Q in 701Q from 672Q for 661Q BOTH 641Q FOR 631Q I.S.TYPE 620Q I.S.TYPE 601Q suchthat 572Q SUCHTHAT 562Q thereis 516Q do 477Q I.S.TYPE 417Q \DURATIONTRAN 403Q I.S.OPR 366Q ORIGINAL 356Q original 345Q MISSING 320Q CLISPWORD 234Q ORIGINAL 223Q original 171Q MODIFIER 165Q I.S.OPR 115Q LCASEFLG 105Q FORWORD 51Q NOFIXVARSLST0 46Q NOFIXVARSLST 42Q NOFIXFNSLST0 37Q NOFIXFNSLST 7 CLISPDUMMYFORVARS) ( 5450Q "too many concurrent loops " 5017Q (BY -1) 4335Q (CAR (OR (LISTP VAR) (GO $$OUT))) 3511Q (BODY I.V.) 2637Q "Possible non-terminating iterative statement: " 2553Q "No DO, COLLECT, or JOIN in:" 2201Q "No operator in:" 13Q (I.V. BODY $$VAL) 4 ($$LST1 $$LST2 $$LST3 $$LST4 $$LST5 $$LST6)) \FORBLOCK/CLISPFOR2 D1 (L (1 FLG 0 LST)) t@ b°hdHdgðŸ¿HA³Md °Hdgð²¿HAšd °2H°*dgð¥dgðœ¿Hd °dgð¥dgð˜¿Hdµ™@(124Q NEGATE 70Q NEGATE 42Q NEGATE 3 DREVERSE) (140Q REPEATUNTIL 132Q UNTIL 107Q REPEATWHILE 101Q WHILE 50Q UNLESS 22Q WHEN) () \FORBLOCK/CLISPFORINITVAR D1 (L (0 VAR) I 1 EXP F 0 PROGVARS F 1 INITVARS) AhPcQg@Phh c(33Q \NCONC2 2 GETDUMMYVAR) (16Q SETQ) () \FORBLOCK/CLISPDSUBST D1 (L (0 X) F 2 BODY F 3 I.V.) U @°%dYdgð•¿IR°gð“ISˆI•I ¿µÜ@`X´!@ggð@h`¿@ ƒH h(121Q \FORBLOCK/CLISPDSUBST 114Q DWIMIFY1 107Q PUTHASH 46Q \FORBLOCK/CLISPDSUBST) (104Q CLISPARRAY 75Q CHANGETRAN 70Q CLISPWORD 57Q CLISPARRAY 27Q I.V. 14Q BODY) () \FORBLOCK/\CLISPKEYWORDPROCESS D1 (L (1 WORDLST 0 FORM)) E@d A›A@ @@¡@AHšH@Y§HX°õI²AI @I I @(100Q \NCONC2 72Q LDIFF 65Q SET 17Q SET) NIL () \FORBLOCK/CLISPFORF/L D1 (L (2 DECLARELST 1 VAR) I 0 EXP) ygB³1@²,A@ô²%@³!@ ³@g®@` ¤@°AgAB²7g@B °d[K X–IµHZY¿µçJ@ˆ YH°ï@h(153Q LAST 124Q LDIFF 105Q DREVERSE 56Q GETLIS 33Q \DEFINEDP) (76Q DECLARE 67Q LAMBDA 53Q MACROPROPS 43Q CLISPWORD 2 FUNCTION) () \FORBLOCK/CLISPFOR4 D1 (L (0 X) F 1 MAKEPROGFLG F 2 TERMINATEFLG) V@dgð³dgð³dgð«dgð¥dgð—¿icdcgð³%@°dHdgð–¿ic¿h†´H ¤µâh(114Q \FORBLOCK/CLISPFOR4) (74Q $$VAL 54Q PROG 37Q RETEVAL 31Q RETFROM 23Q ERROR! 14Q RETURN 5 GO) () \FORBLOCK/CLISPFORVARS1 D1 (L (1 FLG 0 L) F 1 LEFT.ARROW.BITTABLE) /@X¡hQH ²Hdlðœ@hAi @ … ¿H°Ø(50Q \FORBLOCK/CLISPFORVARS1 43Q TAILP 37Q DWIMIFY2 15Q STRPOSL) NIL () \FORBLOCK/CLISPFOR3 D1 (L (0 LST)) 30@ °dXµHhY–JµI[Z¿µæK ZI°ó(54Q LAST 11Q DREVERSE) NIL () \FORBLOCK/CLISPFOR1 D1 (L (1 FLG 0 PTRS) P 6 BODY F 13Q UNDOLST F 14Q I.S.TYPE F 15Q I.V. F 16Q MAKEPROGFLG F 17Q I.S.OPRSLST F 20Q FIRSTI.V. F 21Q DUMMYVARS F 22Q I.S.TYPE1) @@’ @dgð³dgðdgð§dgð¡d¢¿°sdgð¥dgð•¿A³°agðš@c¿°QHgð©Hdgðš¿W³#ic¿°g\gð²"Lggð²HZdIð²¿HIg¿Hµí@Ið¢±ËJd³{¿@gð³a@gð³X@gð³O@gð³FJg [² W£Bc¿A`bh»W1gO _d”_°_¿jh_¿Oµ8gOh_¿gW Wc]¾og Mc ¿NdWð²¿Mc°gO°ÌW šWkNM¿£¿Ogð›Ogg‚¿Oµ OO ¿hZµI¿K²Sh»W$“hc"¿gW °)d_Ab²OZ˜@JJ@ƒ@J@¿i»µÚA` b¿K”A¸±ÿL´,HOLL ZJ´Alð´A` AB(473Q \DWIMIFYBLOCK/CLISPATOM0 466Q DUNPACK 441Q \DWIMIFYBLOCK/FIX89 436Q LENGTH 404Q DUNPACK 365Q /RPLNODE 316Q MEMB 257Q UNDONLSETQ1 241Q UNDOSAVE 235Q LISTPUT1 212Q ERROR! 202Q NLEFT 172Q TAILP 163Q LISTPUT1 127Q \DWIMIFYBLOCK/CLISPATOM0A0001 34Q MEMB) (463Q WTFIXCHCONLST1 401Q WTFIXCHCONLST 311Q RESPELLS 271Q NOFIXVARSLST0 232Q NOSAVE 227Q SIDE 220Q NOSAVE 156Q SIDE 124Q INTERNAL 103Q #UNDOSAVES 70Q SIDE 27Q SIDE 12Q NOFIXVARSLST0) ( 121Q (\DWIMIFYBLOCK/CLISPATOM0A0001)) \DWIMIFYBLOCK/CLISPATOM1A0003 D1 (L (1 Y 0 X)) @Aµo‚ (16Q CONCAT 13Q RETDWIM2) NIL ( 7 "()") \DWIMIFYBLOCK/CLISPATOM1A0004 D1 (L (1 Y 0 X)) @A (10Q MKSTRING 4 RETDWIM2) NIL () \DWIMIFYBLOCK/CLISPATOM1 D1 (P 20Q BRACKET P 16Q TENTATIVE P 15Q NOSAVEFLG P 13Q TYP P 10Q BACKUPFLG P 7 BROADSCOPE P 6 ENDTAIL P 4 CLTYP P 2 BRACKETCNT I 0 TAIL F 22Q CURRTAIL F 23Q PARENT F 24Q 89FLG F 25Q DWIMIFYFLG F 26Q CLISPCONTEXT F 27Q CHARLST F 30Q TYPE-IN? F 31Q SUBPARENT F 32Q FORMSFLG F 33Q CLISPCHANGES F 34Q NEWTAIL F 35Q FAULTX F 36Q NEXTAIL F 37Q ONEFLG F 40Q CLISPCHANGE) 5W.djóW$g]´±'h_¿Hµ‚±ºO³|W*²W,žW$g–W, ³@W(´=W$µ:W0´5`ið³-W(`ð´$W. _`ð´`W.O _OihW(jW( _Ù´îW:W(O´á±KI´i_¿I _ ¿OOh _¿h_c(¿@’±tOb¿W&’±–@c&±`¢±-Hg]¢±Hdgð²#¿HdIðš¿O ’±•Hg¿gg]±ƒgð”HI±ëO ²HdO ð–¿JkØZ°eO ð²^JkÙZ°WMgð²,Hg_ ¿HO ð•JkØZ°9gO hW&h °&W(³#`ið³`“W0²Hd`ð¦d`ð“c(¿HIð’±ÚIH _¿Hgð¬Hgð¥O ¿O¢±£Hgð©Hgð¢±’IkHgð¢±ƒHgð² Hg¿°O ²HžHgO ð³ŽO›O¨Jjð¯JµHX±ýþ ²÷HdW.ð²ñ¿N’±W$¾±þO©OW$ð³W$OOW$[c$ †W$[c$¿W$¢±ËO²W*²W>²O¯Jjð’±ðJµ‚±àO"šW$g’±O©Kgð’±úW$dlð³*3¢±éjW$ó¢±àO ’±ÚO¢±õKW$ ¢±ÊW$ ¢±ÀW$g]µHW$` c.X¹O d¢±ýH_´‚±ýO H’±ýW$HO O W$¿±ÿ?gð“O ²±W$dgð¢±¿O ’±zW$gW$¿gg]±b ¢±ÿW$lð²W$g’±ÿW$k g’±þüN’± W$¾±šO²@lW$_µ8OœO©Jjð³"JµW$[c$¢±ni_¿h_¿±þ› ²çN’±YW$¾±Sgð³ÅOgð³¼W$²W$²±W$g ³¦O"™Og³™O_gggW$ ²‚g_¿OdW$W$¿O[c$¿i_¿h_¿±þdgð¦dgð²¿Ogð”M¼±W$°Q¿O µ"W$g_²DW$Oð²)O_ ¿JkØZ°/dW$ð–¿JkØZ°!W$ð²JkÙZ°gOhW&h ¿N³AO³W$_¿M¼Og_¿Og_°O¢± M¼W$g_¿W$ggð_¿W$ggð_"¿O ´ W$O ð_¿W$[c$’±ý;@Oð²ZOg³RW&@ð§W2d@ð²6¿W*²#W,²@g@ggð•W, ¿k@W&h ¿W2µW&k@b¿i_¿¿N_g\3¦L3²?W*²#W,²NggðŸW,gð³"W,gð³OL@_¿W*¥OW&ð”Ob¿W4³!@dW&ð²¿i°MLW$O¢±ÿW$^±ÿ@_¿W*•Oc<¿‡O”Oc8¿W4«W&–@dW&ð“¿@‚@_¿OµOgð³ùO@dO`hc6¿W*“hc@¿¿°ÕOOh _¿h_¿OHh _¿N³bO³!H_¿M¼Og_¿Oggð_¿°?O²M¼Hg_¿Hggð_¿°!MLHHIðhðµOHW.ð’W$„O ¾O ´ HO ð_¿H´,W$´(O —HO ð§Hgð´W$dH W$¿hXc(¿H¹Hgðhð´HX±øè(3432Q /RPLNODE 3423Q PACK 3340Q FLAST 3322Q \DWIMIFYBLOCK/STOPSCAN? 3173Q \NCONC2 3153Q \NCONC2 3137Q DWIMERRORRETURN 3103Q \DWIMIFYBLOCK/CLISPATOM1B 2775Q \DWIMIFYBLOCK/STOPSCAN? 2723Q \DWIMIFYBLOCK/CLISPATOM1A 2623Q \DWIMIFYBLOCK/CLISPATOM2 2611Q NLEFT 2575Q DWIMERRORRETURN 2561Q \DWIMIFYBLOCK/CLISPATOMIS? 2303Q DWIMERRORRETURN 2076Q /RPLNODE 2050Q CLISPFUNCTION? 2004Q CLISPFUNCTION? 1723Q \FZEROP 1645Q NLEFT 1606Q NTHCHAR 1547Q \FZEROP 1530Q /RPLNODE 1511Q \DWIMIFYBLOCK/CLUNARYMINUS? 1450Q \DWIMIFYBLOCK/CLRPLNODE 1441Q PACK 1434Q PACK 1431Q LDIFF 1357Q DUNPACK 1330Q CLISPNOTVARP 1316Q \DWIMIFYBLOCK/CLBINARYMINUS? 1131Q /RPLNODE 1126Q \NCONC2 1040Q \FZEROP 1003Q MEMB 731Q NLEFT 671Q \DWIMIFYBLOCK/CL89CHECK 643Q PACK 640Q LDIFF 555Q DWIMERRORRETURN 376Q \DWIMIFYBLOCK/CLUNARYMINUS? 266Q \NCONC2 254Q \DWIMIFYBLOCK/CL89CHECK 247Q PACK 227Q \DWIMIFYBLOCK/FIX89 212Q \DWIMIFYBLOCK/FIX89A 204Q LENGTH 167Q \DWIMIFYBLOCK/FIX89TYPEIN 156Q LDIFF 133Q FLAST 67Q \DWIMIFYBLOCK/CLISPATOMIS?) (3450Q ' 3407Q ~ 3274Q NOT 3270Q LISPFN 3257Q BROADSCOPE 3236Q NOT 3232Q LISPFN 3221Q BROADSCOPE 3113Q NOFIXVARSLST0 3073Q CERTAINLY 2711Q FOR/BIND 2701Q FORWORD 2672Q FORWORD 2664Q CLISPWORD 2633Q CLISPTYPE 2552Q ISWORD 2544Q CLISPCLASS 2534Q CLISPISPROP 2475Q UNARYOP 2422Q ISWORD 2414Q CLISPCLASS 2402Q NOT 2376Q LISPFN 2364Q BROADSCOPE 2341Q LISPFN 2330Q BROADSCOPE 2265Q BRACKET 2174Q CLISPBRACKET 2145Q : 2134Q => 2126Q -> 2055Q CERTAINLY 2041Q \DWIMIFYBLOCK/CLISPATOM1A0004 2036Q \DWIMIFYBLOCK/CLISPATOM1A0003 2033Q NOTVAR 2020Q CLISPISPROP 2001Q OKVAR 1755Q : 1744Q ' 1611Q CLISPTYPE 1572Q CLISPTYPE 1537Q CLISPTYPE 1534Q +- 1522Q +- 1476Q - 1461Q BRACKET 1354Q WTFIXCHCONLST1 1342Q CLISPTYPE 1235Q ' 1220Q CLISPISPROP 776Q SEPARATOR 756Q - 747Q +- 735Q E 716Q +- 707Q + 662Q ¬ 653Q _ 617Q RPARKEY 610Q LPARKEY 575Q NOSPELLFLG 566Q NOSPELLFLG 537Q BRACKET 512Q CLISPBRACKET 502Q BRACKET 426Q ' 416Q CLISPTYPE 413Q +- 406Q +- 357Q - 343Q CLISPTYPE 331Q CLISPCHARS 147Q LPARKEY 141Q RPARKEY 123Q LPARKEY 110Q NOSPELLFLG 60Q CLISPISPROP 14Q CLISPTYPE) () \DWIMIFYBLOCK/CLISPATOM1A D1 (P 5 BRACKET P 4 BRACKETCNT P 2 BROADSCOPE P 0 ENDTAIL I 3 NOSAVEFLG I 2 TAIL I 1 CLTYP I 0 TYP F 7 CLISPCONTEXT F 10Q TENTATIVE F 11Q PARENT F 12Q DWIMIFYFLG F 13Q ONEFLG) Gp@ggð¾@g]‘k€j¼@Bð‘BB¸@dgð›¿Hg[µ@gºh¹HdgðŸ¿H¸i¹‰b¿H¸°â¸H¢±¡N™Hdg³Ù¿Hg[²vHggð¾M²HdMð–¿LkØ\°:Mð²4LkÙ\°-Kdgð²'¿Hg½HMð”LkØ\gMhWh ¿KAHI³+Kgð´‚±ÿcHMð±ÿZIžLjð¨L–L ‘J“i±ÿE¿Hbgb²4W¢±þöW¢±þðW¢±þêHggð¢±þÛWgð©Wgð¢±þÊW”gcB(374Q \DWIMIFYBLOCK/CLISPATOM2 362Q \FZEROP 316Q \DWIMIFYBLOCK/STOPSCAN? 305Q DWIMERRORRETURN) (501Q PROBABLY 466Q FOR/BIND 457Q FORWORD 445Q FORWORD 440Q CLISPWORD 404Q CLISPTYPE 324Q BRACKET 270Q BRACKET 250Q CLISPBRACKET 237Q BRACKET 172Q ISWORD 165Q CLISPCLASS 154Q CLISPTYPE 143Q CLISPISPROP 102Q ' 70Q BROADSCOPE 60Q CLISPTYPE 47Q ~ 21Q CLISPBRACKET 13Q ISWORD 6 CLISPCLASS) () \DWIMIFYBLOCK/CLISPATOM1B D1 (F 3 UNDOSIDE F 4 UNDOSIDE0) NSTHXdIð‘J²HHHJº°âHdgð²Ù¿gHH``hJº°»NIL (102Q CLISPARRAY 76Q CLISPARRAY 63Q /PUTHASH 54Q /PUTHASH) () \DWIMIFYBLOCK/CLISPATOM2 D1 (P 10Q NEGFLG P 5 VAR2 P 4 VAR1 P 2 LISPFN P 1 UNARYFLG P 0 PARENT F 20Q TAIL F 21Q ENDTAIL F 22Q TYP F 23Q DWIMIFYFLG F 24Q CLISPCONTEXT F 25Q CLISPCHANGE F 26Q CLTYP F 27Q BRACKET F 30Q FORMSFLG F 31Q TENTATIVE F 32Q BACKUPFLG F 33Q BRACKETCNT F 34Q TYPE-IN? F 35Q PARENT F 36Q BROADSCOPE F 37Q SUBPARENT) %W:W$gW$gW$g”W$W ð§I•W c ¿W"g_²W"Oð—W"_c"¿W6jð³&W,gð²gjW6ó’W.‚W.hHh ±W ¦k ±úW"¢±õW0’±ãW"g²CW Hð¢±ÞW"g¢±ÓW"gð›W"g’±¿I˜W ’±´lW"Hh ±¤W0’±“HW ð¢±‹W&²W(ŸW g–W( ³~W"²+W&²#W(gð²W"` Ÿg oi°TW"µ I²-W °,` ²óW&²>gW(´g oi°"W ³lW"Hh ŠI’W ‚W ¿W,gð¢±;I’W ‚W O dhihdW&´W(gð´W( ¾gW. _³dgW. _¿0N°'d_¿O˜OOðhð´Oh_šOµ"O__¿µÚO¾JµgW. I›NŽ _O°ÞW N°#I²Ogð•N °NkO‰W NlO¾W"³W0³H”HW ð›W NN¿i‹W NW"¿g¾W&¢±ÅNc*¿±¾W _gð³Og¢±™Og’±ic4¿HkW c dW ¿h¹W c$gºOhð_¿W$dgð²1¿W dW$ð§c ¿i¹W Hð²™W&²AW(²µH_ð³OdW W ¿ic4¿Oc ¿W&’W*¨W HW4¿W ¼W$dgð²G¿J’±4M ¾hL _¿W&œW*’±POc*¿°M_šOl ¢±8MM ¿W2¢±+N±!gð¢±ÔLµW$±‰dgð•¿g°ndgð•¿g°bdgð¥dgð”¿L°Qdgð¥dgð¿hLMi ±Ø¿Lg_®L ¿Lg_²hOL LM ±©g _gºL¼OLhJZgð²MgðšM¦gºM½W8¢±‘Lgð¢±ˆgi ¿`\id¿°sKgð²hMdK ±5W$LMJºI²5M’M°*W8²$Jgð²Mdgð²¿gi ¿`idM¼h½°Md•¢M€h_¿Jdgð²7¿Mµ&JLM _¿Hd¢±˜™Hl ¢±ŒW d ±¹³uM³qgZ°lgð²'LµOdkðŸ¿gZ°Ugð²î°Kmÿð²¬gZ°AJdgð²Ÿ¿LµOkð²“gZ°(gð²ïM³ëM3•M ‡gMhh½gºh¢±ÿdh½±ÿ_H¾J œW&¢±ÙOc*±ÑW&›W*’I²$Oc*¿ŒN_—Ol ›Jgð¥NH ¿I³lL²TJLð²NJgð³1Jgð³*Jgð³#Jgð³Jgð³Jgð¬Jgð¦Jgð²L`ð®NLLM ¿M¾W&¨Ndlð—¿NH ¿N² NZgc,²N˜Jdg³¿l ¿ŽN²NZgc,™JW,NW"¿OžHgHHh¿Hgð²:H_²2HO _ô³'HW ð–W OW ŠO›W OO¿W2”gc2W (3427Q \DWIMIFYBLOCK/CLRPLNODE 3366Q NEGATE 3337Q \DWIMIFYBLOCK/CLRPLNODE 3315Q \DWIMIFYBLOCK/CLISPATOM1A 3263Q DWIMERRORRETURN 3223Q \DWIMIFYBLOCK/CLISPATOM2A 3177Q \DWIMIFYBLOCK/CLRPLNODE 3174Q \APPEND2 3046Q \DWIMIFYBLOCK/CLISPATOM2A 3032Q \TYPEMASK.UFN 2761Q CLISPNOEVAL 2720Q MINUS 2547Q \DWIMIFYBLOCK/CLISPATOM2A 2535Q \TYPEMASK.UFN 2515Q \DWIMIFYBLOCK/CLISPATOM2D 2446Q PRINT 2435Q PRIN1 2367Q CLISPLOOKUP 2353Q \DWIMIFYBLOCK/CLISPATOM2D 2350Q \DWIMIFYBLOCK/CLISPATOMIS 2322Q PRINT 2310Q PRIN1 2231Q CLISPLOOKUP 2206Q DWIMERRORRETURN 2175Q \DWIMIFYBLOCK/CLISPATOM2D 2171Q \APPEND2 2163Q CLISPLOOKUP 2137Q DWIMIFY1? 2116Q \DWIMIFYBLOCK/CLISPATOM2D 2113Q CLISPRECORD 1761Q \DWIMIFYBLOCK/CLISPATOM2A 1747Q \TYPEMASK.UFN 1707Q \DWIMIFYBLOCK/CLISPATOM2D 1701Q \DWIMIFYBLOCK/CLISPCAR/CDR 1651Q \DWIMIFYBLOCK/CLISPBROADSCOPE1 1621Q \DWIMIFYBLOCK/CLRPLNODE 1613Q LDIFF 1565Q \DWIMIFYBLOCK/CLISPBROADSCOPE 1536Q DWIMERRORRETURN 1531Q \DWIMIFYBLOCK/CLISPATOMIS? 1454Q LDIFF 1435Q DWIMERRORRETURN 1420Q \DWIMIFYBLOCK/CLRPLNODE 1346Q \DWIMIFYBLOCK/CLISPATOMIS? 1233Q \DWIMIFYBLOCK/CLRPLNODE 1220Q NLEFT 1123Q \DWIMIFYBLOCK/CLRPLNODE 1110Q \DWIMIFYBLOCK/CLRPLNODE 1034Q \DWIMIFYBLOCK/CLISPANGLEBRACKETS 777Q LAST 766Q MEMB 664Q MEMB 646Q MEMB 635Q DWIMIFY2? 606Q LDIFF 555Q \DWIMIFYBLOCK/CLISPATOM2C 541Q DWIMERRORRETURN 523Q \DWIMIFYBLOCK/CLISPATOM2C 513Q RETEVAL 503Q \DWIMIFYBLOCK/RETDWIM0 500Q \DWIMIFYBLOCK/RETDWIM0 454Q \DWIMIFYBLOCK/CLISPRESPELL 431Q RETEVAL 421Q \DWIMIFYBLOCK/RETDWIM0 412Q \DWIMIFYBLOCK/CLISPRESPELL 360Q \DWIMIFYBLOCK/CLISPATOMIS? 311Q DWIMERRORRETURN 271Q \DWIMIFYBLOCK/CLISPATOM2C 163Q DWIMERRORRETURN 150Q DWIMERRORRETURN) (3436Q PROBABLY 3345Q NOT 3325Q NOT 3300Q CLISPTYPE 3252Q UNARYOP 3235Q CLISPTYPE 3156Q CLISPLASTSUB 3147Q TIMES 3141Q PLUS 3133Q FTIMES 3124Q FPLUS 3115Q ITIMES 3106Q IPLUS 3077Q OR 3070Q AND 3037Q SETQ 2737Q IPLUS 2724Q IMINUS 2677Q IPLUS 2670Q SUB1 2647Q IDIFFERENCE 2637Q SUB1 2622Q IPLUS 2613Q ADD1 2572Q IPLUS 2564Q NULL 2477Q EQ 2441Q LASTWORD 2431Q = 2422Q 2411Q QUOTE 2332Q ISWORD 2314Q LASTWORD 2304Q = 2274Q 2256Q SETQQ 2245Q ' 2235Q SETQ 2213Q LISPFN 2203Q _ 2145Q SETFN 2127Q SETFN 2101Q REPLACE 2073Q replace 2060Q NCONC1 2052Q NCONC 2044Q RPLACD 2036Q CDR 2030Q RPLACA 2022Q CAR 1777Q _ 1664Q : 1560Q IS 1553Q ISWORD 1522Q OR 1514Q AND 1507Q LISPFN 1477Q ISWORD 1472Q CLISPCLASS 1402Q NOT 1370Q AND 1362Q nor 1353Q NOR 1336Q CLISPISPROP 1266Q ~ 1247Q LISPFN 1200Q UNARYOP 1166Q CLISPTYPE 1156Q ~ 1127Q PARTIAL 1026Q CLISPANGLEBRACKETS 761Q LISPFN 657Q SEPARATOR 641Q DWIMIFY 624Q IFWORD 563Q BRACKET 475Q WTFIX 465Q CLISPATOM1 451Q CLISPINFIXSPLST 416Q CLISPIF0 407Q CLISPIFWORDSPLST 377Q IFWORD 351Q CLISPISPROP 255Q CLISPTYPE 244Q ~ 231Q UNARYOP 210Q CLISPTYPE 122Q BRACKET 114Q BRACKET 53Q CLISPBRACKET 22Q CLISPCLASS 14Q LISPFN 6 UNARYOP) ( 507Q (PROGN (SETQ CLISPRESPELL T) NIL) 425Q (PROGN (SETQ CLISPRESPELL T) NIL)) \DWIMIFYBLOCK/CLISPATOM2A D1 (P 2 DWIMIFYCHANGE P 1 CLISPCONTEXT P 0 DWIMIFYING I 1 PARENT I 0 TAIL F 4 VAR1 F 5 DWIMIFYFLG F 6 TYP F 7 VARS F 10Q TENTATIVE F 11Q BROADSCOPE F 12Q DWIMIFYING F 13Q FAULTPOS F 14Q CLISPCONTEXT F 15Q TYPE-IN?) / @´‚±'Whð´‚±U´WU´W"U`¿`¿Vgð¨Vgð¢±¦Td’±žW§Td`–¿g± ³H¦TW «Tdg¥`T`¿g°gIgð³TTdAð²M¿`ið³D`“W²Pgð³7dlð´0dg³'dgggQ@ ´@d@ hcgch(104Q /RPLNODE 71Q CLISPFUNCTION?) (112Q CERTAINLY 62Q \DWIMIFYBLOCK/CLISPATOM2CA0008 57Q \DWIMIFYBLOCK/CLISPATOM2CA0007 54Q NOTVAR 45Q UNARYOP 25Q < 16Q : 7 ') () \DWIMIFYBLOCK/CLISPATOM2D D1 (L (1 Y 0 X) F 0 TAIL F 1 PARENT F 2 ENDTAIL F 3 FORMSFLG F 4 TYP) jR³?S³ 73Q > 55Q CLISPTYPE 52Q < 45Q <) () \DWIMIFYBLOCK/CLISPBROADSCOPE1 D1 (L (2 FLG 1 CONTEXT 0 X) F 1 DWIMIFYFLG F 2 CLISPCONTEXT) O@³)@hddhddAgð“g†Q“RµA X@Hd Agðž@@@hddA @B´A (114Q DWIMIFY1? 102Q DWIMIFY2? 45Q DWIMIFY2?) (62Q IS 31Q IS 24Q IS) () \DWIMIFYBLOCK/CLISPCAR/CDR D1 (L (0 LST) F 5 VAR1 F 6 VAR2 F 7 ENDTAIL) ÁWgðµ WgðAhc¿h¹@dgð–¿i¹@b³H²&I“g‚gUhc L@Zdgð²!¿@Z3µ I¢±g± º@b±3’±’I³èJ²LgUgJhc ¿@gð¨@gð²U@ ¿@[UK¿hb¿Ud ¿V’±ŽUc±‡UJH´@hð[µ!Jg[µ g °gUhc ¿V³^Uc°Xc ¿V³SUl c°HjJñ³fJlñ² l Jñ²JlÙºgUhc ¿V³äUc¿°ÞH²@®kJkÙUiIi…JUIc ¿@bµLgð¢±ÿi¼@b¿±þ¼g ¿H²*@³&I²#gUjJÙkØhc ¿V£Uc¿gUhc LJmÿðšgU Uh‰gUjJÙhc ¿V£Uc¿I³ŽgUh°‚(633Q CLISPLOOKUP 543Q DWIMERRORRETURN 477Q \DWIMIFYBLOCK/CLISPCAR/CDR1 470Q \DWIMIFYBLOCK/CLISPCAR/CDR1 463Q \DWIMIFYBLOCK/CLISPCAR/CDR1 367Q NLEFT 332Q DWIMERRORRETURN 311Q CLISPRECORD 261Q CLISPTRAN 256Q MAKEMATCH 244Q DWIMIFY2? 232Q \NCONC2 136Q MINUS) (671Q CAR 642Q NLEFT 627Q LAST 607Q CDR 561Q NLEFT 540Q : 516Q : 424Q CDDDDR 327Q FIELDNAME 320Q ACCESSFN 221Q => 211Q -> 172Q with 166Q match 130Q :: 104Q - 65Q NCONC1 61Q NCONC 36Q : 16Q ¬ 5 _) () \DWIMIFYBLOCK/CLISPCAR/CDR1 D1 (L (3 SETQFLG 2 TAILFLG 1 X 0 N) F 1 VAR2 F 2 DWIMIFYFLG F 3 VAR1) Ú@jð³7@µ-R©`•@A ¿C³lA²h@dkð²E¿Adgð²¿B›g°I ²ÒAg°=dgðœ¿B”g°/g°*gð´$B”g°g°lð´Agð´B“g‚gX”AH°M@dlñ²+¿gS ¸B™HA@kØh°0HA@h¸Q£Hc¿gH°oX¦g ŒB“H‚HAhXQ¢dcH(302Q SHOULDNT 224Q CLISPLOOKUP 72Q \FZEROP 27Q \DWIMIFYBLOCK/CLISPCAR/CDR2) (277Q CLISPCAR/CDR 262Q CAR 220Q NTH 176Q CADAR 172Q CDDAR 162Q CAR 146Q CAADR 141Q CDADR 131Q CADR 124Q CAAAR 117Q CDAAR 107Q CAAR 101Q CAAR 65Q CDAR 54Q CAR 21Q CHECKCARATOMFLG) ( 271Q ((1 CAR . CDR) (2 CADR . CDDR) (3 CADDR . CDDDR) (4 CADDDR . CDDDDR))) \DWIMIFYBLOCK/CLISPCAR/CDR2 D1 (L (1 X 0 N) F 1 FAULTPOS) 1QA @jð³#@µHdšµ g ¿H¸@kÙb°â ²æh(53Q \FZEROP 35Q DWIMERRORRETURN 4 STKEVAL) (32Q CARATOM) () \DWIMIFYBLOCK/CLISPIFA0010A0011 D1 (NAME ERRORSET F 0 FORM F 1 TEM) P ch(3 \DWIMIFYBLOCK/CLISPIF0) NIL () \DWIMIFYBLOCK/CLISPIFA0010 D1 (NAME ERRORSET F 0 #UNDOSAVES F 1 UNDOTEM) hc¿ohgc¿hh(16Q \DWIMIFYBLOCK/CLISPIFA0010A0011) (13Q CLISPIF0) ( 7 (\DWIMIFYBLOCK/CLISPIFA0010A0011)) \DWIMIFYBLOCK/CLISPIF D1 (P 14Q UNDOTEM P 13Q UNDOSIDE P 12Q UNDOSIDE0 P 11Q LISPXHIST P 6 TEM P 5 CLISPRESPELL P 2 VARS P 1 DWIMIFYING P 0 CLISPCONTEXT I 0 FORM F 15Q RESETVARSLST F 16Q DWIMIFYFLG F 17Q #UNDOSAVES F 20Q ATTEMPTFLG F 21Q VARS F 22Q CLISPCHANGE F 23Q DWIMIFYING F 24Q BREAKFLG F 25Q EXPR F 26Q LISPXHIST) W—ic “ic$¿gW´W&W"µWhð´W(µW* ``EW`¿`¿W,1gO _d”_°_¿jh_¿Oµ>gOh_¿gWWc__¿og Oc¿OdWð²¿Oc°gO°ÆW œWkOO¿£¿Ogð›Ogg‚¿Oµ OO ¿h‘NM¨¿h@g ²ôK¿L¿h½±ÿ!(401Q CLISPELL 370Q \DWIMIFYBLOCK/RETDWIM 364Q \DWIMIFYBLOCK/RETDWIM 351Q UNDONLSETQ1 333Q UNDOSAVE 327Q LISTPUT1 304Q ERROR! 273Q NLEFT 262Q TAILP 253Q LISTPUT1 214Q \DWIMIFYBLOCK/CLISPIFA0010 116Q MEMB 47Q \DWIMIFYBLOCK/GETVARS) (414Q NOFIXVARSLST0 407Q NOFIXFNSLST0 376Q IFWORD 324Q NOSAVE 321Q SIDE 312Q NOSAVE 246Q SIDE 211Q INTERNAL 165Q #UNDOSAVES 152Q SIDE 111Q SIDE 100Q NOFIXVARSLST0 75Q NOFIXVARSLST 71Q NOFIXFNSLST0 66Q NOFIXFNSLST 55Q NOFIXVARSLST0 52Q NOFIXFNSLST0 15Q IFWORD) ( 206Q (\DWIMIFYBLOCK/CLISPIFA0010)) \DWIMIFYBLOCK/CLISPIF0 D1 (L (0 FORM) P 10Q DWIMIFYCHANGE F 16Q LISPXHIST) 0 @¼`²kLhh°agð•gh…g °Ndgð¦dgð²¿HJML@h ¸h°#dgð¨dgð¢±Ý¿HJML@h ¸L¾iº`—LhIY¿L]¿L\µoHJML@h ¸`”I ¹@gH¿gW _¿@\_d¢±Êg ¿Od¢±Ód ’±É¿O`ð¢±†o±ƒdgð¨dgð¢±ÿ0¿LNð²shº`¢±ÿmNIð¦g ¿Iddgð¢±þð¿gh±þødgð¨dgð¢±ÿ<¿MdLð³.L º`¢±ÿ&Id¨¿g ¿IL±ÿoi ¿@\¿lL@h h»Oh¿Odhg¿OK ¿O[dhg¿L\µ‚±ÿ@ ¿`²U@Ii O”O³GgO X@@»@HHOOOO@ð²OOô—Og¿@K @OOOO_¿O_¿O_¿h_¿°‘(1026Q \DWIMIFYBLOCK/CLISPIF3 1011Q CLISPTRAN 721Q APPLY 716Q DREVERSE 660Q \DWIMIFYBLOCK/CLISPIF2 642Q DWIMIFY2 625Q \NCONC2 616Q DWIMIFY2 573Q DWIMERRORRETURN 554Q LISPXPRIN1 533Q SHOULDNT 507Q LDIFF 426Q SHOULDNT 316Q FNTYP 275Q DWIMIFY1 243Q MEMB 232Q /RPLNODE 221Q DREVERSE 210Q \NCONC2 203Q \DWIMIFYBLOCK/CLISPIF1 141Q \NCONC2 134Q \DWIMIFYBLOCK/CLISPIF1 100Q \NCONC2 73Q \DWIMIFYBLOCK/CLISPIF1 42Q SHOULDNT) (1002Q * 711Q NCONC 664Q CLISPIFTRANFLG 637Q IFWORD 613Q IFWORD 530Q THEN 513Q CLISPIFTRANFLG 467Q then 461Q THEN 450Q ELSEIF 437Q ELSE 423Q ELSE 404Q CLISPIFTRANFLG 363Q if 355Q IF 334Q COMMENTFLG 272Q IFWORD 236Q SIDE 226Q COND 214Q CLISPIFTRANFLG 151Q CLISPIFTRANFLG 116Q else 110Q ELSE 57Q elseif 51Q ELSEIF 37Q ELSE 31Q elseif 24Q else 7 CLISPIFTRANFLG) ( 550Q "parentheses error " 345Q "misplaced comment ") \DWIMIFYBLOCK/CLISPIF1 D1 (L (3 FORM 2 L 1 L0 0 PRED)) 8@µAdBð²¿lBCh d•¿@d AB Bð”AhAB h(63Q LDIFF 43Q LDIFF 24Q DWIMERRORRETURN) NIL () \DWIMIFYBLOCK/CLISPIF2 D1 (L (0 X)) Y0@gð´N@ YXd@ð²diðœd¨¿I@@°)ið´)@l YZ@ð´I³HJH¿IHJh(125Q /RPLNODE 113Q /RPLNODE 65Q NLEFT 16Q FLAST) (7 COND) () \DWIMIFYBLOCK/CLISPIF3 D1 (L (2 FIRSTCLAUSEFLG 1 ORIGWORDPAIR 0 CLAUSE)) _B²`”g°6Aµ2g°-@ið²`“g†Aµg@ `“g†Aµg@@´`“g†Aµg@ (131Q \APPEND2 56Q \APPEND2) (124Q THEN 114Q then 110Q LCASEFLG 77Q ELSEIF 67Q elseif 63Q LCASEFLG 51Q ELSE 41Q else 35Q LCASEFLG 22Q IF 11Q if 5 LCASEFLG) () CLISPLOOKUP D1 (L (3 $LISPFN 2 $VAR2 1 $VAR1 0 WORD) F 3 EXPR F 4 FAULTFN) 0@gYdgZd²ST Xœ@ABHCIJ °'Idgð•¿@ gð¥Igð‘hCµ @gµ@XJgð²,ddJð²%¿Ad¢…JðBd¢…Jð”JH(61Q GETTOPVAL 43Q CLISPLOOKUP0 26Q GETLOCALDEC) (120Q ARITH 106Q LISPFN 73Q RECORDFIELD 65Q RECORD 52Q VALUE 14Q CLISPCLASSDEF 6 CLISPCLASS) () \DWIMIFYBLOCK/CLISPMATCHUP D1 (L (2 $VARS 1 LST 0 PAT)) q A¡h@dBž¿H@Ah ¸°@Að³:@dggð•b¿°Ï`–@b¿°Â@AgYð¬I´ AIg´@b•Ab°ŸA³Hµi(31Q \NCONC2) (126Q CLISPISPROP 111Q CLISPISPROP 71Q CLISPISNOISEWORDS 55Q ISWORD 50Q CLISPCLASS) () \DWIMIFYBLOCK/CLISPRESPELL D1 (L (2 FLG 1 WORDS 0 TL) F 0 TYPE-IN?) X`iðhð´O`’P´H@´D@lð´<@ hð´3@d ²¿@o hð´@` hð´@ ´ @hAB(125Q MISSPELLED? 113Q CLISPNOTVARP 102Q GETLIS 66Q GETLIS 52Q GETPROPLIST 40Q GETD) (77Q MACROPROPS 13Q NOSPELLFLG 2 NOSPELLFLG) ( 63Q (CLISPWORD EXPR)) \DWIMIFYBLOCK/CLRPLNODE D1 (L (2 D 1 A 0 X) F 1 UNDOSIDE F 2 NOSAVEFLG F 3 UNDOSIDE0) ,QR³HSð—@AB@@dHð¦¿HX°é@A¿@B@(22Q /RPLNODE) NIL () \DWIMIFYBLOCK/CLUNARYMINUS? D1 (L (0 OPRFLAG) F 0 SUBPARENT F 1 CURRTAIL F 2 TYP F 3 TYPE-IN?) eR”@hðµ^QPðµYQPð´SP ´LP¦P ´ASµ>`´9PPPgð´P hPdgð ooi(142Q FIXSPELL1 124Q \NCONC2 121Q RETDWIM2 100Q RETDWIM2 41Q CLISPNOTVARP 26Q FNTYP) (111Q - 66Q - 51Q CLISPHELPFLG) ( 136Q " " 132Q "the %"-%" is unary") DWIMIFYA0015A0016 D1 (NAME ERRORSET F 0 VAL) i¿Phi¿hh(12Q PRINTDEF) (3 PRETTYTRANFLG) () DWIMIFYA0015 D1 (NAME ERRORSET L (0 NIL) F 2 RESETVARSLST F 3 MACROY) Gg`RcR¹og H¿IdRð•¿HcR ™RkIH¿µci(77Q ERROR! 66Q NLEFT 57Q TAILP 31Q DWIMIFYA0015A0016) (37Q PRETTYTRANFLG 26Q INTERNAL 5 PRETTYTRANFLG 2 PRETTYTRANFLG) ( 23Q (DWIMIFYA0015A0016)) DWIMIFY D1 (L (2 L 1 QUIETFLG 0 X) P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 VAL F 5 RESETVARSLST) o`©oi h``@B X@²GB³DA³Ai 1gIhhUc ºog £g¼Jc ¿gJ ¿L“¿i H(153Q TERPRI 145Q ERROR! 137Q APPLY 113Q DWIMIFYA0015 60Q OUTPUT 41Q DWIMIFY0 16Q LISPXPRIN1) (130Q OUTPUT 117Q ERROR 110Q INTERNAL 66Q OUTPUT 34Q NOFIXVARSLST0 31Q NOFIXVARSLST 26Q NOFIXFNSLST0 23Q NOFIXFNSLST 5 DWIMFLG) ( 105Q (DWIMIFYA0015) 12Q "DWIM is turned off! ") DWIMIFY0 D1 (L (1 Y 0 X) P 12Q TYPE-IN? P 11Q ONEFLG P 10Q CLISPCONTEXT P 6 DWIMIFYCHANGE P 5 DWIMIFY0CHANGE P 4 FAULTFN P 2 SIDES P 1 DWIMIFYFLG P 0 DWIMIFYING I 3 EXPR I 2 VARS F 13Q LISPXHIST) idgW ƒ Ad¢±‘¿g-\µ*A bA µ@bghdW@A š@A ¼°ÖA_`µOgð²A_`µOgð²%A_`µOgð²@dAð¯dA™¿@@ @@ ²A\C£@b¿@ _M”LJ O@dœ¿g\@bd _d[\Ob M²$KJ ¿Kd ²¿`gð«Kd ¦¿Ki K(405Q DWIMUNSAVEDEF 376Q EXPRP 356Q \DEFINEDP 350Q DWIMARKASCHANGED 340Q DWIMIFY1 322Q EXPRCHECK 316Q DWIMIFY1 273Q DWIMARKASCHANGED 262Q DWIMIFY1 243Q DWIMIFY1 235Q DWIMIFY2 106Q DWIMIFY2 77Q TAILP 71Q LISPXPUT 51Q LAST 43Q VARSBOUNDINEDITCHAIN 11Q MEMB) (367Q PROP 364Q DFNFLG 306Q TYPE-IN 205Q SELECTQ 174Q DWIMEQUIVLST 161Q SELECTQ 150Q DWIMEQUIVLST 134Q COND 123Q DWIMEQUIVLST 62Q RESPELLS 32Q ATM 4 SIDE) () DWIMIFY0? D1 (P 5 VARS P 4 EXPR P 3 FAULTPOS P 2 DWIMIFYFLG P 1 DWIMIFYING P 0 DWIMIFY0CHANGE I 6 CLISPCONTEXT I 5 FAULTFN I 4 ONEFLG I 3 FORMSFLG I 2 SUBPARENT I 1 PARENT I 0 TAIL F 6 DWIMIFYFLG) VVµ`¿`¿dgð¦dgð²¿`¿`¿idgð²Ó`¿`¿@(123Q \DWIMIFYBLOCK/DWMFY0 70Q \DWIMIFYBLOCK/DWMFY0 23Q \DWIMIFYBLOCK/DWMFY0) (114Q NOFIXVARSLST0 111Q NOFIXVARSLST 105Q NOFIXFNSLST0 102Q NOFIXFNSLST 74Q EVAL 57Q NOFIXVARSLST0 54Q NOFIXVARSLST 50Q NOFIXFNSLST0 45Q NOFIXFNSLST 36Q VARSBOUND 30Q CLISPIFY 17Q NOFIXVARSLST0 14Q NOFIXVARSLST 10Q NOFIXFNSLST0 5 NOFIXFNSLST) () DWIMIFY1 D1 (L (0 FORM) I 2 FORMSFLG I 1 CLISPCONTEXT) @ (3 \DWIMIFYBLOCK/DWMFY1) NIL () DWIMIFY1? D1 (L (0 FORM) P 2 DWIMIFYCHANGE P 1 DWIMIFYFLG P 0 DWIMIFYING I 2 FORMSFLG I 1 CLISPCONTEXT F 3 DWIMIFYFLG) S´@ i``@ (33Q \DWIMIFYBLOCK/DWMFY1 6 \DWIMIFYBLOCK/DWMFY1) (27Q NOFIXVARSLST0 24Q NOFIXVARSLST 21Q NOFIXFNSLST0 16Q NOFIXFNSLST) () DWIMIFY1A D1 (L (2 FN) I 1 TAIL I 0 PARENT F 0 CLISPCONTEXT F 1 DWIMIFYFLG F 2 DWIMIFYING F 3 FAULTFN) š`’±“BQ´‚±‹R´‚±„Pgð³{Pgð—Ag³mBµS •ki ¿Pgð³oi ¿@A id¿Ad3²¿oi Ai oi ´$oi oAhllmÿ idh(225Q LISPXPRINT 220Q CONCAT 215Q SUBSTRING 206Q RETDWIM2 173Q LISPXPRIN1 160Q LISPXPRIN1 150Q LISPXPRIN1 143Q LISPXPRIN1 123Q LISPXPRINT 116Q RETDWIM2 110Q LISPXPRIN1 70Q LISPXSPACES 62Q FIXPRINTIN) (75Q IFWORD 50Q CLISPISFORM 41Q IS 32Q IFWORD 2 DWIMESSGAG) ( 177Q "... " 167Q "at " 154Q ") " 137Q "too many arguments (more than " 104Q "(possible) parentheses error in ") DWIMIFY2 D1 (I 5 ONLYSPELLFLG I 4 ONEFLG I 3 FORMSFLG I 2 SUBPARENT I 1 PARENT I 0 TAIL) (2 \DWIMIFYBLOCK/DWMFY2) NIL () DWIMIFY2? D1 (P 2 DWIMIFYCHANGE P 1 DWIMIFYFLG P 0 DWIMIFYING I 6 CLISPCONTEXT I 5 ONLYSPELLFLG I 4 ONEFLG I 3 FORMSFLG I 2 SUBPARENT I 1 PARENT I 0 TAIL F 3 DWIMIFYFLG) S´i``(31Q \DWIMIFYBLOCK/DWMFY2 5 \DWIMIFYBLOCK/DWMFY2) (26Q NOFIXVARSLST0 23Q NOFIXVARSLST 20Q NOFIXFNSLST0 15Q NOFIXFNSLST) () DWIMIFY2AA0017 D1 (L (1 Y 0 X)) A lmÿ(12Q SUBSTRING 3 RETDWIM2) NIL () DWIMIFY2AA0018 D1 (L (1 Y 0 X)) @d–@AA o (32Q CONCAT 23Q MKSTRING 20Q RETDWIM2) NIL ( 27Q ")") DWIMIFY2A D1 (L (1 $TYP 0 $TAIL)) @Agg@ (14Q CLISPFUNCTION?) (7 DWIMIFY2AA0018 4 DWIMIFY2AA0017) () DWIMIFYFNS D1 (L (0 FNS)) ¡j !``0@d’±dž¿g@hg°mg µc`ž@lF`h@ µ@g–@ µBg@g°5dºj YHÙnu0ñ²I¸Jid¿oi ¿J »LµKh]K&¼µÌM(215Q DWIMIFY0 210Q PRIN1 177Q PRIN2 156Q CLOCK 145Q STKEVAL 130Q FILEFNSLST 112Q MISSPELLED? 66Q EVALV 55Q STKEVAL 3 CLOCK) (142Q INTERNAL 135Q DWIMIFYFNS 121Q FILE 104Q FILELST 74Q DWIMFLG 63Q DWIMIFYFNS 52Q INTERNAL 44Q DWIMIFYFNS 22Q NOFIXVARSLST0 17Q NOFIXVARSLST 14Q NOFIXFNSLST0 11Q NOFIXFNSLST) ( 204Q ", ") \DWIMIFYBLOCK/DWMFY0 D1 (P 2 DWIMIFYCHANGE P 1 DWIMIFYFLG P 0 DWIMIFYING F 3 FORMSFLG F 4 TAIL F 5 PARENT F 6 DWIMIFYFLG F 7 DWIMIFYING F 10Q ONEFLG F 11Q CLISPCONTEXT F 12Q SUBPARENT) $V´WiSªTdUð–W ŠTUWSW J(40Q DWIMIFY2 24Q DWIMIFY1) NIL () \DWIMIFYBLOCK/DWMFY1 D1 (L (0 FORM) P 13Q VARS P 12Q NEXTAIL P 5 ATTEMPTFLG P 4 89CHANGE P 3 CLISPCHANGE F 17Q VARS F 20Q FORMSFLG) …@‘ @’±–HhZi ¿Jd’±lId²0¿H`µHZgð’±Jgð’±I ´`hð^°+lð²)Id ’±ð¿Id`’±ådg’±Ü` ’±Ñ Hddd¢±®Hd ³<¿Kµ9L¢±²h¼H`µHYdgð’±œdgð’±“¿H ¢±ÿ[`’±ÿTHgð¢±wI´[H@ ¿H`µHY¢±]N¦K¤I ¿W ’±…H`µHZgð’±oJgð’±fN’±aI ’±YH H»±ÿjKµ"M®Idlð˜`¿I³Idgð›¿±ógð³Ü@gð²,H°"d_dgð¥dgð¿O` ¿µÞ±»Igð¨Idgð²¿`¢±¥H¢±žHk ¿±•gð²=H@ihi ¿Hd«@hdi ¿HXd¨@i¿±bHid¿H°æIgð³Igð®Igð¨Idgð²*¿HdW³d`ª`¿H@i¿±gð²Hˆddhi¿µõ±ùIdgð²¿Hµ H¢H€h ¿±Ûgð›H@i¿±ÊIdgð‘@gð¨Idgð²'¿HµH´HhW H@i±`ð–H Ig_gð¬O²igO²a0H°Ad_d²$Oi¿Odlð¯¿@O@ ¿O_¿Oµ Oh_‚O&_¿µÀOW H@i‡I ¢±ý“@`²4I jð²,I Zdjð“¿H°kð‘HJdlð’¿H…lðšH”HJ @(1601Q DWIMIFY1A 1533Q NARGS 1523Q ARGTYPE 1504Q CLISPNOEVAL 1476Q DWIMIFY2 1463Q \NCONC2 1417Q DWIMIFY1A 1370Q DWIMIFY2 1307Q DWIMIFY1 1270Q DWIMIFY2 1255Q \APPEND2 1175Q DWIMIFY2 1154Q DWIMIFY1 1112Q DWIMIFY2 1066Q DWIMIFY2 763Q DWIMIFY2 745Q DWIMIFY2 730Q DWIMIFY2 706Q DWIMIFY2 662Q DWIMIFY1A 605Q UNION 457Q DWIMIFY1A 447Q CHECKTRAN 370Q DWIMIFY1 336Q DWIMIFY2 277Q CHECKTRAN 217Q CHECKTRAN 205Q \DWIMIFYBLOCK/WTFIX0 167Q GETLIS 131Q FGETD 104Q CHECKTRAN 21Q DWIMIFY2) (1515Q DWIMCHECK#ARGSFLG 1334Q BINDS 1322Q BINDS 1314Q INFO 1277Q CLISPTRANFLG 1224Q NLAMBDA 1215Q LAMBDA 1206Q ASSEMBLE 1163Q RESETVAR 1127Q FUNCTION 1075Q COND 1055Q NOFIXVARSLST0 1051Q NOFIXVARSLST0 1042Q NOFIXVARSLST0 1017Q SETARG 1010Q RPAQ 1002Q SETN 773Q SETQ 671Q SELECTQ 642Q DWIMCHECK#ARGSFLG 633Q GO 624Q QUOTE 610Q NOFIXVARSLST0 602Q NOFIXVARSLST0 570Q GLOBALVARS 562Q USEDFREE 543Q DECLARE 533Q PARTIAL 522Q * 510Q NOFIXFNSLST0 504Q NOFIXFNSLST0 431Q NLAMBDA 420Q LAMBDA 405Q DWIMEQUIVLST 344Q DWIMEQUIVLST 317Q PARTIAL 306Q CLISPRETRANFLG 265Q NLAMBDA 254Q LAMBDA 241Q DWIMEQUIVLST 164Q MACROPROPS 154Q EXPR 143Q NOFIXFNSLST0 111Q CLISPRETRANFLG 73Q NLAMBDA 62Q LAMBDA 47Q DWIMEQUIVLST) () \DWIMIFYBLOCK/DWMFY2 D1 (P 6 ATTEMPTFLG P 5 NEXTAIL P 4 89CHANGE P 3 CLISPCHANGE F 12Q TAIL F 13Q PARENT F 14Q FORMSFLG F 15Q CLISPCONTEXT F 16Q SUBPARENT F 17Q ONLYSPELLFLG F 20Q ONEFLG F 21Q TYPE-IN? F 22Q FAULTFN) , W´‚±ÚW‘ Wið§WdWð—¿Wc¿W`µWºh[\½Wµ±™Yd²;¿Wgð¤I ¿W¢±WWð¢± Jgð¨Jgð¢±þWdW ±ïlð¢±èJg_gð¬O²BgO²:`¢±ÈI`’±¿`I ¢±´W$ •ki ¿oi ¿Ii ±–Wgð³W².WWð³'WWð²Jgð³IdgŸdg©¿Wc±]I ¢±VW´.WWð²%Wg ²IWð¢±|Wgð¢±ri_¿°@Wgð²0WWð²(J¦O“O³Wg ²IWð’J˜gc¿±¡Igµ1Wž`ið³\`“W"²TIWWWW ²EL¢±Äh__¿±þ„Jgð³ÉW²ÃWWð“i_¿WW ¿W¢±ÿHlð’±¢±òWHð“i_¿W–WWð³rI ²VWgð²WWð²J¥O’O¨gc¿±úWgð³BW³=Wgð³5I ³/Igð³(I`ð³!WW °N³`•Ig¨I`¿W ’±ÿgMµW…ið‘hMc¿±ý³Wgð³MWdgðž¿O’O¥H³8Wið²O².O²*W"²>o°JHšOHg „OœO™HdH ¿W ¡HO‘hMµWið’WMoH lmÿ oH ohi²¿WdW ¿WW ±ÿ<(1447Q DWIMIFY1 1436Q /RPLNODE 1421Q FIXSPELL1 1414Q CONCAT 1405Q MKSTRING 1402Q RETDWIM2 1372Q CONCAT 1367Q SUBSTRING 1360Q RETDWIM2 1317Q /RPLNODE 1277Q DWIMIFY2A 1114Q DWIMIFY1A 1065Q EXPRP 770Q \DEFINEDP 715Q DWIMIFY1A 634Q \DWIMIFYBLOCK/WTFIX0 541Q DWIMIFY2A 444Q DWIMIFY2A 415Q CLISPNOTVARP 315Q LISPXPRINT 307Q LISPXPRIN1 276Q LISPXSPACES 270Q FIXPRINTIN 257Q STRPOSL 164Q /RPLNODE 112Q DWIMIFY1) (1274Q QUIET 1213Q FORWORD 1202Q FOR1 1143Q NOFIXVARSLST0 1137Q NOFIXVARSLST0 1131Q CLISPTYPE 1124Q CLISPFLG 1102Q COMMENTFLG 1073Q E 1056Q NORUNONS 1041Q IFWORD 1026Q FOR1 777Q FORWORD 661Q CLISPWORD 612Q NOSPELLFLG 603Q NOSPELLFLG 571Q CLISPWORD 557Q FOR1 536Q QUIET 504Q FORWORD 464Q FORWORD 441Q QUIET 376Q CLISPTYPE 370Q CLISPISPROP 360Q NOT 325Q IS 253Q CLISPCHARRAY 243Q NOFIXVARSLST0 233Q DWIMCHECKPROGLABELSFLG 223Q LABELS 211Q LABELS 203Q INFO 144Q NLAMBDA 136Q LAMBDA 104Q LINEAR 45Q DWIMEQUIVLST) ( 1411Q ")" 1376Q "... " 1354Q "... " 1260Q "" 303Q "suspicious prog label: ") \DWIMIFYBLOCK/FIX89 D1 (L (2 POS 1 N 0 FORM) F 1 FAULTX F 2 TAIL F 3 EXPR) ^A`ð“g‚gQ–Ql ’R´B§QA ¡hSg@–@l “g‚g@ihHhBhhhhh gi h(132Q LISPXPRINT 123Q EDITE 61Q \TYPEMASK.UFN 42Q \DWIMIFYBLOCK/FIX89A 27Q \TYPEMASK.UFN) (126Q couldn't 71Q F= 65Q F 51Q ORR 14Q FIX9 10Q FIX8 3 LPARKEY) () \DWIMIFYBLOCK/FIX89A D1 (L (2 POS 1 N 0 X) F 0 CHARLST F 1 TYPE-IN? F 2 DWIMIFYFLG F 3 ATTEMPTFLG) ]@µ&B§A@ b¿@dkBkÙµoA`ðšo‰b¿°Øo @BkØ µohPQhð´g ‘iR´ich(120Q FIXSPELL1 73Q SUBSTRING 64Q CONCAT 26Q SUBSTRING 12Q STRPOS) (114Q MUSTAPPROVE 40Q LPARKEY) ( 101Q "" 61Q " )" 46Q " (" 34Q "") \DWIMIFYBLOCK/FIX89TYPEIN D1 (L (2 APPLYFLG 1 CLST 0 X) F 1 FAULTARGS F 2 FAULTPOS F 3 FAULTX) ]gi @Að² @ Xid¿RHB¢S„Qd‘h °/B’QµSc¿RA@ idi@d¦¿Q‰h°å Qh(131Q \DWIMIFYBLOCK/RETDWIM 124Q PACK 104Q PRINT 77Q PACK 74Q LDIFF 52Q \DWIMIFYBLOCK/RETDWIM 31Q PRINT 23Q PACK 11Q PRIN1) (5 =) () \DWIMIFYBLOCK/FIXAPPLY D1 (P 2 TYPE-IN? F 3 FAULTX F 4 FAULTPOS F 5 TYPE-IN? F 6 CHARLST F 7 FAULTARGS F 10Q FAULTFN F 11Q HISTENTRY F 12Q FAULTAPPLYFLG F 13Q FAULTXX) * WSð£hc ¿Sdlð², X²%H ¢±’`Sdlð—g ¿SX±ØSg§Sdgž¿S —S¸hc±½SgYµ+U²P`²2`S ²)VSWhYdiX²TH ¿°. ”SX±¿°U²`ið¯WWð—`VYµd\d— h°$mÿ `©Ld`•¿Lh‡oh]—Nµ.M_^¿µÃO [`³@gð²W’W¢W«gŠ ^M°Ògº`˜`²U`¤`²FK`”oƒoJdgð²¿`•o°o°gð`”o‡o‚iJ †Jgð›i™@iW´ý@kIcd´ @lIch(431Q NLEFT 412Q NLEFT 354Q FIXSPELL1 346Q SHOULDNT 216Q LAST 156Q APPLY 75Q NTHCHAR 63Q RETDWIM2 44Q LDIFF 36Q TAILP 21Q RETDWIM2) (375Q NOFIXVARSLST0 361Q NEEDNOTAPPROVE 330Q LCASEFLG 323Q MUSTAPPROVE 303Q LCASEFLG 274Q NEEDNOTAPPROVE 255Q LCASEFLG 247Q CLISPHELPFLG 243Q TREATASCLISPFLG 236Q CLISPHELPFLG 232Q TREATASCLISPFLG 226Q MUSTAPPROVE 212Q NEEDNOTAPPROVE 173Q PROBABLY 162Q TREATASCLISPFLG 111Q CLISPCHARS 100Q CLISPCHARS 26Q CONCAT) ( 342Q " TREAT" 335Q " treat" 316Q " TREATED" 310Q " treated" 267Q " AS CLISP" 262Q " as clisp" 126Q " ") \DWIMIFYBLOCK/SHRIEKER D1 (L (0 LOOKAT) F 2 WORKFLAG F 3 NCONCLKUP F 4 NCONC1LKUP) S @d›dl ‘¿¤hc@@¸@b¿Hdgð³gð¢±ä@d¢±X@bHgð²'¿¿@d¢±X@bd Ydµ‚±=gcSHh@ YdµgcgHhl žgcgHIhRµgcgHIhdgð˜¿HI Idgð³dgð«dgð¥dgðŸ¿gcgHIhdgð¿gcHI Igð²gcgHIhgHIh@µgcgHh YRµgcgHhdgð³dgð«dgð¥dgðŸ¿gcgHIhdgð˜¿HI Idgð¦dgð²¿gcgHIh¿gHIhl œgcSHIhRµgcSHIhdgð’±þêdgð¥dgð¿gcSHIhdgð²¿gcSHIgIhdgðŸ¿gcSHIhdgð¿gcHI Igð²"I®gcTHIhgcSHIhSHIh(1041Q ATTACH 631Q \TYPEMASK.UFN 550Q ATTACH 441Q \DWIMIFYBLOCK/SHRIEKER 353Q ATTACH 256Q ATTACH 177Q \TYPEMASK.UFN 151Q \DWIMIFYBLOCK/SHRIEKER 122Q \DWIMIFYBLOCK/SHRIEKER 13Q \TYPEMASK.UFN) (1077Q NCONCING 1060Q NCONC1ING 1046Q LISTING 1031Q NCONCING 1023Q !!IT 1003Q NCONCING 775Q !IT 757Q LIST 745Q NCONCING 736Q NCONC1ING 720Q NCONCING 712Q CONSING 704Q APPENDING 673Q NCONCING 655Q NCONCING 635Q NCONCING 615Q CONS 600Q CONS 573Q CONSING 564Q !IT 556Q !!IT 537Q LISTING 524Q CONS 517Q CONSING 511Q NCONC1ING 503Q NCONCING 475Q APPENDING 466Q CONSING 455Q LIST 450Q LISTING 431Q LIST 424Q LISTING 407Q APPEND 373Q APPEND 366Q APPENDING 360Q !!IT 343Q APPENDING 335Q !IT 322Q APPEND 315Q APPENDING 307Q NCONC1ING 301Q LISTING 273Q CONSING 264Q NCONCING 245Q APPENDING 232Q APPEND 225Q APPENDING 210Q APPEND 203Q APPENDING 165Q APPEND 160Q !IT 135Q !!IT 75Q ! 50Q ! 42Q !!) () \DWIMIFYBLOCK/STOPSCAN? D1 (L (3 OPRFLAG 2 OPR 1 CLTYP1 0 CLTYP2) F 0 BRACKETCNT F 1 BROADSCOPE F 2 BRACKET F 3 CLTYP) ¯@´‚±©A´‚±¢Q²PjðªP´P ´ @gð²Kh@gð²+BRðC´wPkð´rBgAgð´ePjðµ`P´[P PjðªP´MP ´GBg‘CAdšdl ’¿A€@dšdl ’¿@€ýñ¡i@´@Adšdl ’¿A€ýñ´@ch(237Q \TYPEMASK.UFN 206Q \TYPEMASK.UFN 170Q \TYPEMASK.UFN 145Q \FZEROP 127Q \FZEROP 35Q \FZEROP) (153Q UNARYOP 106Q BRACKET 100Q UNARYOP 54Q BRACKET 43Q BRACKET) () WTFIX D1 (P 11Q DWIMIFYFLG P 10Q ONLYSPELLFLG P 7 FORMSFLG P 6 SUBPARENT P 5 PARENT P 4 TAIL P 3 VARS P 2 EXPR P 1 FAULTFN P 0 FAULTPOS I 2 FAULTAPPLYFLG I 1 FAULTARGS I 0 FAULTX) t° B³ @²@lð²@ «@` _µi ²g ®g@` ¿°â@ ¿°Û@dO _ð³Ï@Oµ gOh ¿g@ ¿°³(157Q RETEVAL 147Q CLISPTRAN 121Q MACROEXPANSION 107Q ASSEMBLETRAN 100Q /SETATOMVAL 63Q \DEFINEDP 53Q MUSTCOMPILEMACROP 46Q \DWIMIFYBLOCK/WTFIX1 37Q GETMACROPROP 26Q \DEFINEDP) (153Q FAULTEVAL 137Q PROGN 74Q NOFIXFNSLST 67Q NOFIXFNSLST 60Q ASSEMBLETRAN 34Q COMPILERMACROPROPS) () \DWIMIFYBLOCK/WTFIX0 D1 (P 3 FAULTAPPLYFLG P 2 FAULTARGS P 1 DWIMIFYFLG P 0 FAULTPOS I 4 ONLYSPELLFLG I 3 SUBPARENT I 2 PARENT I 1 TAIL I 0 FAULTX F 4 DWIMIFYFLG F 5 DWIMIFYING F 6 FAULTPOS) T‘U¡V€hi"(15Q \DWIMIFYBLOCK/WTFIX1) NIL () \DWIMIFYBLOCK/WTFIX1A0024A0025 D1 (NAME ERRORSET F 0 FAULTX F 1 FAULTFN) PQ i(4 CLISPDEC0) NIL () \DWIMIFYBLOCK/WTFIX1A0024A0026A0027 D1 (NAME ERRORSET F 0 FAULTEM1 F 1 FAULTFN) PQ i(5 CLISPDEC0) NIL () \DWIMIFYBLOCK/WTFIX1A0024A0026A0028 D1 (NAME ERRORSET F 0 FAULTEM1) i¿P ¿hh(10Q DWIMIFY1?) (3 CLISPFLG) () \DWIMIFYBLOCK/WTFIX1A0024A0026 D1 (NAME ERRORSET P 0 EXPR F 3 FAULTEM1 F 4 FAULTX F 5 RESETVARSLST F 6 TYPE-IN? F 7 HISTENTRY) è`´Vhð¿Sdgð²¿T µ‚±Ã±½dgð¿T c¿hc±«dgð›¿Td ±™gð¢±„T!Tcdgðš¿oi ¿S`ð”Sc€S¤SµS c¿g`Uc Yºog I¿JdUð•¿Ic U ™UkJI¿£¿T ¿TS STkIc¿hh(322Q CLISPTRAN 314Q CLISPELL 307Q ERROR! 277Q NLEFT 270Q TAILP 242Q \DWIMIFYBLOCK/WTFIX1A0024A0026A0028 210Q \APPEND2 155Q \DWIMIFYBLOCK/WTFIX1A0024A0026A0027 110Q CLISPTRAN 105Q MAKEMATCH 60Q \DWIMIFYBLOCK/CLISPIF 42Q \DWIMIFYBLOCK/RETDWIM 31Q CLISPFOR) (250Q CLISPFLG 237Q INTERNAL 221Q CLISPFLG 216Q CLISPFLG 165Q COMMENTFLG 142Q CLISP: 116Q PREFIXFN 75Q MATCHWORD 51Q IFWORD 21Q FORWORD 12Q LCASEFLG 2 LCASEFLG) ( 234Q (\DWIMIFYBLOCK/WTFIX1A0024A0026A0028) 151Q (\DWIMIFYBLOCK/WTFIX1A0024A0026A0027)) \DWIMIFYBLOCK/WTFIX1A0024 D1 (NAME ERRORSET L (0 NIL) P 21Q CLISPERTYPE P 20Q TYPE-IN? P 17Q FAULTFN P 13Q CLISPERTYPE P 12Q SIDES P 11Q CLISPCHANGES P 10Q FIXCLK P 7 HISTENTRY P 6 NEWTAIL P 5 FAULTEM1 P 4 CHARLST P 3 FAULTXX P 2 BREAKFLG P 1 TYPE-IN? F 22Q FAULTX F 23Q DWIMIFYFLG F 24Q FAULTAPPLYFLG F 25Q FAULTPOS F 26Q RESETVARSLST F 27Q FAULTFN F 30Q CLISPCONTEXT F 31Q CLISPCHANGE F 32Q DWIM.GIVE.UP.TIME F 33Q DWIM.GIVE.UP.INTERVAL F 34Q EXPR F 35Q VARS F 36Q TAIL F 37Q LISPXHIST F 40Q PARENT F 41Q FAULTARGS) É`W4©l W6ö¿áW&˜W.gðY°Hl _¿W(“g‚g c*¿`ið©W*`¿mÿW* i c.¿JµW8]d’ c:¿IgW> _¿I²2W&³.W(›W$`ð°W$`ð©W$`ô—`_¿W(’W$…W$d[lð—K` ¼W(³W$lðš¿¿±ÝW(š¿¿±ÏI².KOð²&`ið³`L]²`—`K ¨ML ¿± `¢±”L¢±¿W$]lð¢±‚Mdg«k ]`²oMg²Mgð²aW$` g²MW$ ³EW$ ²gmÿ@º@ ¿mÿJdb Xlð²>HgZ¢±ÿ}Hgµ‚±ÿrJ±ÿng°FI›S£Ic¿g°7ic¿g°.gðšmÿ@h@±þ9Ic¿Ažl@ c¿k@ †k@ c@ ¿(764Q RELSTK 755Q STKARG 747Q STKARG 737Q STKARG 720Q REALSTKNTH 605Q STKNAME 600Q STKNTH 570Q RELSTK 563Q STKPOS 550Q EVALV 431Q EXPRP 424Q GETD 415Q STKNTH 364Q STKARG 356Q STKARG 324Q RELSTK 320Q STKARG 314Q STKNTH 267Q STKNTHNAME 217Q STKARGS 176Q STKNTH 146Q STKARG 116Q RELSTK 112Q STKARG 106Q STKNTH 61Q STKNTHNAME 23Q STKNAME 11Q STKNTH) (706Q INTERNAL 701Q TYPE-IN 670Q EVAL 651Q BREAK-EXP 632Q ALIAS 620Q BROKEN 555Q BREAK1 544Q BRKTYPE 536Q BREAK-EXP 530Q BREAKCOMS 514Q BREAK 504Q TYPE-IN 465Q : 457Q EVAL 444Q INTERNAL 402Q SELECTQ 373Q SKIP 342Q RETEVAL 333Q STKEVAL 301Q STKEVAL 273Q RETEVAL 256Q ENVEVAL 244Q \SAFEEVAL 235Q EVAL 203Q APPLY* 161Q SELECTQ 152Q SKIP 134Q RETAPPLY 125Q STKAPPLY 73Q STKAPPLY 65Q RETAPPLY 50Q ENVAPPLY 36Q BLKAPPLY 27Q APPLY) () DWIMUNSAVEDEF D1 (I 1 FLG I 0 FN F 0 SIDES F 1 TYPE-IN? F 2 LISPXHIST) C@idA³*Q³'Pgð³g`gR Phhc¿oi i @ (100Q UNSAVEDEF 74Q LISPXTERPRI 70Q LISPXPRIN1 45Q FLAST 40Q MEMB 5 LISPXPRIN2) (34Q *LISPXPRINT* 31Q COMMENTFLG 26Q CLISP% 20Q CLISP% ) ( 64Q " unsaved") CHECKTRAN D1 (L (0 X)) `–@`µ`´ @`ð´@NIL (24Q CLISPTRANFLG 15Q CLISPTRANFLG 7 CLISPARRAY 2 CLISPARRAY) () CLISPRPLNODE D1 (I 2 D I 1 A I 0 X F 0 LISPXHIST) ,@²P²g@d@h ¿@A@dB¿l@h (51Q ERRORX 26Q UNDOSAVE) (11Q CLISPRPLNODE) () (PRETTYCOMPRINT DWIMIFYCOMS) (RPAQQ DWIMIFYCOMS ((FNS DWIMIFYFNS DWIMIFY DWIMIFY0 DWIMIFY0? DWMFY0 DWIMIFY1 DWIMIFY1? DWMFY1 DWIMIFY1A DWIMIFY2 DWIMIFY2? DWMFY2 DWIMIFY2A CLISPANGLEBRACKETS SHRIEKER CLISPRESPELL EXPRCHECK) (FNS CLISPATOM0 CLISPATOM1 CLRPLNODE STOPSCAN? CLUNARYMINUS? CLBINARYMINUS? CLISPATOM1A CLISPATOM1B CL89CHECK CLISPATOM2 CLISPNOEVAL CLISPLOOKUP CLISPATOM2A CLISPBROADSCOPE CLISPBROADSCOPE1 CLISPATOM2C CLISPATOM2D CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPATOMIS CLISPATOMIS1 CLISPMATCHUP CLISPATOMARE CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS2 CLISPATOMIS? CLISPATOMIS?1) (FNS WTFIX WTFIX0 WTFIX1 RETDWIM DWIMERRORRETURN DWIMARKASCHANGED RETDWIM0 RETDWIM1 FIX89TYPEIN FIXLAMBDA FIXAPPLY FIXATOM FIXATOM1 FIXCONTINUE FIXCONTINUE1 CLISPATOM GETVARS GETVARS1 FIX89 FIXPRINTIN FIX89A CLISPFUNCTION? CLISPNOTVARP CLISPELL FINDFN DWIMUNSAVEDEF CHECKTRAN) (FNS CLISPIF CLISPIF0 CLISPIF1 CLISPIF2 CLISPIF3) (FNS CLISPFOR CLISPFOR0 CLISPFOR0A CLISPFOR1 CLISPRPLNODE CLISPFOR2 CLISPFOR3 CLISPFORVARS CLISPFORVARS1 CLISPFOR4 CLISPFORF/L CLISPDSUBST GETDUMMYVAR CLISPFORINITVAR) (COMS (FNS \DURATIONTRAN \CLISPKEYWORDPROCESS)) (BLOCKS (FORBLOCK (ENTRIES CLISPFOR) CLISPFORVARS CLISPFOR0 CLISPFOR2 CLISPFORINITVAR CLISPDSUBST \CLISPKEYWORDPROCESS CLISPFORF/L CLISPFOR4 CLISPFORVARS1 CLISPFOR3 CLISPFOR1 CLISPFOR0A CLISPFOR \DURATIONTRAN (SPECVARS CLISPRESPELL UNDOSIDE LISPXHIST BODY I.S.TYPE1 I.S.TYPE TERMINATEFLG FIRSTI.V. I.V. PROGVARS MAKEPROGFLG IVINITFLG INITVARS UNDOLST DWIMIFYING VARS DWIMIFYCHANGE DUMMYVARS I.S.OPRSLST CLISPCONTEXT UNDOSIDE0 EXP)) (DWIMIFYBLOCK CL89CHECK CLBINARYMINUS? CLISPANGLEBRACKETS CLISPATOM CLISPATOM0 CLISPATOM1 CLISPATOM1A CLISPATOM1B CLISPATOM2 CLISPATOM2A CLISPATOM2C CLISPATOM2D CLISPATOMARE CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS CLISPATOMIS1 CLISPATOMIS2 CLISPATOMIS? CLISPATOMIS?1 CLISPBROADSCOPE CLISPBROADSCOPE1 CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPIF CLISPIF0 CLISPIF1 CLISPIF2 CLISPIF3 CLISPLOOKUP CLISPMATCHUP CLISPRESPELL CLRPLNODE CLUNARYMINUS? DWIMIFY DWIMIFY0 DWIMIFY0? DWIMIFY1 DWIMIFY1? DWIMIFY1A DWIMIFY2 DWIMIFY2? DWIMIFY2A DWIMIFYFNS DWMFY0 DWMFY1 DWMFY2 FIX89 FIX89A FIX89TYPEIN FIXAPPLY FIXATOM FIXATOM1 FIXCONTINUE FIXCONTINUE1 FIXLAMBDA GETDUMMYVAR GETVARS GETVARS1 RETDWIM RETDWIM0 RETDWIM1 SHRIEKER STOPSCAN? WTFIX WTFIX0 WTFIX1 (ENTRIES WTFIX DWIMIFYFNS DWIMIFY DWIMIFY0 DWIMIFY0? DWIMIFY1A GETDUMMYVAR DWIMIFY2 DWIMIFY2? DWIMIFY1? DWIMIFY1 DWIMIFY2A CLISPLOOKUP) (SPECVARS 89CHANGE 89FLG BRACKET BRACKETCNT ATTEMPTFLG BACKUPFLG BODY BREAKFLG BROADSCOPE CLISPCHANGE CLISPCHANGES CLISPCONTEXT CLISPERTYPE CLISPRESPELL CLTYP CURRTAIL DWIMIFYCHANGE DWIMIFY0CHANGE DWIMIFYFLG DWIMIFYING ENDTAIL EXP EXPR FAULTAPPLYFLG FAULTARGS FAULTFN FAULTPOS FAULTX FAULTXX FIRSTI.V. FIXCLK FORMSFLG I.S.TYPE I.S.TYPE1 HISTENTRY I.S. I.V. INITVARS IVINITFLG LISPFN CHARLST MAKEPROGFLG NCONC1LKUP NCONCLKUP NEGFLG NEWTAIL NEXTAIL SUBPARENT NOFIX89 NOSAVEFLG ONEFLG ONLYSPELLFLG PARENT SIDES TAIL TENTATIVE TERMINATEFLG TYP TYPE-IN? UNDOLST UNDOSIDE UNDOSIDE0 VAR1 VAR2 VARS WORKFLAG UNARYFLG DEST FOR I.S.OPRSLST PROGVARS))) (GLOBALVARS DWIMINMACROSFLG DWIMFLG ADDSPELLFLG CHECKCARATOMFLG TREATASCLISPFLG CLISPHELPFLG CLISPIFTRANFLG CLISPRETRANFLG DWIMCHECKPROGLABELSFLG DWIMCHECK#ARGSFLG FILEPKGFLG SHALLOWFLG DWIMESSGAG PRETTYTRANFLG HELPCLOCK CLEARSTKLST LCASEFLG DWIMWAIT LAMBDASPLST DURATIONCLISPWORDS NLAML NLAMA CLISPTRANFLG CLISPIFWORDSPLST SPECVARS LPARKEY DWIMUSERFORMS MACROPROPS DWIMKEYLST SPELLINGS3 SPELLINGS1 NOFIXVARSLST NOFIXFNSLST CLISPARRAY CLISPFLG CLISPCHARS CLISPISNOISEWORDS CLISPLASTSUB CLISPISWORDSPLST CLISPCHARRAY CLISPINFIXSPLST OKREEVALST WTFIXCHCONLST1 WTFIXCHCONLST RPARKEY GLOBALVARS NOFIXFNSLST0 NOFIXVARSLST0 NOSPELLFLG LISPXHISTORY DWIMEQUIVLST DFNFLG COMMENTFLG USERWORDS SPELLINGS2 LOCALVARS FILELST CLISPFORWORDSPLST CLISPDUMMYFORVARS LASTWORD COMPILERMACROPROPS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (ADDVARS (NLAML BREAK1))) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DWIMIFYFNS) (NLAML) (LAMA) )) (INITVARS (DWIM.GIVE.UP.TIME) (DWIM.GIVE.UP.INTERVAL 2000)))) (RPAQ? DWIM.GIVE.UP.TIME) (RPAQ? DWIM.GIVE.UP.INTERVAL 2000) (PUTPROPS DWIMIFY COPYRIGHT ("Xerox Corporation" T 1978 1984 1985)) NIL