(FILECREATED "23-Jul-86 01:06:21" ("compiled on " {ERIS}SOURCES>DWIMIFY.;35) "21-Jul-86 19:41:55" brecompiled changes: DWIMIFYFNS DWIMIFY DWIMIFY0 DWIMIFY0? DWIMIFY1 DWIMIFY1? DWIMIFY1A DWIMIFY2 DWIMIFY2? DWIMIFY2A CLISPLOOKUP WTFIX WTFIX1 RETDWIM DWIMERRORRETURN CLISPFOR CLISPFOR0 GETDUMMYVAR in "Xerox Lisp 21-Jul-86 ..." dated "21-Jul-86 19:53:39") (FILECREATED "23-Jul-86 01:00:53" {ERIS}SOURCES>DWIMIFY.;35 337912 changes to: (FNS DWIMIFY DWIMIFYFNS DWIMIFY0 DWIMIFY0? DWIMIFY1 DWIMIFY1? DWIMIFY1A DWIMIFY2 DWIMIFY2? DWIMIFY2A CLISPLOOKUP WTFIX GETDUMMYVAR WTFIX1 RETDWIM DWIMERRORRETURN CLISPFOR CLISPFOR0) (VARS DWIMIFYCOMS) previous date: "20-Jul-86 12:42:08" {ERIS}SOURCES>DWIMIFY.;32) \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) p3@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¿°ð(6145Q CLISPTRAN 6071Q LAST 6054Q MEMB 6040Q \NCONC2 6035Q \NCONC2 6032Q \NCONC2 6026Q \NCONC2 6023Q \NCONC2 6020Q \NCONC2 6015Q \NCONC2 6012Q \NCONC2 6007Q \NCONC2 6004Q \NCONC2 5751Q \FORBLOCK/CLISPFOR3 5735Q \FORBLOCK/CLISPFOR3 5673Q LDIFF 5652Q DREVERSE 5472Q \FORBLOCK/CLISPFOR2 5461Q \FORBLOCK/CLISPFOR2 5432Q \NCONC2 5422Q CLISPFORERR 5340Q FLAST 5332Q \FORBLOCK/CLISPFOR3 5301Q \FORBLOCK/CLISPFOR2 5214Q \NCONC2 5163Q CLISPLOOKUP 5107Q \NCONC2 5070Q CLISPLOOKUP 5043Q WARNUSER 5036Q GETDUMMYVAR 5030Q \NCONC2 4674Q CLISPLOOKUP 4646Q CLISPLOOKUP 4566Q WARNUSER 4561Q GETDUMMYVAR 4464Q \FORBLOCK/CLISPFORINITVAR 4420Q SUBPAIR 4346Q \NCONC2 4330Q \NCONC2 4307Q SUBST 4247Q \NCONC2 4203Q \FORBLOCK/CLISPFORINITVAR 4165Q SHOULDNT 4156Q \FORBLOCK/CLISPFORINITVAR 3547Q \FORBLOCK/CLISPFOR4 3537Q \APPEND2 3524Q SUBPAIR 3521Q DWIMIFY1 3516Q COPY 3450Q EVAL 3431Q SHOULDNT 3420Q GETPROP 3401Q \NCONC2 3374Q \FORBLOCK/CLISPFORF/L 3363Q SUBST 3326Q \FORBLOCK/CLISPFORF/L 3305Q SHOULDNT 3262Q CLISPLOOKUP 3175Q CLISPLOOKUP 3103Q EDITFINDP 2754Q \APPEND2 2743Q \APPEND2 2734Q MEMB 2710Q GETPROP 2664Q PRINT 2624Q RETDWIM2 2606Q PRIN1 2574Q \FORBLOCK/CLISPFOR4 2571Q GETPROP 2525Q RETDWIM 2521Q ERRORMESS1 2451Q GETPROP 2426Q GETPROP 2401Q \FORBLOCK/CLISPFOR1 2371Q GETDUMMYVAR 2331Q \FORBLOCK/CLISPFOR1 2272Q \APPEND2 2265Q \FORBLOCK/CLISPFORVARS 2247Q \APPEND2 2244Q \FORBLOCK/CLISPFORVARS 2210Q \NCONC2 2167Q \FORBLOCK/CLISPFOR0A 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) (6152Q * 6047Q SIDE 5772Q $$LP 5767Q GO 5756Q $$ITERATE 5740Q $$LP 5642Q DECLARE 5631Q PROG 5613Q COND 5600Q COND 5561Q $$ITERATE 5556Q GO 5535Q OR 5521Q OR 5505Q COND 5345Q RETURN 5322Q OR 5310Q COND 5264Q $$OUT 5261Q GO 5250Q $$OUT 5156Q + 5131Q SETQ 5014Q SETQ 5000Q GT 4774Q LT 4667Q GT 4641Q LT 4630Q MINUSP 4625Q COND 4614Q ZEROP 4611Q OR 4603Q AND 4555Q SETQ 4552Q BY 4526Q LT 4426Q CDR 4356Q SETQ 4316Q NLISTP 4300Q VAR 4261Q SETQ 4235Q NLISTP 4162Q CLISPFOR0 4136Q SETQQ 4126Q SETQ 4073Q old 4063Q OLD 4043Q old 4033Q OLD 3766Q AS 3747Q TO 3726Q ON 3705Q IN 3664Q BY 3643Q FROM 3576Q $$VAL 3573Q RETURN 3562Q $$VAL 3553Q $$VAL 3531Q PROGN 3471Q PROGN 3440Q = 3426Q CLISPFOR0 3415Q I.S.OPR 3302Q CLISPFOR0 3276Q MAP 3271Q do 3253Q MAPCON 3246Q join 3241Q MAPLIST 3233Q collect 3217Q MAPC 3211Q do 3202Q DO 3166Q MAPCONC 3160Q join 3150Q JOIN 3141Q MAPCAR 3134Q collect 3127Q SUBSET 3121Q subset 3074Q & 3067Q SETQ 3046Q do 3036Q join 3026Q collect 2727Q BIND 2705Q I.S.OPR 2702Q fcollect 2672Q collect 2566Q I.S.OPR 2454Q MODIFIER 2446Q I.S.OPR 2435Q FORWORD 2423Q CLISPWORD 2306Q ON 2300Q IN 2255Q FOR 2232Q AS 2224Q 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) ( 5417Q "too many concurrent loops " 4766Q (BY -1) 4304Q (CAR (OR (LISTP VAR) (GO $$OUT))) 3460Q (BODY I.V.) 2602Q "Possible non-terminating iterative statement: " 2515Q "No DO, COLLECT, or JOIN 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 DWIMIFYFLG F 24Q CHARLST F 25Q 89FLG F 26Q CLISPCONTEXT F 27Q NOSPELLFLG F 30Q SUBPARENT F 31Q FORMSFLG F 32Q CLISPCHANGES F 33Q TYPE-IN? F 34Q NEWTAIL F 35Q ONEFLG F 36Q CLISPCHANGE F 37Q NEXTAIL) xW(djãW"g ]´2W"dgð¢±Ž¿O ’±øW"gW"¿gg ]±Þh_¿Hµ=O¡hI´i_¿I _¿OOh _¿h_c*¿@’±aOb¿W$’±ƒ@c$±|`¢±Hg ]¢±÷Hdgð²%¿HdIðš¿O ’±—Hg¿gg ]±ƒgð”HI±ÔO ²HdO ð–¿JkØZ°eO ð²^JkÙZ°WMgð².Hg _ ¿HO ð•JkØZ°7gO hW$h °$W*³!W.ið³W.“W6²Hd`ð¦d`ð“c*¿HIð’±cIH _¢±CHgð©Hgð¢±2IkHgð¢±#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"dlð³*3¢±ÅjW"ó¢±¼O ’±¶O¢±ÑKW" ¢±¦W" ¢±œW"g ]²Mgð¢±ýšO ’±ý”W" c(X¹O d¢±ý³H_´‚±ý¥O H’±ý›W"HO O W"¿±ÿB ¢±ÿ\W"lð² W"g ’±ÿFW"k g ’±ÿ5N’±—W"¾±‘O²@lW"_µ8OœO©Jjð³"JµW"[c"¢±ei_¿h_¿±þÒ ²çN’±PW"¾±Jgð³ÅOgð³¼W"²W"²±W"g ³¦O_gggW" ²g_¿OdW"W"¿O[c"¿i_¿h_¿±þ]dgð¦dgð²¿Ogð”M\±°W"°S¿O µ$W"g _²DW"Oð²)O_ ¿JkØZ°/dW"ð–¿JkØZ°!W"ð²JkÙZ°gOhW$h ¿N³IO³!W"_¿M¼Og _¿Og _°O¢±èM¼W"g _¿W"g gð_¿W"g ¿O ´ W"O ð_¿W"[c"’±ý{@Oð²6Og ³,W$@ð¦W0d@ðž¿k@W$h ¿W0µW$k@b¿i_¿¿N_g \3¦L3²AW&²%W,²!Ng gðŸW,gð³"W,gð³OL@_¿W&¥OW$ð”Ob¿W2³!@dW$ð²¿i°MLW"O¢±ÿ.W"^±ÿ*@_¿W&•Oc>¿‡O”Oc8¿W2«W$–@dW$ð“¿@‚@_¿OµOgð³ùO@dO`hc4¿W&“hc<¿¿°Õ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±ùÓ(3135Q /RPLNODE 3126Q PACK 3043Q FLAST 3025Q \DWIMIFYBLOCK/STOPSCAN? 2774Q GETPROP 2761Q GETPROP 2732Q GETPROP 2717Q GETPROP 2666Q \NCONC2 2646Q \NCONC2 2632Q DWIMERRORRETURN 2576Q \DWIMIFYBLOCK/CLISPATOM1B 2470Q \DWIMIFYBLOCK/STOPSCAN? 2416Q \DWIMIFYBLOCK/CLISPATOM1A 2360Q GETPROP 2325Q GETPROP 2312Q \DWIMIFYBLOCK/CLISPATOM2 2300Q NLEFT 2264Q DWIMERRORRETURN 2233Q GETPROP 2160Q GETPROP 2140Q GETPROP 2124Q GETPROP 2077Q GETPROP 2064Q GETPROP 2034Q DWIMERRORRETURN 1726Q GETP 1625Q /RPLNODE 1577Q CLISPFUNCTION? 1550Q CLISPFUNCTION? 1467Q \FZEROP 1411Q NLEFT 1356Q GETPROP 1350Q NTHCHAR 1335Q GETPROP 1307Q \FZEROP 1300Q \DWIMIFYBLOCK/CLRPLNODE 1271Q PACK 1264Q PACK 1261Q LDIFF 1207Q UNPACK 1155Q GETPROP 1140Q CLISPNOTVARP 1126Q \DWIMIFYBLOCK/CLBINARYMINUS? 764Q /RPLNODE 761Q \NCONC2 673Q \FZEROP 636Q MEMB 564Q NLEFT 525Q PACK 522Q LDIFF 441Q DWIMERRORRETURN 377Q GETPROP 301Q GETPROP 256Q \DWIMIFYBLOCK/CLUNARYMINUS? 224Q GETPROP 144Q \NCONC2 130Q PACK 75Q GETPROP 63Q /RPLNODE 44Q \DWIMIFYBLOCK/CLUNARYMINUS? 17Q GETPROP) (3153Q ' 3112Q ~ 2777Q NOT 2771Q LISPFN 2756Q BROADSCOPE 2735Q NOT 2727Q LISPFN 2714Q BROADSCOPE 2606Q NOFIXVARSLST0 2566Q CERTAINLY 2404Q FOR/BIND 2374Q FORWORD 2365Q FORWORD 2355Q CLISPWORD 2322Q CLISPTYPE 2230Q UNARYOP 2155Q CLISPCLASS 2143Q NOT 2135Q LISPFN 2121Q BROADSCOPE 2074Q LISPFN 2061Q BROADSCOPE 2016Q BRACKET 1723Q CLISPBRACKET 1674Q : 1663Q => 1655Q -> 1604Q CERTAINLY 1570Q \DWIMIFYBLOCK/CLISPATOM1A0004 1565Q \DWIMIFYBLOCK/CLISPATOM1A0003 1562Q NOTVAR 1545Q OKVAR 1521Q : 1510Q ' 1353Q CLISPTYPE 1332Q CLISPTYPE 1166Q BRACKET 1152Q CLISPTYPE 631Q SEPARATOR 611Q - 602Q +- 570Q E 551Q +- 542Q + 501Q RPARKEY 472Q LPARKEY 423Q BRACKET 374Q CLISPBRACKET 364Q BRACKET 310Q ' 276Q CLISPTYPE 273Q +- 266Q +- 237Q - 221Q CLISPTYPE 207Q CLISPCHARS 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)) GA”@ @¸Hd`ð’h²Hdgð¥dgð—¿HA ¿hµ HX´ °ÐHh (104Q \NCONC2 62Q \DWIMIFYBLOCK/CLISPATOMARE1 10Q LAST) (51Q OR 43Q AND 22Q 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 ÿOÿ F 10Q NOFIXFNSLST F 11Q NOFIXVARSLST) mV«WoihWW@B X@²GB³DA³Ai 1gIhhUc ºog £g¼Jc ¿gJ ¿L“¿i H(151Q TERPRI 143Q ERROR! 135Q APPLY 111Q DWIMIFYA0014 56Q OUTPUT 37Q DWIMIFY0 16Q LISPXPRIN1) (126Q OUTPUT 115Q ERROR 106Q INTERNAL 64Q OUTPUT 32Q NOFIXVARSLST0 25Q NOFIXFNSLST0) ( 103Q (DWIMIFYA0014) 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 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 NOSPELLFLG F 20Q ONLYSPELLFLG F 21Q ONEFLG F 22Q TYPE-IN?) Ë W´‚±yW‘ Wið§WdWð—¿Wc¿W`µWºh[\½Wµ±6Yd²;¿Wgð¤I ¿W¢±µWWð¢±¬Jgð¨Jgð¢±WdW ±Žlð¢±‡W’±Jg _gð’±pO™gO’±bI ¢±ZW´.WWð²%Wg ²IWð¢±€Wgð¢±vi_¿°BWgð²0WWð²(J¦O“O³Wg ²IWð’J˜gc¿±¥Ig µ/W œWið³]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³?W gð³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 ±ÿ<(1306Q DWIMIFY1 1275Q /RPLNODE 1260Q FIXSPELL1 1253Q CONCAT 1244Q MKSTRING 1241Q RETDWIM2 1231Q CONCAT 1226Q SUBSTRING 1217Q RETDWIM2 1156Q /RPLNODE 1136Q DWIMIFY2A 771Q GETPROP 751Q DWIMIFY1A 722Q EXPRP 625Q \DEFINEDP 552Q DWIMIFY1A 517Q GETPROP 467Q \DWIMIFYBLOCK/WTFIX0 427Q GETPROP 374Q DWIMIFY2A 277Q DWIMIFY2A 250Q CLISPNOTVARP 214Q GETPROP 164Q /RPLNODE 112Q DWIMIFY1) (1133Q QUIET 1052Q FORWORD 1041Q FOR1 1002Q NOFIXVARSLST0 776Q NOFIXVARSLST0 766Q CLISPTYPE 761Q CLISPFLG 737Q COMMENTFLG 730Q E 713Q NORUNONS 676Q IFWORD 663Q FOR1 634Q FORWORD 514Q CLISPWORD 424Q CLISPWORD 412Q FOR1 371Q QUIET 337Q FORWORD 317Q FORWORD 274Q QUIET 235Q LABELS 221Q LABELS 211Q INFO 144Q NLAMBDA 136Q LAMBDA 104Q LINEAR 45Q DWIMEQUIVLST) ( 1250Q ")" 1235Q "... " 1213Q "... " 1117Q "") \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 FAULTFN F 6 FAULTARGS F 7 TYPE-IN? F 10Q FILEPKGFLG F 11Q FAULTAPPLYFLG) Ü USð£hc¿Sdlð²) X²"H ²BWSdlð—g ¿SX±Sg §Sg ›S –S¸hc °rSg Yµ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 () WTFIX1A0023 D1 (NAME ERRORSET F 0 FAULTX F 1 FAULTFN) PQ i(4 CLISPDEC0) NIL () WTFIX1A0024 D1 (NAME ERRORSET F 0 FAULTEM1 F 1 FAULTFN) PQ i(5 CLISPDEC0) NIL () WTFIX1 D1 (P 21Q CLISPERTYPE P 20Q EXPR P 17Q TYPE-IN? P 16Q 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 FAULTPOS F 24Q DWIMIFYFLG F 25Q FAULTAPPLYFLG F 26Q FAULTFN F 27Q CLISPCONTEXT F 30Q NOSPELLFLG F 31Q CLISPCHANGE F 32Q DWIMFLG F 33Q DWIM.GIVE.UP.TIME F 34Q DWIM.GIVE.UP.INTERVAL F 35Q PARENT F 36Q FAULTARGS F 37Q EXPR F 40Q VARS F 41Q LISPXHIST F 42Q TAIL F 43Q FILEPKGFLG) fW4´‚±_W0W6©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ð²%W0ið³`L]²`—`K ¨ML ¿±¨`¢±œL¢±-W$]lð¢±ŠMg «Mk ]`²uMg ²Mgð²eW$` g ²OW$ ³GW$ ²>W$ ¢±…W$W$ ´WFŸOlð˜Og ¿i’±Vi¸`±‡L¢±”W$dgð²t¿W$ggW$²MW$d²)²AW$°d_d˜ið¬Olð•µîi¿h²!W$W$ ªW$g £W$ˆghW$h¿W&W$ gðœoi ¿i±®W$g ]¢±ÿ$Mdgð²¿W$ µ‚±‰±ƒdgð¿W$ c$¿h_°pdgð›¿W$d °^gð²JW$W$]dgðš¿oi ¿M`ð“M]€M¤MµM ] ¿W$ ¿W$M ŽM_¿W$kOc$¿W(“ic2¿W&W$ W$g ©W$g œW$ •hc,±ÜW$g ]µ‚±ÄW$ LW$d]µ‚±¤`–W$]µ'H’±þWW(¢±ªW$¢±¡W$ ¢±˜W&W$ dlð³¿M3²ÐjMó²ËW$ ²ÄMg ®M` ]`²MW$W$i]² KW$ð²#`™W$` ³W(²‡K` ¼hc2¢±ÿyMc$¿W&W$ c$¿W&W$ ³/¿W&W$ H’±ý¥W$¢±ýW$¢±ý“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$².W.²)W$h`hW$hddi ²W$` WDW:]³d`²gO³cO³_W$]²XMlð²QMh`hW(”W.µW$hddi ]²5W(²W.žg oiŽMW$W$i]›Mc$¿W&W$ ¿h(2542Q \DWIMIFYBLOCK/RETDWIM 2536Q \DWIMIFYBLOCK/RETDWIM 2520Q \DWIMIFYBLOCK/CLISPATOM 2502Q RETEVAL 2472Q \DWIMIFYBLOCK/RETDWIM0 2451Q FIXSPELL 2362Q \DWIMIFYBLOCK/CLISPATOM 2353Q DUNPACK 2340Q FIXSPELL 2262Q \DEFINEDP 2251Q /RPLNODE 2222Q FIXSPELL 2165Q FIXSPELL 2130Q \DWIMIFYBLOCK/RETDWIM 2117Q \DWIMIFYBLOCK/RETDWIM 2072Q EVAL 2064Q \DWIMIFYBLOCK/RETDWIM 2051Q \DWIMIFYBLOCK/FIXLAMBDA 2013Q \DWIMIFYBLOCK/RETDWIM 2003Q \DWIMIFYBLOCK/RETDWIM 1776Q WTFIXLOADEF 1772Q \DWIMIFYBLOCK/RETDWIM 1757Q \DWIMIFYBLOCK/RETDWIM 1734Q DUNPACK 1717Q GETHASH 1671Q \DWIMIFYBLOCK/CLISPATOM 1647Q DUNPACK 1637Q GETPROP 1626Q \DWIMIFYBLOCK/CLBINARYMINUS? 1576Q \DWIMIFYBLOCK/RETDWIM 1563Q \DWIMIFYBLOCK/FIXLAMBDA 1510Q \DWIMIFYBLOCK/CLISPATOM 1500Q CLISPNOTVARP 1463Q GETPROP 1443Q DWIMUNSAVEDEF 1434Q GETPROP 1422Q GETPROP 1410Q \DWIMIFYBLOCK/RETDWIM 1351Q CLISPTRAN 1342Q CLISPELL 1334Q DWIMIFY1? 1330Q \APPEND2 1276Q WTFIX1A0024 1233Q CLISPTRAN 1230Q MAKEMATCH 1203Q \DWIMIFYBLOCK/CLISPIF 1164Q \DWIMIFYBLOCK/RETDWIM 1153Q CLISPFOR 1125Q GETPROP 1107Q WTFIX1A0023 1071Q \DWIMIFYBLOCK/RETDWIM 1061Q /RPLNODE 1035Q CLISPFUNCTION? 1022Q MEMB 1017Q FREEVARS 652Q MARKASCHANGED 626Q \DWIMIFYBLOCK/FIXLAMBDA 623Q GETD 603Q \DEFINEDP 573Q CLISPNOTVARP 562Q CLISPNOTVARP 552Q GETPROP 544Q PACK 540Q DUNPACK 515Q GETPROP 477Q NTHCHAR 471Q GETPROP 425Q \DWIMIFYBLOCK/FIX89TYPEIN 417Q STRPOSL 347Q SHOULDNT 343Q \DWIMIFYBLOCK/FIXAPPLY 331Q SHOULDNT 325Q \DWIMIFYBLOCK/FIXATOM 306Q DUNPACK 164Q MEMB 147Q \DWIMIFYBLOCK/GETVARS 130Q FINDFN 124Q FSTKNTH 72Q STKPOS 52Q CLOCK 22Q \CLOCK0) (2467Q CLISPATOM1 2425Q CLISPINFIXSPLST 2370Q CLISPFLG 2350Q WTFIXCHCONLST 2325Q CLISPISWORDSPLST 2274Q CLISPFLG 2207Q NOFIXFNSLST0 2176Q NOFIXFNSLST0 2152Q SPELLINGS2 1731Q WTFIXCHCONLST 1714Q CLISPARRAY 1706Q CLISPARRAY 1654Q CLISPCHARS 1644Q WTFIXCHCONLST1 1634Q CLISPTYPE 1522Q CLISPFLG 1460Q FILEDEF 1431Q CODE 1417Q EXPR 1306Q COMMENTFLG 1263Q CLISP: 1240Q PREFIXFN 1217Q MATCHWORD 1173Q IFWORD 1142Q FORWORD 1122Q CLISPWORD 1075Q CLISP: 1045Q X 1032Q OKVAR 721Q LAMBDA 716Q FUNCTION 705Q F/L 666Q DWIMUSERFORMS 647Q FNS 547Q CLISPTYPE 535Q WTFIXCHCONLST1 523Q ~ 512Q UNARYOP 503Q CLISPCHARS 466Q CLISPTYPE 434Q CLISPFLG 413Q CLISPCHARRAY 407Q CLISPFLG 377Q LPARKEY 303Q WTFIXCHCONLST 250Q LISPXHISTORY 240Q LISPXHISTORY 225Q LISPXHISTORY 211Q LISPXHISTORY 157Q SIDE 114Q CLEARSTKLST 110Q CLEARSTKLST 100Q CLEARSTKLST 67Q FAULTEVAL 63Q FAULTAPPLY 41Q TYPE-IN) ( 2476Q (PROGN (SETQ CLISPRESPELL T) NIL) 1272Q (WTFIX1A0024) 1103Q (WTFIX1A0023)) EXPRCHECK D1 (P 0 D I 0 X F 1 ADDSPELLFLG) f@dlð©o ¿°=i X ³3@ ³9`²@lF`hdg Xµ@o ¿‰b X ›Q•@j ¿@H@o h(142Q ERROR 125Q ADDSPELL 115Q EXPRP 111Q VIRGINFN 102Q ERROR 67Q MISSPELLED? 41Q \DEFINEDP 33Q EXPRP 27Q VIRGINFN 20Q ERROR) (63Q GETD 56Q USERWORDS 46Q DWIMFLG) ( 137Q "not an expr." 77Q "not defined." 15Q "not a function.") CLISPNOEVAL D1 (P 0 TEM I 1 DEFAULT I 0 FN) e @`Xµ-@gYgðµI´ gI´ihð´>@ dkð¤dlð–ib°Ó³@ÁÉg'§@` •`hðA@`µ@`(115Q GETLIS 52Q ARGTYPE) (141Q NLAML 132Q NLAMA 121Q DWIMINMACROSFLG 112Q COMPILERMACROPROPS 104Q MACRO-FN 35Q EVAL 23Q EVAL 16Q INFO 6 DWIMEQUIVLST) () DWIMERRORRETURN D1 (I 0 ARG F 0 CLISPERTYPE) @“@c¿(10Q RETDWIM) 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³Cgð–@ ´ð@ ³J@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@¿@(351Q /RPLNODE 316Q FIXSPELL1 270Q CONCAT 222Q CONCAT 147Q MISSPELLED? 121Q UNPACK 112Q STRPOSL 41Q CLISP-SIMPLE-FUNCTION-P 32Q CLISPNOTVARP) (312Q n 303Q MUSTAPPROVE 172Q CLISPHELPFLG 162Q QUIET 136Q NO-MESSAGE 130Q SPELLINGS2 105Q CLISPCHARRAY 64Q CLISPWORD 52Q NOFIXFNSLST0 23Q NOTVAR) ( 265Q "' meant to be used as a function" 245Q "is '" 207Q "in ... " 202Q "") CLISPNOTVARP D1 (I 0 X F 0 DWIMIFYFLG F 1 VARS F 2 FAULTPOS F 3 NOFIXVARSLST F 4 DWIMIFYING) S@ hð´K@Qhð´D@P“`€Shð´7P‘T«@R hð´'@ghð´@`hð´@`hð´ @`hð(47Q RELSTK 44Q STKSCAN 3 BOUNDP) (114Q SPECVARS 102Q LOCALVARS 70Q 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) B@gT °0d[@Z²&KY˜JIIJƒJIJ¿A™JgAð‘i¸µÑH(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ð¢±P¿mþ@d°‹gð²A¢±`@ Zc¿J±YHgð§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ð²Lg@ ³>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 (I 0 X) ;`–@`µ0`´+@`ð´#@`¤`²@d ¿@d@¿(67Q /RPLNODE 52Q CLISPTRAN) (41Q #CLISPARRAY 35Q CLISPARRAY 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 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