(FILECREATED "29-Jul-86 00:38:15" ("compiled on " {ERIS}SOURCES>DWIMIFY.;36) "23-Jul-86 04:26:56" brecompiled changes: DWIMIFYFNS DWIMIFY DWIMIFY0 DWIMIFY0? DWMFY0 DWIMIFY1 DWIMIFY1? DWMFY1 DWIMIFY1A DWIMIFY2 DWIMIFY2? DWMFY2 DWIMIFY2A CLISPRESPELL EXPRCHECK CLISPATOM1 CLUNARYMINUS? CLBINARYMINUS? CLISPATOM1A CLISPATOM1B CLISPATOM2 CLISPNOEVAL CLISPLOOKUP CLISPBROADSCOPE CLISPATOM2C CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPATOMIS1 CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS2 WTFIX WTFIX0 WTFIX1 RETDWIM DWIMERRORRETURN DWIMARKASCHANGED FIXAPPLY FIXATOM1 FIXCONTINUE FIXCONTINUE1 FIX89 FIXPRINTIN FIX89A CLISPFUNCTION? CLISPNOTVARP CLISP-SIMPLE-FUNCTION-P CLISPELL FINDFN DWIMUNSAVEDEF CHECKTRAN CLISPFOR CLISPFOR0 CLISPFOR0A CLISPFOR1 CLISPRPLNODE CLISPFOR2 CLISPFOR3 CLISPFORVARS CLISPFORVARS1 CLISPFOR4 CLISPFORF/L CLISPDSUBST GETDUMMYVAR CLISPFORINITVAR \DURATIONTRAN \CLISPKEYWORDPROCESS in "Xerox Lisp 23-Jul-86 ..." dated "23-Jul-86 04:52:47") (FILECREATED "29-Jul-86 00:33:49" {ERIS}SOURCES>DWIMIFY.;36 348039 changes to: (FNS DWIMIFY DWMFY2 CLISPATOM1 CLISPATOM2 CLISPNOEVAL WTFIX1 RETDWIM DWIMERRORRETURN FIXAPPLY CHECKTRAN CLISPFOR0 CLISPBROADSCOPE CLISPATOMARE1 CLISPFORF/L DWIMIFYFNS DWIMIFY0 DWIMIFY0? DWMFY0 DWIMIFY1 DWIMIFY1? DWMFY1 DWIMIFY1A DWIMIFY2 DWIMIFY2? DWIMIFY2A CLISPRESPELL EXPRCHECK CLUNARYMINUS? CLBINARYMINUS? CLISPATOM1A CLISPATOM1B CLISPLOOKUP CLISPATOM2C CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPATOMIS1 CLISPATOMARE2 CLISPATOMIS2 WTFIX WTFIX0 DWIMARKASCHANGED FIXATOM1 FIXCONTINUE FIXCONTINUE1 FIX89 FIXPRINTIN FIX89A CLISPFUNCTION? CLISPNOTVARP CLISP-SIMPLE-FUNCTION-P CLISPELL FINDFN DWIMUNSAVEDEF CLISPFOR CLISPFOR0A CLISPFOR1 CLISPRPLNODE CLISPFOR2 CLISPFOR3 CLISPFORVARS CLISPFORVARS1 CLISPFOR4 CLISPDSUBST GETDUMMYVAR CLISPFORINITVAR \DURATIONTRAN \CLISPKEYWORDPROCESS) previous date: "23-Jul-86 01:00:53" {ERIS}SOURCES>DWIMIFY.;35) \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ð’±šlð²PLdgð¦dgð²¿LgLLh¿Ld°É¿`¢±çWL ¢±ÜLKhid Y¢±ÎI±ËLd¢±¾dgð’±¶dgð’±dgð¥dgð¿LLi±“¿Ldgð©gð²L³LgLL±ÿC`²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(1233Q /RPLNODE 1211Q CLISPFORERR 1133Q SHOULDNT 547Q DREVERSE 466Q CLISPFORERR 462Q CLISPFORERR 445Q \FORBLOCK/CLISPFORVARS1 376Q \FORBLOCK/CLISPFORVARS1 360Q STRPOSL 243Q DWIMIFY2 147Q DWIMIFY2 132Q STRPOSL) (1352Q SAVESETQQ 1344Q SAVESETQ 1336Q old 1327Q OLD 1320Q SETQQ 1311Q SETQ 1242Q I.S.TYPE 1223Q DO 1130Q CLISPFORVARS 1107Q AS 1074Q FOR 1065Q BIND 1010Q QUOTE 1000Q SETQ 770Q SAVESETQQ 762Q SETQQ 750Q SAVESETQ 742Q SETQ 707Q AS 623Q old 615Q OLD 563Q old 555Q OLD 527Q BIND 325Q CLISPFLG 305Q SETQ 267Q ¬ 257Q _ 226Q SAVESETQ 220Q SETQ 207Q SAVESETQQ 176Q SETQQ 117Q CLISPFLG 67Q SETQ 57Q ¬ 51Q _ 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 DWIMESSGAG F 64Q VARS F 65Q DWIMIFYFLG F 66Q NOFIXFNSLST F 67Q NOFIXVARSLST F 70Q HISTENTRY F 71Q LISPXHIST) –3@o`oWh ôð!Ð.Wj«Wl¿Wn¿H_dlð’±›±$¢± ONgð¢±`²"OHð²ONd¡_THð¨HOTH¿ONg gð’±ßNµ;ORµ*ONd³>_dgð³Y¿Ngð²cNdNð²5°?HN¸h_R¿±ÿq³ÅNHh ¿°»_g _Nµ‚±ÿ`±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’±ƒ¿@Wpô¢±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²1d³+g _gð²Og gð’M€Mh€_¿O.³xO0³tM³Wf¨o@ ¿¿±ñO@³ZOB’±OD’±ŠWf³JO$³FOg ³9oi ¿02@°dhk_`¿Obµ O`h_d‚O`&_b¿µãOdid¿Ogð¢±Hgg X¢±:OH_X¿gOX _ _¿KO [±,O>³ÃO<³¿O³ºO ³¶O"³²OH³®OL³ªOJ³¦Ogð³Ogð©Odgð²¿O,³‰OD²OgOgh ’±ÿqOB²HOdgð•¿g°ngð”g°dOgð¨Odgðœ¿gOB °Hgð§Ogð²5g°6OD²,Odgð•¿g°$gð›gOD °Ogð“g…g OBµODOOO:h¸OF¢±FHOOBµODOFhOO:h ±"Oµ°`g Xµ 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¿gWr _¿O6°) _bO`°‹d_\O\¿O\O\¿O\Oµ µâ@H @g¿°ð(6213Q CLISPTRAN 6137Q LAST 6122Q MEMB 6106Q \NCONC2 6103Q \NCONC2 6100Q \NCONC2 6074Q \NCONC2 6071Q \NCONC2 6066Q \NCONC2 6063Q \NCONC2 6060Q \NCONC2 6055Q \NCONC2 6052Q \NCONC2 6017Q \FORBLOCK/CLISPFOR3 6003Q \FORBLOCK/CLISPFOR3 5741Q LDIFF 5720Q DREVERSE 5540Q \FORBLOCK/CLISPFOR2 5527Q \FORBLOCK/CLISPFOR2 5500Q \NCONC2 5470Q CLISPFORERR 5406Q FLAST 5400Q \FORBLOCK/CLISPFOR3 5347Q \FORBLOCK/CLISPFOR2 5262Q \NCONC2 5231Q CLISPLOOKUP 5155Q \NCONC2 5136Q CLISPLOOKUP 5111Q WARNUSER 5104Q GETDUMMYVAR 5076Q \NCONC2 4742Q CLISPLOOKUP 4714Q CLISPLOOKUP 4634Q WARNUSER 4627Q GETDUMMYVAR 4532Q \FORBLOCK/CLISPFORINITVAR 4466Q SUBPAIR 4414Q \NCONC2 4376Q \NCONC2 4355Q SUBST 4315Q \NCONC2 4251Q \FORBLOCK/CLISPFORINITVAR 4233Q SHOULDNT 4224Q \FORBLOCK/CLISPFORINITVAR 3615Q \FORBLOCK/CLISPFOR4 3605Q \APPEND2 3572Q SUBPAIR 3567Q DWIMIFY1 3564Q COPY 3516Q EVAL 3477Q SHOULDNT 3466Q GETPROP 3447Q \NCONC2 3442Q \FORBLOCK/CLISPFORF/L 3431Q SUBST 3374Q \FORBLOCK/CLISPFORF/L 3353Q SHOULDNT 3330Q CLISPLOOKUP 3243Q CLISPLOOKUP 3151Q EDITFINDP 3022Q \APPEND2 3011Q \APPEND2 3002Q MEMB 2756Q GETPROP 2732Q PRINT 2672Q RETDWIM2 2654Q PRIN1 2642Q \FORBLOCK/CLISPFOR4 2637Q GETPROP 2573Q ERROR! 2567Q ERRORMESS1 2517Q GETPROP 2474Q GETPROP 2447Q \FORBLOCK/CLISPFOR1 2437Q GETDUMMYVAR 2377Q \FORBLOCK/CLISPFOR1 2340Q \APPEND2 2333Q \FORBLOCK/CLISPFORVARS 2315Q \APPEND2 2312Q \FORBLOCK/CLISPFORVARS 2246Q \FORBLOCK/CLISPFOR0A 2224Q \NCONC2 2215Q ERROR! 2211Q ERRORMESS1 2165Q ERROR! 2161Q ERRORMESS 1464Q GETDUMMYVAR 1372Q \NCONC2 1367Q READLINE 1361Q PEEKC 1354Q PRIN1 1321Q \NCONC2 1310Q CLISPFORERR 1257Q SHOULDNT 1214Q CLISPFORERR 1150Q CLISPFORERR 1074Q CLISPFORERR 1023Q CLISPFORERR 553Q /RPLNODE 435Q \FORBLOCK/\DURATIONTRAN 426Q GETP 410Q GETPROP 352Q CLISPFORERR 323Q GETPROP 305Q \NCONC2 262Q \FORBLOCK/CLISPFOR0A 166Q GETP 154Q /RPLNODE 20Q \APPEND2) (6220Q * 6115Q SIDE 6040Q $$LP 6035Q GO 6024Q $$ITERATE 6006Q $$LP 5710Q DECLARE 5677Q PROG 5661Q COND 5646Q COND 5627Q $$ITERATE 5624Q GO 5603Q OR 5567Q OR 5553Q COND 5413Q RETURN 5370Q OR 5356Q COND 5332Q $$OUT 5327Q GO 5316Q $$OUT 5224Q + 5177Q SETQ 5062Q SETQ 5046Q GT 5042Q LT 4735Q GT 4707Q LT 4676Q MINUSP 4673Q COND 4662Q ZEROP 4657Q OR 4651Q AND 4623Q SETQ 4620Q BY 4574Q LT 4474Q CDR 4424Q SETQ 4364Q NLISTP 4346Q VAR 4327Q SETQ 4303Q NLISTP 4230Q CLISPFOR0 4204Q SETQQ 4174Q SETQ 4141Q old 4131Q OLD 4111Q old 4101Q OLD 4034Q AS 4015Q TO 3774Q ON 3753Q IN 3732Q BY 3711Q FROM 3644Q $$VAL 3641Q RETURN 3630Q $$VAL 3621Q $$VAL 3577Q PROGN 3537Q PROGN 3506Q = 3474Q CLISPFOR0 3463Q I.S.OPR 3350Q CLISPFOR0 3344Q MAP 3337Q do 3321Q MAPCON 3314Q join 3307Q MAPLIST 3301Q collect 3265Q MAPC 3257Q do 3250Q DO 3234Q MAPCONC 3226Q join 3216Q JOIN 3207Q MAPCAR 3202Q collect 3175Q SUBSET 3167Q subset 3142Q & 3135Q SETQ 3114Q do 3104Q join 3074Q collect 2775Q BIND 2753Q I.S.OPR 2750Q fcollect 2740Q collect 2634Q I.S.OPR 2522Q MODIFIER 2514Q I.S.OPR 2503Q FORWORD 2471Q CLISPWORD 2354Q ON 2346Q IN 2323Q FOR 2300Q AS 2272Q BIND 2123Q MODIFIER 2101Q FIRST 2074Q first 2052Q EACHTIME 2045Q eachtime 2025Q FINALLY 2016Q finally 1773Q WHEN 1766Q when 1746Q UNLESS 1737Q unless 1714Q REPEATUNTIL 1707Q repeatuntil 1667Q REPEATWHILE 1660Q repeatwhile 1635Q UNTIL 1630Q until 1610Q WHILE 1601Q while 1556Q DECLARE 1551Q declare 1536Q BIND 1530Q bind 1510Q AS 1377Q as 1350Q ... 1305Q TWICE 1254Q CLISPFOR0 1242Q BY 1235Q by 1220Q TO 1211Q BOTH 1167Q to 1154Q ON 1145Q BOTH 1116Q on 1100Q IN 1071Q BOTH 1043Q in 1027Q FROM 1020Q BOTH 775Q from 756Q FOR 751Q for 741Q by 733Q to 725Q on 716Q in 707Q from 700Q for 667Q BOTH 647Q FOR 637Q I.S.TYPE 626Q I.S.TYPE 607Q suchthat 600Q SUCHTHAT 570Q thereis 524Q do 505Q I.S.TYPE 423Q \DURATIONTRAN 405Q I.S.OPR 370Q ORIGINAL 360Q original 347Q MISSING 320Q CLISPWORD 234Q ORIGINAL 223Q original 171Q MODIFIER 163Q I.S.OPR 113Q LCASEFLG 103Q FORWORD 47Q NOFIXVARSLST0 41Q NOFIXFNSLST0 7 CLISPDUMMYFORVARS) ( 5465Q "too many concurrent loops " 5034Q (BY -1) 4352Q (CAR (OR (LISTP VAR) (GO $$OUT))) 3526Q (BODY I.V.) 2650Q "Possible non-terminating iterative statement: " 2563Q "No DO, COLLECT, or JOIN in:" 2205Q "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.) Y @°%dYdgð•¿IR°gð“ISˆI•I ¿µÜ@` X´#@g gð@h`¿@ ƒH h(125Q \FORBLOCK/CLISPDSUBST 120Q DWIMIFY1 113Q PUTHASH 75Q GETP 62Q GETHASH 46Q \FORBLOCK/CLISPDSUBST) (110Q CLISPARRAY 101Q CHANGETRAN 72Q 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) GggAB²7g@B °d[K X–IµHZY¿µçJ@ˆ YH°ï@h(71Q LAST 42Q LDIFF 23Q DREVERSE) (14Q DECLARE 5 LAMBDA 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¢¿°wdgð¥dgð•¿A³°egðš@c¿°UHgð©Hdgðš¿W³'ic¿°!g \gð²$Lg gð²HZdIð²¿HIg¿Hµí@Ið¢±ËJd³{¿@gð³a@gð³X@gð³O@gð³FJg [²ghgg' lð’±ÿlOo ¿±ÿ_d_ g _–O_µµéLµO‚_lð²íOO ð³åO O ¿°Û(653Q /RPLACA 574Q GETPROP 556Q ERROR 535Q EVAL 526Q GETDEF 465Q SUBPAIR 260Q ERROR 213Q \CanonicalizeTimerUnits 156Q CONSTANTEXPRESSIONP 150Q ERROR 126Q ERROR 70Q \FORBLOCK/\CLISPKEYWORDPROCESS 56Q ERRORX 52Q SETERRORN) (571Q CLISPWORD 531Q NEW 523Q NOERROR 517Q RESOURCES 507Q LCASEFLG 474Q WITH-RESOURCES 377Q LAMBDA 371Q QUOTE 340Q BODY 334Q until 321Q LAMBDA 232Q QUOTE 224Q MILLISECONDS 106Q \ForDurationOfBox 16Q DURATIONCLISPWORDS) ( 553Q "is not a timer RESOURCE" 446Q (BODY FORDURATION OLDTIMER TIMERUNITSLST) 431Q (\TimerUnit) 407Q (DECLARE (LOCALVARS \TimerUnit)) 403Q (\TimerUnit) 331Q (DECLARE (LOCALVARS \DurationLimit)) 325Q (\DurationLimit) 303Q ((QUOTE SECONDS)) 276Q (SETUPTIMER.DATE FORDURATION OLDTIMER) 254Q "Both 'untilDate' and 'forDuration' specified" 205Q "No duration interval" 144Q "Can't specify timerUnits for 'untilDate'" 122Q "Both 'usingTimer' and 'resourceName' specified" 10Q (TIMEREXPIRED? \DurationLimit . TIMERUNITSLST) 4 (SETUPTIMER FORDURATION OLDTIMER . TIMERUNITSLST)) \DWIMIFYBLOCK/CLBINARYMINUS? D1 (L (1 MINUSTAIL 0 $TAIL) F 0 TAIL F 1 PARENT F 2 TYPE-IN?) €PQð´{P³!P3³Plð´hP hð´_P hð´WR³@`´O@@@gð´@ h@dgð ooi´AhðµAgA A(175Q /RPLNODE 167Q MINUS 147Q FIXSPELL1 131Q \NCONC2 126Q RETDWIM2 105Q RETDWIM2 44Q CLISPFUNCTION? 34Q CLISPNOTVARP) (162Q - 116Q - 73Q - 56Q CLISPHELPFLG) ( 143Q " " 137Q "the %"-%" is a clisp operator") \DWIMIFYBLOCK/CLISPANGLEBRACKETS D1 (L (0 LST) P 2 WORKFLAG P 1 NCONC1LKUP P 0 NCONCLKUP) g g @ (22Q \DWIMIFYBLOCK/SHRIEKER 13Q CLISPLOOKUP 5 CLISPLOOKUP) (10Q NCONC1 2 NCONC) () \DWIMIFYBLOCK/CLISPATOM D1 (L (0 CLST) I 3 NOFIX89 I 2 PARENT I 1 TAIL F 1 FAULTX F 2 TYPE-IN? F 3 CLISPCHANGES F 4 NOSPELLFLG F 5 ONLYSPELLFLG F 6 FAULTXX F 7 CHARLST F 10Q FAULTPOS) Uhð´‚±–S³*`ið«`gð²R²@ABµuS´rV` ch@gð²`gg ²U@²%g@ h¸A²@ABð©AHA¿°2¿°,Ad¦¿¿°!BðšAgAAAgAhXAHC³—Tið³’T’R´Ž`@X«`@X´‚±ÿ|QµA² QH ²WQ–Ql ’A€Q ¿±ÿVR´‚±ÿPH`ð´‚±ÿD@ X`ð´‚±ÿ4`@H XHi¿±ÿ (423Q \DWIMIFYBLOCK/FIX89TYPEIN 414Q LDIFF 370Q FLAST 335Q \DWIMIFYBLOCK/RETDWIM 325Q \TYPEMASK.UFN 311Q \DWIMIFYBLOCK/FIX89 232Q /RPLNODE 207Q /RPLNODE 170Q \DWIMIFYBLOCK/RETDWIM 155Q \DWIMIFYBLOCK/RETDWIM 147Q /RPLNODE 125Q PACK 107Q GETPROP 62Q DUNPACK 46Q \DWIMIFYBLOCK/CLISPATOM0) (407Q LPARKEY 375Q RPARKEY 355Q LPARKEY 263Q RPARKEY 254Q LPARKEY 215Q QUOTE 202Q QUOTE 120Q QUOTE 104Q CLISPTYPE 101Q ' 73Q ' 57Q WTFIXCHCONLST 32Q TYPE-IN 27Q CLISPFLG 21Q CLISPFLG) () \DWIMIFYBLOCK/CLISPATOM0A0001A0002 D1 (NAME ERRORSET F 0 TAIL) P h(3 \DWIMIFYBLOCK/CLISPATOM1) NIL () \DWIMIFYBLOCK/CLISPATOM0A0001 D1 (NAME ERRORSET F 0 #UNDOSAVES F 1 UNDOTEM) hc¿ohgc¿hh(16Q \DWIMIFYBLOCK/CLISPATOM0A0001A0002) (13Q CLISPATOM1) ( 7 (\DWIMIFYBLOCK/CLISPATOM0A0001A0002)) \DWIMIFYBLOCK/CLISPATOM0 D1 (P 14Q FAULTX P 13Q UNDOTEM P 12Q UNDOSIDE P 11Q UNDOSIDE0 P 10Q LISPXHIST P 4 89FLG P 3 CLISPRESPELL P 0 CURRTAIL I 2 PARENT I 1 TAIL I 0 CHARLST F 15Q RESETVARSLST F 16Q SUBPARENT F 17Q LISPXHIST F 20Q #UNDOSAVES F 21Q CLISPCHANGE F 22Q DWIMIFYFLG) > 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 21Q CURRTAIL F 22Q PARENT F 23Q 89FLG F 24Q CHARLST F 25Q DWIMIFYFLG F 26Q NOSPELLFLG F 27Q CLISPCONTEXT F 30Q TYPE-IN? F 31Q SUBPARENT F 32Q FORMSFLG F 33Q FAULTX F 34Q NEWTAIL F 35Q CLISPCHANGES F 36Q ONEFLG F 37Q CLISPCHANGE F 40Q NEXTAIL) âW(djãW"g ]´2W"dgð¢±ø¿O ’±bW"gW"¿gg ]±Hh_¿Hµ‚±ŸO³dW&´¿¿°ÕOOh _¿h_¿OHh _¿N³jO³%H_¿M¼Og _¿Og gð_¿°CO² M¼Hg _¿Hg gð_¿°!MLHHIðhðµOHW(ð’W"„O ¾O ´ HO ð_¿H´,W"´(O —HO ð§Hgð´W"dH W"¿hXc&¿H¹Hgðhð´HX±ùi(3307Q /RPLNODE 3300Q PACK 3215Q FLAST 3177Q \DWIMIFYBLOCK/STOPSCAN? 3146Q GETPROP 3133Q GETPROP 3104Q GETPROP 3071Q GETPROP 3040Q \NCONC2 3020Q \NCONC2 3004Q DWIMERRORRETURN 2750Q \DWIMIFYBLOCK/CLISPATOM1B 2642Q \DWIMIFYBLOCK/STOPSCAN? 2570Q \DWIMIFYBLOCK/CLISPATOM1A 2532Q GETPROP 2477Q GETPROP 2464Q \DWIMIFYBLOCK/CLISPATOM2 2452Q NLEFT 2436Q DWIMERRORRETURN 2405Q GETPROP 2332Q GETPROP 2312Q GETPROP 2276Q GETPROP 2251Q GETPROP 2236Q GETPROP 2206Q DWIMERRORRETURN 2100Q GETP 1777Q /RPLNODE 1751Q CLISPFUNCTION? 1722Q CLISPFUNCTION? 1641Q \FZEROP 1563Q NLEFT 1530Q GETPROP 1522Q NTHCHAR 1507Q GETPROP 1461Q \FZEROP 1452Q \DWIMIFYBLOCK/CLRPLNODE 1443Q PACK 1436Q PACK 1433Q LDIFF 1361Q UNPACK 1327Q GETPROP 1312Q CLISPNOTVARP 1300Q \DWIMIFYBLOCK/CLBINARYMINUS? 1131Q /RPLNODE 1126Q \NCONC2 1040Q \FZEROP 1003Q MEMB 731Q NLEFT 672Q PACK 667Q LDIFF 606Q DWIMERRORRETURN 544Q GETPROP 446Q GETPROP 423Q \DWIMIFYBLOCK/CLUNARYMINUS? 371Q GETPROP 311Q \NCONC2 275Q PACK 255Q \DWIMIFYBLOCK/FIX89 240Q \DWIMIFYBLOCK/FIX89A 232Q LENGTH 215Q \DWIMIFYBLOCK/FIX89TYPEIN 204Q LDIFF 161Q FLAST 75Q GETPROP 63Q /RPLNODE 44Q \DWIMIFYBLOCK/CLUNARYMINUS? 17Q GETPROP) (3325Q ' 3264Q ~ 3151Q NOT 3143Q LISPFN 3130Q BROADSCOPE 3107Q NOT 3101Q LISPFN 3066Q BROADSCOPE 2760Q NOFIXVARSLST0 2740Q CERTAINLY 2556Q FOR/BIND 2546Q FORWORD 2537Q FORWORD 2527Q CLISPWORD 2474Q CLISPTYPE 2402Q UNARYOP 2327Q CLISPCLASS 2315Q NOT 2307Q LISPFN 2273Q BROADSCOPE 2246Q LISPFN 2233Q BROADSCOPE 2170Q BRACKET 2075Q CLISPBRACKET 2046Q : 2035Q => 2027Q -> 1756Q CERTAINLY 1742Q \DWIMIFYBLOCK/CLISPATOM1A0004 1737Q \DWIMIFYBLOCK/CLISPATOM1A0003 1734Q NOTVAR 1717Q OKVAR 1673Q : 1662Q ' 1525Q CLISPTYPE 1504Q CLISPTYPE 1340Q BRACKET 1324Q CLISPTYPE 1217Q ' 776Q SEPARATOR 756Q - 747Q +- 735Q E 716Q +- 707Q + 646Q RPARKEY 637Q LPARKEY 570Q BRACKET 541Q CLISPBRACKET 531Q BRACKET 455Q ' 443Q CLISPTYPE 440Q +- 433Q +- 404Q - 366Q CLISPTYPE 354Q CLISPCHARS 175Q LPARKEY 167Q RPARKEY 151Q LPARKEY 72Q CLISPTYPE 67Q +- 55Q +- 31Q - 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 6 CLISPCONTEXT F 7 TENTATIVE F 10Q DWIMIFYFLG F 11Q ONEFLG F 12Q PARENT) C`@g ¿@g ]‘k€j¼@Bð‘BB¸@dgð¿Hg [µ@g ºh¹Hdgð¸i¹‰b¿H¸°â¸HµG¿Hbg b¢±ÌW²’V²W²‹Hg gð¢±ÿ{Vgð’±§Vgð’±ž±ÿfg [²wHg ¿M²HdMð–¿LkØ\°gW.´g oi°"W ³lW"Hh ŠI’W ‚W ¿W*gð¢±EI’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&¢±wNc(¿±pW Hð’±”W _gð³Og ²}Og ³sic2¿HkW c dW ¿h¹W c$g ºOhð_¿W$dgð²¿W dW$ð³œc ¿i¹°’gð§W$gð²gc$¿W gW W ¿W"W ð•l ¿I’W ‚W W" ]¦I¤k ¿W<²IW$MKgð“g€H¿W W>µH_ð³OdW W ¿ic2¿Oc ¿W&’W(¨W HW2¿W ¼W$dgð²G¿J’±M ¾hL _¿W&œW(’±?Oc(¿°M_šOl ¢±'MM ¿W4¢±N±gð¢±×LµW$±dgð•¿g°sdgð•¿g°gdgð¥dgð”¿L°Vdgð¥dgð¿hLMi ±Â¿Lg _³L ¿Lg _²hOL LM ±Žg _g ºL¼OLhJZgð²MgðšM¦gºM½W8²uLgð²ngi ¿`\id¿°ZW$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²#NZg c*²N˜Jg ³l ¿°N²NZg c*™JW*NW"¿OžHgHHh¿Hgð²:H_²2HO _ô³'HW ð–W OW ŠO›W OO¿W4”gc4W (3273Q \DWIMIFYBLOCK/CLRPLNODE 3232Q NEGATE 3203Q \DWIMIFYBLOCK/CLRPLNODE 3161Q \DWIMIFYBLOCK/CLISPATOM1A 3145Q GETPROP 3124Q DWIMERRORRETURN 3115Q GETPROP 3077Q GETPROP 3062Q \DWIMIFYBLOCK/CLISPATOM2A 3036Q \DWIMIFYBLOCK/CLRPLNODE 3033Q \APPEND2 2705Q \DWIMIFYBLOCK/CLISPATOM2A 2671Q \TYPEMASK.UFN 2620Q CLISPNOEVAL 2557Q MINUS 2406Q \DWIMIFYBLOCK/CLISPATOM2A 2374Q \TYPEMASK.UFN 2354Q \DWIMIFYBLOCK/CLISPATOM2D 2305Q PRINT 2274Q PRIN1 2226Q CLISPLOOKUP 2212Q PRINT 2200Q PRIN1 2125Q CLISPLOOKUP 2110Q GETPROP 2100Q DWIMERRORRETURN 2067Q \DWIMIFYBLOCK/CLISPATOM2D 2063Q \APPEND2 2055Q CLISPLOOKUP 2040Q GETPROP 2027Q DWIMIFY1? 2017Q GETPROP 2003Q \DWIMIFYBLOCK/CLISPATOM2D 2000Q CLISPRECORD 1646Q \DWIMIFYBLOCK/CLISPATOM2A 1634Q \TYPEMASK.UFN 1574Q \DWIMIFYBLOCK/CLISPATOM2D 1566Q \DWIMIFYBLOCK/CLISPCAR/CDR 1536Q \DWIMIFYBLOCK/CLISPBROADSCOPE1 1506Q \DWIMIFYBLOCK/CLRPLNODE 1500Q LDIFF 1452Q \DWIMIFYBLOCK/CLISPBROADSCOPE 1423Q DWIMERRORRETURN 1413Q LDIFF 1374Q DWIMERRORRETURN 1357Q \DWIMIFYBLOCK/CLRPLNODE 1244Q GETPROP 1225Q \DWIMIFYBLOCK/CLRPLNODE 1212Q NLEFT 1175Q GETPROP 1163Q GETPROP 1105Q \DWIMIFYBLOCK/CLRPLNODE 1072Q \DWIMIFYBLOCK/CLRPLNODE 1016Q \DWIMIFYBLOCK/CLISPANGLEBRACKETS 761Q LAST 750Q MEMB 646Q MEMB 630Q MEMB 617Q DWIMIFY2? 570Q LDIFF 537Q \DWIMIFYBLOCK/CLISPATOM2C 523Q DWIMERRORRETURN 505Q \DWIMIFYBLOCK/CLISPATOM2C 475Q RETEVAL 465Q \DWIMIFYBLOCK/RETDWIM0 462Q \DWIMIFYBLOCK/RETDWIM0 436Q \DWIMIFYBLOCK/CLISPRESPELL 413Q RETEVAL 403Q \DWIMIFYBLOCK/RETDWIM0 374Q \DWIMIFYBLOCK/CLISPRESPELL 327Q DWIMERRORRETURN 307Q \DWIMIFYBLOCK/CLISPATOM2C 274Q GETPROP 246Q GETPROP 223Q GETPROP 173Q DWIMERRORRETURN 160Q DWIMERRORRETURN 64Q GETP 31Q GETPROP 21Q GETPROP 11Q GETPROP) (3302Q PROBABLY 3211Q NOT 3171Q NOT 3142Q CLISPTYPE 3112Q UNARYOP 3074Q CLISPTYPE 3015Q CLISPLASTSUB 3006Q TIMES 3000Q PLUS 2772Q FTIMES 2763Q FPLUS 2754Q ITIMES 2745Q IPLUS 2736Q OR 2727Q AND 2676Q SETQ 2576Q IPLUS 2563Q IMINUS 2536Q IPLUS 2527Q SUB1 2506Q IDIFFERENCE 2476Q SUB1 2461Q IPLUS 2452Q ADD1 2431Q IPLUS 2423Q NULL 2336Q EQ 2300Q LASTWORD 2270Q = 2261Q 2250Q QUOTE 2204Q LASTWORD 2174Q = 2166Q 2152Q SETQQ 2141Q ' 2131Q SETQ 2105Q LISPFN 2075Q _ 2035Q SETFN 2014Q SETFN 1766Q REPLACE 1760Q replace 1745Q NCONC1 1737Q NCONC 1731Q RPLACD 1723Q CDR 1715Q RPLACA 1707Q CAR 1664Q _ 1551Q : 1445Q IS 1440Q ISWORD 1341Q NOT 1327Q AND 1321Q nor 1312Q NOR 1262Q ~ 1241Q LISPFN 1172Q UNARYOP 1160Q CLISPTYPE 1150Q ~ 1111Q PARTIAL 1010Q CLISPANGLEBRACKETS 743Q LISPFN 641Q SEPARATOR 623Q DWIMIFY 606Q IFWORD 545Q BRACKET 457Q WTFIX 447Q CLISPATOM1 433Q CLISPINFIXSPLST 400Q CLISPIF0 371Q CLISPIFWORDSPLST 361Q IFWORD 271Q CLISPTYPE 260Q ~ 243Q UNARYOP 220Q CLISPTYPE 132Q BRACKET 124Q BRACKET 61Q CLISPBRACKET 26Q CLISPCLASS 16Q LISPFN 6 UNARYOP) ( 471Q (PROGN (SETQ CLISPRESPELL T) NIL) 407Q (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 NOSPELLFLG F 12Q BROADSCOPE F 13Q FAULTPOS F 14Q DWIMIFYING F 15Q CLISPCONTEXT F 16Q NOFIXFNSLST F 17Q NOFIXVARSLST F 20Q TYPE-IN?) / @´‚±'Whð´‚±U´WU´W"U«W¿W¿Vgð¨Vgð¢±¦Td’±žW§Td`–¿g± ³H¦TW Tg ¥T`T`¿g°eIgð³RTdAð²K¿Wið³CW“W ²Q”QPð²7@³(PAA¿A` b•P@ ¿A`ðœ`P…P@A¿Pci@¢A°TgðšA3•A ‚@AbPARPcg(142Q \DWIMIFYBLOCK/CLRPLNODE 126Q MINUS 73Q \DWIMIFYBLOCK/CLRPLNODE 47Q CLISPTRAN 37Q GETHASH 27Q \DWIMIFYBLOCK/CLRPLNODE) (151Q PARTIAL 112Q - 62Q CLISPLASTSUB 54Q CLISPLASTSUB 34Q CLISPARRAY) () \DWIMIFYBLOCK/CLISPATOMARE1 D1 (L (1 FLG 0 X)) @@¸Hd`ð’h²Hdgð¥dgð—¿HA ¿hµ HX´ °ÐHh (75Q \NCONC2 53Q \DWIMIFYBLOCK/CLISPATOMARE1) (42Q OR 34Q AND 13Q CLISPLASTSUB) () \DWIMIFYBLOCK/CLISPATOMARE2 D1 (L (1 Z 0 L) F 2 DEST F 3 TAIL F 4 PARENT) _ @d³¿Aµ)gSTh ¿@X@YRŸ@dHð™H…@h¿I–R¤@c¿AI Y@Id–¿HIhb¿b°¤(107Q \APPEND2 30Q DWIMERRORRETURN) (16Q PHRASE) () \DWIMIFYBLOCK/CLISPATOMIS1 D1 (L (4 NEGATE 2 ALST 1 OBJ 0 SUBJ) I 3 EXP) P@dgð¦dgð²,¿@0@°dABCD´i ¸IµHhZH&¹µåJ¿A@BCibD”d C(113Q NEGATE 103Q SUBLIS 44Q \DWIMIFYBLOCK/CLISPATOMIS1) (13Q OR 5 AND) () \DWIMIFYBLOCK/CLISPATOMIS2 D1 (L (0 X)) O@@d²=d`ð³4dHð²d@@ ¿°Ùgð©@dgð—¿@ ¿@b´°º(103Q \DWIMIFYBLOCK/CLISPATOMIS2 52Q \DWIMIFYBLOCK/CLRPLNODE 47Q \APPEND2) (73Q OR 62Q AND 17Q CLISPLASTSUB) () \DWIMIFYBLOCK/CLISPBROADSCOPE D1 (L (2 CONTEXT 1 L 0 $TYP) P 0 BRACKETCNT) —jAAµId¤B ŽdI ¿IBihgðŸgg •HkØ¸°)Adgð²¿gg ”HkÙ¸A@ð˜Hjð¯HµAb°£ ²÷AIðœIB ¿AbY°ŒIdA A¿IBi¿AbY±ÿs(214Q \DWIMIFYBLOCK/CLISPBROADSCOPE1 205Q \DWIMIFYBLOCK/CLRPLNODE 201Q LDIFF 163Q \DWIMIFYBLOCK/CLISPBROADSCOPE1 147Q \FZEROP 112Q GETP 60Q GETP 37Q \DWIMIFYBLOCK/CLISPBROADSCOPE1 30Q \DWIMIFYBLOCK/CLRPLNODE 17Q \DWIMIFYBLOCK/CLISPBROADSCOPE1) (107Q CLISPTYPE 104Q > 75Q > 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°‚(635Q CLISPLOOKUP 545Q DWIMERRORRETURN 501Q \DWIMIFYBLOCK/CLISPCAR/CDR1 472Q \DWIMIFYBLOCK/CLISPCAR/CDR1 465Q \DWIMIFYBLOCK/CLISPCAR/CDR1 371Q NLEFT 334Q DWIMERRORRETURN 323Q GETPROP 311Q CLISPRECORD 261Q CLISPTRAN 256Q MAKEMATCH 244Q DWIMIFY2? 232Q \NCONC2 136Q MINUS) (673Q CAR 644Q NLEFT 631Q LAST 611Q CDR 563Q NLEFT 542Q : 520Q : 426Q CDDDDR 331Q 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/CLISPIFA0009A0010 D1 (NAME ERRORSET F 0 FORM F 1 TEM) P ch(3 \DWIMIFYBLOCK/CLISPIF0) NIL () \DWIMIFYBLOCK/CLISPIFA0009 D1 (NAME ERRORSET F 0 #UNDOSAVES F 1 UNDOTEM) hc¿ohgc¿hh(16Q \DWIMIFYBLOCK/CLISPIFA0009A0010) (13Q CLISPIF0) ( 7 (\DWIMIFYBLOCK/CLISPIFA0009A0010)) \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 CLISPCHANGE F 22Q LISPXHIST F 23Q DWIMIFYING F 24Q VARS F 25Q BREAKFLG F 26Q EXPR F 27Q NOFIXFNSLST F 30Q NOFIXVARSLST) W—ic “ic"¿gW´W&W(µWhð´W*µW, ``EW«W.¿W0¿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½±ÿ#(377Q CLISPELL 366Q \DWIMIFYBLOCK/RETDWIM 362Q \DWIMIFYBLOCK/RETDWIM 347Q UNDONLSETQ1 331Q UNDOSAVE 325Q LISTPUT1 302Q ERROR! 271Q NLEFT 260Q TAILP 251Q LISTPUT1 212Q \DWIMIFYBLOCK/CLISPIFA0009 114Q MEMB 47Q \DWIMIFYBLOCK/GETVARS) (412Q NOFIXVARSLST0 405Q NOFIXFNSLST0 374Q IFWORD 322Q NOSAVE 317Q SIDE 310Q NOSAVE 244Q SIDE 207Q INTERNAL 163Q #UNDOSAVES 150Q SIDE 107Q SIDE 76Q NOFIXVARSLST0 70Q NOFIXFNSLST0 55Q NOFIXVARSLST0 52Q NOFIXFNSLST0 15Q IFWORD) ( 204Q (\DWIMIFYBLOCK/CLISPIFA0009)) \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)) Z0@gð´O@ YXd@ð²diðœd¨¿I@@°*ið´*@l YZ@ð´I³HJH¿IHJh(126Q /RPLNODE 114Q /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@g Ydg Zd²ST Xœ@ABHCIJ °)Idgð•¿@ gð¥Igð‘hCµ@g µ@XJgð²,ddJð²%¿Ad¢…JðBd¢…Jð”JH(115Q GETPROP 65Q GETTOPVAL 47Q CLISPLOOKUP0 32Q GETLOCALDEC 21Q GETPROP 11Q GETPROP) (126Q ARITH 112Q LISPFN 77Q RECORDFIELD 71Q RECORD 56Q VALUE 16Q CLISPCLASSDEF 6 CLISPCLASS) () \DWIMIFYBLOCK/CLISPRESPELL D1 (L (2 FLG 1 WORDS 0 TL) F 0 NOSPELLFLG F 1 TYPE-IN?) 2Piðhð´+P’Q´&@´"@lð´@ hð´@ ´ @hAB(57Q MISSPELLED? 45Q CLISPNOTVARP 34Q CLISP-SIMPLE-FUNCTION-P) NIL () \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") DWIMIFYA0014A0015 D1 (NAME ERRORSET F 0 VAL) i¿Phi¿hh(12Q PRINTDEF) (3 PRETTYTRANFLG) () DWIMIFYA0014 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 DWIMIFYA0014A0015) (37Q PRETTYTRANFLG 26Q INTERNAL 5 PRETTYTRANFLG 2 PRETTYTRANFLG) ( 23Q (DWIMIFYA0014A0015)) DWIMIFY D1 (L (2 L 1 QUIETFLG 0 X) P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 VAL F 5 RESETVARSLST F 6 DWIMFLG F 7 NOFIXFNSLST F 10Q NOFIXVARSLST) kV©oi hWW@B X@²GB³DA³Ai 1gIhhUc ºog £g¼Jc ¿gJ ¿L“¿i H(147Q TERPRI 141Q ERROR! 133Q APPLY 107Q DWIMIFYA0014 54Q OUTPUT 35Q DWIMIFY0 14Q LISPXPRIN1) (124Q OUTPUT 113Q ERROR 104Q INTERNAL 62Q OUTPUT 30Q NOFIXVARSLST0 23Q NOFIXFNSLST0) ( 101Q (DWIMIFYA0014) 10Q "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 F 14Q DFNFLG) 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 Ÿ¿Wgð«Kd ¦¿Ki K(405Q DWIMUNSAVEDEF 376Q EXPRP 360Q \DEFINEDP 352Q DWIMARKASCHANGED 342Q DWIMIFY1 324Q EXPRCHECK 320Q DWIMIFY1 275Q DWIMARKASCHANGED 264Q DWIMIFY1 245Q DWIMIFY1 237Q DWIMIFY2 110Q DWIMIFY2 101Q TAILP 73Q LISPXPUT 53Q LAST 45Q VARSBOUNDINEDITCHAIN 35Q \EVALV1 11Q MEMB) (367Q PROP 310Q TYPE-IN 207Q SELECTQ 176Q DWIMEQUIVLST 163Q SELECTQ 152Q DWIMEQUIVLST 136Q COND 125Q DWIMEQUIVLST 64Q 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 NOFIXFNSLST F 7 NOFIXVARSLST F 10Q DWIMIFYFLG) NWµV¿W¿dgð¦dgð²¿V¿W¿idgð²ÖV¿W¿@(113Q \DWIMIFYBLOCK/DWMFY0 63Q \DWIMIFYBLOCK/DWMFY0 21Q \DWIMIFYBLOCK/DWMFY0) (104Q NOFIXVARSLST0 76Q NOFIXFNSLST0 67Q EVAL 52Q NOFIXVARSLST0 44Q NOFIXFNSLST0 34Q VARSBOUND 26Q CLISPIFY 15Q NOFIXVARSLST0 7 NOFIXFNSLST0) () 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 F 4 NOFIXFNSLST F 5 NOFIXVARSLST) S´@ iTU@ (27Q \DWIMIFYBLOCK/DWMFY1 6 \DWIMIFYBLOCK/DWMFY1) (23Q NOFIXVARSLST0 17Q NOFIXFNSLST0) () DWIMIFY1A D1 (L (2 FN) I 1 TAIL I 0 PARENT F 0 CLISPCONTEXT F 1 DWIMESSGAG F 2 DWIMIFYFLG F 3 DWIMIFYING F 4 FAULTFN) €Q³|B¥R´xS´uPgð³mBµT •ki ¿Pgð³oi ¿@A id¿Ad3²¿oi Ai oi ´$oi oAhllmÿ idh(173Q LISPXPRINT 166Q CONCAT 163Q SUBSTRING 154Q RETDWIM2 141Q LISPXPRIN1 126Q LISPXPRIN1 116Q LISPXPRIN1 111Q LISPXPRIN1 71Q LISPXPRINT 64Q RETDWIM2 56Q LISPXPRIN1 36Q LISPXSPACES 30Q FIXPRINTIN) (43Q IFWORD 16Q IFWORD) ( 145Q "... " 135Q "at " 122Q ") " 105Q "too many arguments (more than " 52Q "(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 F 4 NOFIXFNSLST F 5 NOFIXVARSLST) S´iTU(25Q \DWIMIFYBLOCK/DWMFY2 5 \DWIMIFYBLOCK/DWMFY2) (22Q NOFIXVARSLST0 16Q NOFIXFNSLST0) () DWIMIFY2AA0016 D1 (L (1 Y 0 X)) A lmÿ(12Q SUBSTRING 3 RETDWIM2) NIL () DWIMIFY2AA0017 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 DWIMIFY2AA0017 4 DWIMIFY2AA0016) () DWIMIFYFNS D1 (L (0 FNS) F 3 NOFIXFNSLST F 4 NOFIXVARSLST F 5 DWIMFLG) xj ¿ST0@d³_dž¿g@hg°Lg µBUž@lF`h@ µ@g –@ µ!g@g°d ¸IµHhZH&¹µíJ(144Q DWIMIFY0 135Q STKEVAL 120Q FILEFNSLST 112Q GETPROP 100Q MISSPELLED? 56Q EVALV 45Q STKEVAL 3 CLOCK) (132Q INTERNAL 125Q DWIMIFYFNS 107Q FILE 72Q FILELST 53Q DWIMIFYFNS 42Q INTERNAL 34Q DWIMIFYFNS 14Q NOFIXVARSLST0 10Q NOFIXFNSLST0) () \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) O@‘ @³tHhZi ¿Jd’±8Id²/¿H`µHZgð’±ôJgð’±ëI ´`hð^ˆlð—I ’±Ñ Hddd¢±®Hd ³<¿Kµ9L¢±²h¼H`µHYdgð’±œdgð’±“¿H ¢±ÿ|`’±ÿuHgð¢±dI´[H@ ¿H`µHY¢±JN¦K¤I ¿W ’±rH`µHZgð’±\Jgð’±SN’±NI ’±FH H»±ÿjKµ"M®Idlð˜`¿I³Idgð›¿±àgð³Ü@gð²,H°"d_dgð¥dgð¿O` ¿µÞ±¨Igð¨Idgð²¿`¢±’H¢±‹Hk ¿±‚gð²=H@ihi ¿Hd«@hdi ¿HXd¨@i¿±OHid¿H°æIgð³Igð®Igð¨Idgð²*¿HdW³d`ª`¿H@i¿±þgð²Hˆddhi¿µõ±æIdgð²¿Hµ H¢H€h ¿±Ègð›H@i¿±·Igð¨Idgð²'¿HµH´HhW H@i±„g _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 @(1513Q DWIMIFY1A 1445Q NARGS 1435Q ARGTYPE 1416Q CLISPNOEVAL 1410Q DWIMIFY2 1375Q \NCONC2 1331Q DWIMIFY1A 1302Q DWIMIFY2 1227Q GETPROP 1215Q DWIMIFY2 1202Q \APPEND2 1132Q DWIMIFY2 1111Q DWIMIFY1 1047Q DWIMIFY2 1023Q DWIMIFY2 720Q DWIMIFY2 702Q DWIMIFY2 665Q DWIMIFY2 643Q DWIMIFY2 617Q DWIMIFY1A 542Q UNION 414Q DWIMIFY1A 404Q CHECKTRAN 325Q DWIMIFY1 273Q DWIMIFY2 234Q CHECKTRAN 154Q CHECKTRAN 142Q \DWIMIFYBLOCK/WTFIX0 124Q CLISP-SIMPLE-FUNCTION-P 102Q CHECKTRAN 17Q DWIMIFY2) (1427Q DWIMCHECK#ARGSFLG 1246Q BINDS 1234Q BINDS 1224Q INFO 1151Q NLAMBDA 1142Q LAMBDA 1120Q RESETVAR 1064Q FUNCTION 1032Q COND 1012Q NOFIXVARSLST0 1006Q NOFIXVARSLST0 777Q NOFIXVARSLST0 754Q SETARG 745Q RPAQ 737Q SETN 730Q SETQ 626Q SELECTQ 577Q DWIMCHECK#ARGSFLG 570Q GO 561Q QUOTE 545Q NOFIXVARSLST0 537Q NOFIXVARSLST0 525Q GLOBALVARS 517Q USEDFREE 500Q DECLARE 470Q PARTIAL 457Q * 445Q NOFIXFNSLST0 441Q NOFIXFNSLST0 366Q NLAMBDA 355Q LAMBDA 342Q DWIMEQUIVLST 301Q DWIMEQUIVLST 254Q PARTIAL 243Q CLISPRETRANFLG 222Q NLAMBDA 211Q LAMBDA 176Q DWIMEQUIVLST 107Q CLISPRETRANFLG 71Q NLAMBDA 60Q LAMBDA 45Q 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 NOSPELLFLG F 22Q TYPE-IN? F 23Q FAULTFN) 9 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²5WWð³.WWð²&Jgð³Idg ²¿Idg ©¿Wc±aI ¢±ZW´.WWð²%Wg ²IWð¢±€Wgð¢±vi_¿°BWgð²0WWð²(J¦O“O³Wg ²IWð’J˜gc¿±¥Ig µ/WœW"ið³]W"“W$²VIWWWW ²GL¢±Èh__¿±þ{Jg ð³ÉW²ÃWWð“i_¿WW ¿W¢±Hlð’±¤±ôWHð“i_¿W–WWð³tI ²VWgð²WWð²J¥O’O¨gc¿±üWgð³DW³?Wgð³7I ³1Igð³*I`ð³#WW °N³`—Ig ¨I`¿W ’±ÿeMµ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 ±ÿ<(1464Q DWIMIFY1 1453Q /RPLNODE 1436Q FIXSPELL1 1431Q CONCAT 1422Q MKSTRING 1417Q RETDWIM2 1407Q CONCAT 1404Q SUBSTRING 1375Q RETDWIM2 1334Q /RPLNODE 1314Q DWIMIFY2A 1147Q GETPROP 1127Q DWIMIFY1A 1100Q EXPRP 1003Q \DEFINEDP 730Q DWIMIFY1A 675Q GETPROP 645Q \DWIMIFYBLOCK/WTFIX0 605Q GETPROP 552Q DWIMIFY2A 455Q DWIMIFY2A 426Q CLISPNOTVARP 410Q GETPROP 375Q GETPROP 317Q LISPXPRINT 311Q LISPXPRIN1 300Q LISPXSPACES 272Q FIXPRINTIN 261Q STRPOSL 206Q GETPROP 164Q /RPLNODE 112Q DWIMIFY1) (1311Q QUIET 1230Q FORWORD 1217Q FOR1 1160Q NOFIXVARSLST0 1154Q NOFIXVARSLST0 1144Q CLISPTYPE 1137Q CLISPFLG 1115Q COMMENTFLG 1106Q E 1071Q NORUNONS 1054Q IFWORD 1041Q FOR1 1012Q FORWORD 672Q CLISPWORD 602Q CLISPWORD 570Q FOR1 547Q QUIET 515Q FORWORD 475Q FORWORD 452Q QUIET 405Q CLISPTYPE 372Q CLISPISPROP 362Q NOT 327Q IS 255Q CLISPCHARRAY 245Q NOFIXVARSLST0 235Q DWIMCHECKPROGLABELSFLG 225Q LABELS 213Q LABELS 203Q INFO 144Q NLAMBDA 136Q LAMBDA 104Q LINEAR 45Q DWIMEQUIVLST) ( 1426Q ")" 1413Q "... " 1371Q "... " 1275Q "" 305Q "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 FAULTXX F 12Q FILEPKGFLG F 13Q HISTENTRY F 14Q NOSPELLFLG F 15Q FAULTAPPLYFLG) , WSð£hc ¿Sdlð²+ X²$H ¢±”WSdlð—g ¿SX±ÛSg §Sg œS —S¸hc±¾Sg Yµ+U²O`²2`S ²)VSWhYdiX²TH ¿°- ”SX±Ž¿°U²Wið¯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ð²Oh@gð²-BRðŸC´{Pkð´vBg Agð´gPjðµbP´]P PjðªP´OP ´IBg ‘CAdšdl ’¿A€@dšdl ’¿@€ýñ¡i@´@Adšdl ’¿A€ýñ´@ch(243Q \TYPEMASK.UFN 212Q \TYPEMASK.UFN 174Q \TYPEMASK.UFN 160Q GETPROP 147Q \FZEROP 131Q \FZEROP 103Q GETP 35Q \FZEROP) (155Q UNARYOP 110Q 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) (5 WTFIX1) NIL () \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 WTFIX1) NIL () WTFIX1A0023A0024 D1 (NAME ERRORSET F 0 FAULTX F 1 FAULTFN) PQ i(4 CLISPDEC0) NIL () WTFIX1A0023A0025A0026 D1 (NAME ERRORSET F 0 FAULTEM1 F 1 FAULTFN) PQ i(5 CLISPDEC0) NIL () WTFIX1A0023A0025A0027 D1 (NAME ERRORSET F 0 FAULTEM1) i¿P ¿hh(10Q DWIMIFY1?) (3 CLISPFLG) () WTFIX1A0023A0025 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 WTFIX1A0023A0025A0027 210Q \APPEND2 155Q WTFIX1A0023A0025A0026 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 (WTFIX1A0023A0025A0027) 151Q (WTFIX1A0023A0025A0026)) WTFIX1A0023 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 NOSPELLFLG F 32Q CLISPCHANGE F 33Q DWIM.GIVE.UP.TIME F 34Q DWIM.GIVE.UP.INTERVAL F 35Q VARS F 36Q PARENT F 37Q EXPR F 40Q FAULTARGS F 41Q LISPXHIST F 42Q FILEPKGFLG F 43Q TAIL) ÜW2W6©l W8ö¿áW&˜W.gðY°Hl _¿W(“g‚g c*¿`ið©W*`¿mÿW* i c.¿JµW>]d’ c:¿IgWB _¿I²2W&³.W(›W$`ð°W$`ð©W$`ô—`_¿W(’W$…W$d[lð—K` ¼W(³W$lðš¿¿±áW(š¿¿±ÓI²-KOð²%W2ið³`L]²`—`K ¨ML ¿±¥`¢±™L¢±ÎW$]lð¢±‡Mg «Mk ]`²rMg ²Mgð²bW$` g ²LW$ ³DW$ ²;W$ ¢±&W$W$ ´WDŸOlð˜Og ¿i’±$i¸±ùL¢±8W$dgð²n¿W$ggW$²MW$d²)²AW$°d_d˜ið¬Olð•µîi¿h²!W$W$ ªW$g £W$ˆghW$h±£gðoi ¿ic$°[W$g ]¢±ÿ,g`W,c,__¿og O¿OdW,ð—¿Oc,°W, œW,kOO¿£¿W&¢±1ic4±*W$g ©W$g œW$ •hc.± W$g ]µ‚±W$ LW$d]µ‚±â`–W$]µ H’±¯W&¢±W$¢±†W$ ²~±¼dlð³¿M3²×jMó²ÒW$ ²ËMg ®M` ]`²´MW$W$i]²§KW$ð¢±r`›W$` ’±bW&²ŠK` ¼hc4¢±ÿ|±L ’±I±BH³W$²W$™W$ ’±)`‡d ]¤µ÷h²W(›W*MiW@±W*M ±þH’±L²XW$h`hW$hddi µW&´`´W$h`hW$hddi [²&OW$ð´OW$O¿h_¿K ’±¤±ýŠ`¢±¢W&²3W$².W0²)W$h`hW$hddi ²W$` WFW<]³d`²gO³cO³_W$]²XMlð²QMh`hW&”W0µW$hddi ]²5W&²W0žg oiŽMW$W$i]›Mc$¿W*W$ ¿hh(2325Q \DWIMIFYBLOCK/RETDWIM 2321Q \DWIMIFYBLOCK/RETDWIM 2303Q \DWIMIFYBLOCK/CLISPATOM 2265Q RETEVAL 2255Q \DWIMIFYBLOCK/RETDWIM0 2234Q FIXSPELL 2145Q \DWIMIFYBLOCK/CLISPATOM 2136Q DUNPACK 2123Q FIXSPELL 2045Q \DEFINEDP 2034Q /RPLNODE 2005Q FIXSPELL 1750Q FIXSPELL 1713Q \DWIMIFYBLOCK/RETDWIM 1702Q \DWIMIFYBLOCK/RETDWIM 1655Q EVAL 1640Q \DWIMIFYBLOCK/FIXLAMBDA 1607Q \DWIMIFYBLOCK/RETDWIM 1600Q WTFIXLOADEF 1562Q DUNPACK 1543Q GETHASH 1513Q \DWIMIFYBLOCK/CLISPATOM 1471Q DUNPACK 1461Q GETPROP 1450Q \DWIMIFYBLOCK/CLBINARYMINUS? 1414Q \DWIMIFYBLOCK/FIXLAMBDA 1341Q \DWIMIFYBLOCK/CLISPATOM 1331Q CLISPNOTVARP 1314Q GETPROP 1274Q DWIMUNSAVEDEF 1265Q GETPROP 1253Q GETPROP 1225Q ERROR! 1214Q NLEFT 1203Q TAILP 1147Q WTFIX1A0023A0025 1105Q GETPROP 1066Q WTFIX1A0023A0024 1046Q /RPLNODE 1022Q CLISPFUNCTION? 1007Q MEMB 1004Q FREEVARS 642Q MARKASCHANGED 616Q \DWIMIFYBLOCK/FIXLAMBDA 613Q GETD 573Q \DEFINEDP 563Q CLISPNOTVARP 552Q CLISPNOTVARP 542Q GETPROP 534Q PACK 530Q DUNPACK 505Q GETPROP 467Q NTHCHAR 461Q GETPROP 415Q \DWIMIFYBLOCK/FIX89TYPEIN 407Q STRPOSL 337Q SHOULDNT 333Q \DWIMIFYBLOCK/FIXAPPLY 321Q SHOULDNT 315Q \DWIMIFYBLOCK/FIXATOM 276Q DUNPACK 154Q MEMB 137Q \DWIMIFYBLOCK/GETVARS 120Q FINDFN 114Q FSTKNTH 62Q STKPOS 42Q CLOCK 12Q \CLOCK0) (2252Q CLISPATOM1 2210Q CLISPINFIXSPLST 2153Q CLISPFLG 2133Q WTFIXCHCONLST 2110Q CLISPISWORDSPLST 2057Q CLISPFLG 1772Q NOFIXFNSLST0 1761Q NOFIXFNSLST0 1735Q SPELLINGS2 1647Q DWIMUSERFORMS 1557Q WTFIXCHCONLST 1540Q CLISPARRAY 1532Q CLISPARRAY 1476Q CLISPCHARS 1466Q WTFIXCHCONLST1 1456Q CLISPTYPE 1353Q CLISPFLG 1311Q FILEDEF 1262Q CODE 1250Q EXPR 1156Q LCASEFLG 1144Q INTERNAL 1122Q LCASEFLG 1117Q LCASEFLG 1102Q CLISPWORD 1054Q CLISP: 1032Q X 1017Q OKVAR 706Q LAMBDA 703Q FUNCTION 672Q F/L 637Q FNS 537Q CLISPTYPE 525Q WTFIXCHCONLST1 513Q ~ 502Q UNARYOP 473Q CLISPCHARS 456Q CLISPTYPE 424Q CLISPFLG 403Q CLISPCHARRAY 377Q CLISPFLG 367Q LPARKEY 273Q WTFIXCHCONLST 240Q LISPXHISTORY 230Q LISPXHISTORY 215Q LISPXHISTORY 201Q LISPXHISTORY 147Q SIDE 104Q CLEARSTKLST 100Q CLEARSTKLST 70Q CLEARSTKLST 57Q FAULTEVAL 53Q FAULTAPPLY 31Q TYPE-IN) ( 2261Q (PROGN (SETQ CLISPRESPELL T) NIL) 1141Q (WTFIX1A0023A0025) 1062Q (WTFIX1A0023A0024)) WTFIX1 D1 (F 0 DWIMFLG) +P´(k oigµdkð‘hl/ð“(50Q ERRORX 44Q ERROR! 26Q ERRORN 21Q WTFIX1A0023 6 SETERRORN) (16Q WTFIX) ( 12Q (WTFIX1A0023)) EXPRCHECK D1 (P 0 D I 0 X F 1 DWIMFLG F 2 ADDSPELLFLG) d@dlð©o ¿°;i X ³1@ ³7Q²@lF`hdg Xµ@o ¿‰b X ›R•@j ¿@H@o h(140Q ERROR 123Q ADDSPELL 113Q EXPRP 107Q VIRGINFN 100Q ERROR 65Q MISSPELLED? 41Q \DEFINEDP 33Q EXPRP 27Q VIRGINFN 20Q ERROR) (61Q GETD 54Q USERWORDS) ( 135Q "not an expr." 75Q "not defined." 15Q "not a function.") CLISPNOEVAL D1 (P 0 TEM I 1 DEFAULT I 0 FN F 3 MACROPROPS) 0@`Xµ@ dkð¤dlð˜¿i°Ub°í³C@d`³Id`³Bg ¨@S ¢A°/`²@g Ygðµ:I´6gI´/iiŠ@d`¦`´@g ZgðµJ´ gJ´ihð(167Q GETPROP 115Q GETPROP 75Q GETLIS 67Q GETPROP 16Q ARGTYPE) (205Q EVAL 173Q EVAL 164Q INFO 155Q NLAML 150Q NLAMA 133Q NOEVAL 121Q NOEVAL 112Q INFO 104Q DWIMINMACROSFLG 64Q MACRO-FN 56Q NLAML 47Q NLAMA 6 DWIMEQUIVLST) () DWIMERRORRETURN D1 (I 0 ARG F 0 CLISPERTYPE) @“@c¿(10Q ERROR!) NIL () DWIMARKASCHANGED D1 (P 0 L I 1 $SIDES I 0 FN F 1 LISPXHIST) W@lð´PgQ H´HdAð‘hdgð«dgð¥dgð•¿HX°ß¿@gggQ “g‚g(124Q MARKASCHANGED 106Q MEMB 15Q MEMB) (121Q CLISP 115Q CHANGED 102Q *LISPXPRINT* 77Q CLISP% 74Q FNS 57Q * 51Q CLISPRPLNODE 43Q /PUTHASH 11Q SIDE) () FIXPRINTIN D1 (P 0 LISPXHIST I 1 FLG I 0 FN F 1 LISPXHIST F 2 DWIMIFYFLG F 3 DWIMIFYING F 4 FAULTAPPLYFLG) _@d²[gðhð´SA´Qi jð¥ki ¿oi R‘S¡T®`•o°oŒ`”oƒoi @idoi @(133Q LISPXPRIN1 123Q LISPXPRIN2 115Q LISPXPRIN1 47Q LISPXPRIN1 36Q LISPXSPACES 26Q POSITION) (77Q LCASEFLG 60Q LCASEFLG 6 TYPE-IN) ( 127Q "}" 111Q "BELOW " 104Q "below " 73Q "IN " 65Q "in " 43Q "{") CLISPFUNCTION? D1 (P 1 CHRLST P 0 TEM I 4 Y I 3 FN2 I 2 FN1 I 1 TYPE I 0 TL F 2 TYPE-IN? F 3 NOSPELLFLG F 4 DWIMIFYFLG F 5 NOFIXFNSLST) ñ @lð¡hAd³Egð–@ ´ð@ ³L@T“`€U³@@g ³5Sið³ÌS’R´È`@ ³½@ ¹@h`B´gB¡@€i X´ŸB²dAgð’H²u`´rR”oŽo@DlB RœHµ@DlC°oHµ@…’H€HohiB£H´gH´g ´H²B²H˜@HH@ƒ@H@¿@(353Q /RPLNODE 320Q FIXSPELL1 272Q CONCAT 224Q CONCAT 151Q MISSPELLED? 123Q UNPACK 114Q STRPOSL 67Q GETPROP 41Q CLISP-SIMPLE-FUNCTION-P 32Q CLISPNOTVARP) (314Q n 305Q MUSTAPPROVE 174Q CLISPHELPFLG 164Q QUIET 140Q NO-MESSAGE 132Q SPELLINGS2 107Q CLISPCHARRAY 64Q CLISPWORD 52Q NOFIXFNSLST0 23Q NOTVAR) ( 267Q "' meant to be used as a function" 247Q "is '" 211Q "in ... " 204Q "") CLISPNOTVARP D1 (I 0 X F 0 DWIMIFYFLG F 1 VARS F 2 NOFIXVARSLST F 3 SPECVARS F 4 DWIMIFYING F 5 FAULTPOS F 6 LOCALVARS) Q@ hð´I@Qhð´B@P“`€Rhð´5P‘T«@U hð´%@g hð´@`hð´@Vhð´@Shð(62Q GETPROP 47Q RELSTK 44Q STKSCAN 3 BOUNDP) (72Q GLOBALVARS 57Q GLOBALVAR 24Q NOFIXVARSLST0) () CLISP-SIMPLE-FUNCTION-P D1 (I 0 CARFORM) ,@ ³%@ÁÉg'³@ÁÉg'¤@ ¨@` ´i(46Q GETLIS 36Q MACRO-FUNCTION 3 \DEFINEDP) (43Q COMPILERMACROPROPS 30Q CLISPWORD 15Q EXPR) () CLISPELL D1 (P 3 X P 2 RESPELLTAIL P 1 TEM P 0 VAL I 1 TYPE I 0 FORM F 4 LISPXHIST) D@gT °2d[@Z²(KY˜JIIJƒJIJ¿A›Jg Að‘i¸µÏH(66Q GETPROP 53Q /RPLNODE 11Q MEMB) (63Q CLISPWORD 5 RESPELLS) () FINDFN D1 (P 2 TEM P 1 TOKEN P 0 NAME I 1 FLG I 0 POS F 3 EXPR F 4 TYPE-IN? F 5 BREAKFLG F 6 TAIL) ü0@µ k bd¢±æ Xgð§Hdgð”¿l°?gð²(mÿ@ Xgð¦Hgð´*lmÿ@ Z J ¿°Hgð¨Hdgð²#¿l@ YgðªIdgð¢±T¿mþ@d°‹gð²A¢±d@ Zc¿J±]Hgð§Hdgð”¿l°Agð²(mÿ@ Xgð¦Hgð´,lmÿ@ Z J ¿°HgðªHdgð¢±¢¿l@ ¹k@ c¿Igð¨Idgð²¿mþ@d±þüH c ¢±²H±Õgð’±¦Iµg±ÄgðŸA“ic ¿ic¿g±¯Idgðœ¿A“ic ¿g±›gð²Pg@ ³Bgmÿ@º@ ¿mÿJdb Xlð²BHg Z¢±ÿ{Hg µ‚±ÿnJ±ÿjg°FI›S£Ic¿g°7ic¿g°.gðšmÿ@h@±þ5Ic¿Ažl@ c¿k@ †k@ c@ ¿(770Q RELSTK 761Q STKARG 753Q STKARG 743Q STKARG 724Q REALSTKNTH 637Q GETPROP 623Q GETPROP 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) (712Q INTERNAL 705Q TYPE-IN 674Q EVAL 655Q BREAK-EXP 634Q 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)) `˜@` µ`´ @`ð´@(12Q GETHASH) (26Q CLISPTRANFLG 17Q 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 CLISPATOM2 CLISPNOEVAL CLISPLOOKUP CLISPATOM2A CLISPBROADSCOPE CLISPBROADSCOPE1 CLISPATOM2C CLISPATOM2D CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPATOMIS1 CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS2) (FNS WTFIX WTFIX0 WTFIX1 RETDWIM DWIMERRORRETURN DWIMARKASCHANGED RETDWIM0 RETDWIM1 FIX89TYPEIN FIXLAMBDA FIXAPPLY FIXATOM FIXATOM1 FIXCONTINUE FIXCONTINUE1 CLISPATOM GETVARS GETVARS1 FIX89 FIXPRINTIN FIX89A CLISPFUNCTION? CLISPNOTVARP CLISP-SIMPLE-FUNCTION-P 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 CLBINARYMINUS? CLISPANGLEBRACKETS CLISPATOM CLISPATOM0 CLISPATOM1 CLISPATOM1A CLISPATOM1B CLISPATOM2 CLISPATOM2A CLISPATOM2C CLISPATOM2D CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS1 CLISPATOMIS2 CLISPBROADSCOPE CLISPBROADSCOPE1 CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPIF CLISPIF0 CLISPIF1 CLISPIF2 CLISPIF3 CLISPLOOKUP 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 WTFIX1 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 CHECKCARATOMFLG TREATASCLISPFLG CLISPHELPFLG CLISPIFTRANFLG CLISPRETRANFLG DWIMCHECKPROGLABELSFLG DWIMCHECK#ARGSFLG SHALLOWFLG PRETTYTRANFLG CLEARSTKLST LCASEFLG LAMBDASPLST DURATIONCLISPWORDS NLAML NLAMA CLISPTRANFLG CLISPIFWORDSPLST LPARKEY DWIMUSERFORMS DWIMKEYLST SPELLINGS3 SPELLINGS1 CLISPARRAY CLISPFLG CLISPCHARS CLISPISNOISEWORDS CLISPLASTSUB CLISPISWORDSPLST CLISPCHARRAY CLISPINFIXSPLST OKREEVALST WTFIXCHCONLST1 WTFIXCHCONLST RPARKEY GLOBALVARS NOFIXFNSLST0 NOFIXVARSLST0 LISPXHISTORY DWIMEQUIVLST COMMENTFLG USERWORDS SPELLINGS2 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 1986)) NIL