(FILECREATED "14-Aug-84 19:57:12" ("compiled on " {ERIS}SOURCES>DWIMIFY.;12) "14-Aug-84 14:49:32" brecompiled changes: CLISPFOR CLISPFORVARS in "INTERLISP-D 14-Aug-84 ..." dated "14-Aug-84 11:56:06") (FILECREATED "14-Aug-84 19:34:41" {ERIS}SOURCES>DWIMIFY.;12 256501 changes to: (FNS CLISPFOR CLISPFORVARS) previous date: "14-Aug-84 16:47:22" {ERIS}SOURCES>DWIMIFY.;11) \FORBLOCK/CLISPFORVARS D1 (L (0 PTRS) P 0 CLISPCONTEXT F 11Q VARS F 12Q I.S.TYPE F 13Q MAKEPROGFLG F 14Q I.V. F 15Q INITVARS F 16Q UNDOLST F 17Q FIRSTI.V. F 20Q IVINITFLG) Æ g@½@[\¿LdMð’±jlð²'`¢±àgL ¢±ÔLKhid Y¢±ÆI±ÃLd¢±¶dgð’±®dgð’±¥dgð¥dgð¿LLi±‹¿Lgð²L³LgLL±ÿu`²BL_µh°lð²,gO ²!i²#LMKð ¿Ld²4d³/d°'O°ÄLKð›MLð–Li W¢±gLW ‚ ¿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²oic¿IWc¿O³6I_¿@dgð³%dgð•¿ic °gð›@Oih…g ¿J—IWc¿„IN¾LIgIhLWc…Ih ¿L±þ¹LgLL¿L½@gLc@h@¿LKð¢±þŒKd¢±þ…dgð³%dgð³dgð³dgð®dgð¨dgð¢±þP¿i±þM(1153Q /RPLNODE 1131Q CLISPFORERR 1052Q SHOULDNT 466Q DREVERSE 405Q CLISPFORERR 401Q CLISPFORERR 364Q \FORBLOCK/CLISPFORVARS1 315Q \FORBLOCK/CLISPFORVARS1 277Q STRPOS 172Q DWIMIFY2 76Q DWIMIFY2 61Q STRPOS) (1272Q SAVESETQQ 1264Q SAVESETQ 1256Q old 1247Q OLD 1240Q SETQQ 1231Q SETQ 1162Q I.S.TYPE 1143Q DO 1101Q _ 1047Q CLISPFORVARS 1026Q AS 1013Q FOR 1004Q BIND 727Q QUOTE 717Q SETQ 707Q SAVESETQQ 701Q SETQQ 667Q SAVESETQ 661Q SETQ 626Q AS 542Q old 534Q OLD 502Q old 474Q OLD 446Q BIND 271Q _ 243Q CLISPFLG 223Q SETQ 205Q _ 155Q SAVESETQ 147Q SETQ 136Q SAVESETQQ 125Q SETQQ 54Q _ 45Q CLISPFLG 2 FOR/BIND) () \FORBLOCK/CLISPFOR0 D1 (P 57Q VARS P 50Q I.S.OPRSLST P 33Q UNDOLST P 22Q TERMINATEFLG P 21Q MAKEPROGFLG P 20Q INITVARS P 17Q PROGVARS P 16Q IVINITFLG P 15Q FIRSTI.V. P 14Q I.V. P 13Q I.S.TYPE1 P 5 I.S.TYPE P 4 DWIMIFYCHANGE P 3 VARS P 2 DUMMYVARS I 0 EXP F 63Q VARS F 64Q DWIMIFYFLG F 65Q HISTENTRY F 66Q LISPXHIST) 3@o`oWf ôð!Ð.Wh`¿`¿H_dlð’±™±"¢±ONgð¢±`²"OHð²ONd¡_THð¨HOTH¿ONggð’±ßNµ;ORµ*ONd³>_dgð³W¿Ngð²aNdNð²3°=HN¸h_R¿±ÿs³ÅNHh ¿°»_g_Nµ‚±ÿd±Ng¿Ogð¢±ÆgHh^±ËOg_RµOdg²Û¿@ ±F³OR¨hHh^±ŸOHh^±•M³O_¿gH]h^±Odgð² ¿HMð²O_¿MHH¿Nh±\Ogð²;Hgð§Hgð²,O8³(O_¿gH]h¾gO _g¿O_8±MHg±Odgð³%dgð³dgð³dgð®dgð¨dgð¢±gð›gH_8h±»Odgð²"¿OBµOD_™OHg¿gH_>h±’gð²$O>µO@µOD_™OHg¿gH_Bh°iOdgð²%¿O>µO@µOB_™OHg¿gH_Dh°=gð² OBµOD_™OHg¿gH_@h°Ogð™gH_Fh…g ^O _²O<ONg¿ONh _¿Hd’±…¿@Wj ¢±xgi ¿i ¿@i °Ìgð²RO$³OBµODµO.µO@_$¿O8³ O<³O³O>©OB¦OD£O@´i __¿h_B_D_>_@_F¿gH_¨OB¥OD¢O@–i _¿O _µûMd²,d³&g_gðžOggð’M€Mh€_¿O.³xO0³tM³`¨o@ ¿¿±îO@³YOB’±OD’±‡`³HO$³DOg ³9oi ¿02@°dhk_`¿Obµ O`h_d‚O`&_b¿µãOdid¿Ogð¢±FggX¢±:OH_X¿gOX _ _¿KO [±*O>³ÅO<³ÁO³¼O ³¸O"³´OH³°OL³¬OJ³¨Ogð³Ogð©Odgð²’¿O,³‹OD²OgOgh ’±ÿsOB²HOdgð•¿g°ngð”g°dOgð¨Odgðœ¿gOB °Hgð§Ogð²5g°6OD²,Odgð•¿g°$gð›gOD °Ogð“g…g OBµODOOO:h¸OF¢±`HOOBµODOFhOO:h ±_@_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±gO*h±‚O>²OO_µ8OO> ¿i_¿O@¢±OFdd¥d¡²¿jOFó¢±µg±²OO>h°É²rggi OF hh_F¿gOggOhggOhgO OO@hhigO OO@hhhhh°3O>d¡²$O@d¡²O@O>ýñšo_F¿g‚g_¿O³O gOkhh _ ¿O@ hO_¿O.Od®O OOhh _.¿OF¦O>£O@²GO(gOO>³O@³OFdd¥d¡²¿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’±ümo ±übO2 _2¿±ÿ}O2hh_0¿O. _.µ#O, _,µ O.²VgO.°Fd²¿gO,°d—¿gO.€O2_.¿°Ígghh_,¿O.šgO.O,h†gO,hO_¿gOO:´7g02O: °!d_ZOZ _`šObµuO`_d_b¿µàOdhO OLd’ gO&OJd’ OghO0O(gghhO4 X¿gWl _¿O6°+ _bO`°‹d_\O\¿O\O\¿O\O µ µà@H @g¿°ð(6242Q CLISPTRAN 6227Q FASSOC 6164Q LAST 6147Q MEMB 6133Q \NCONC2 6130Q \NCONC2 6125Q \NCONC2 6121Q \NCONC2 6116Q \NCONC2 6113Q \NCONC2 6110Q \NCONC2 6105Q \NCONC2 6102Q \NCONC2 6077Q \NCONC2 6044Q \FORBLOCK/CLISPFOR3 6030Q \FORBLOCK/CLISPFOR3 5766Q LDIFF 5745Q DREVERSE 5565Q \FORBLOCK/CLISPFOR2 5554Q \FORBLOCK/CLISPFOR2 5525Q \NCONC2 5515Q CLISPFORERR 5433Q FLAST 5425Q \FORBLOCK/CLISPFOR3 5374Q \FORBLOCK/CLISPFOR2 5307Q \NCONC2 5256Q CLISPLOOKUP 5170Q \NCONC2 5151Q CLISPLOOKUP 5124Q WARNUSER 5117Q GETDUMMYVAR 5111Q \NCONC2 4745Q CLISPLOOKUP 4717Q CLISPLOOKUP 4637Q WARNUSER 4632Q GETDUMMYVAR 4525Q \FORBLOCK/CLISPFORINITVAR 4461Q SUBPAIR 4407Q \NCONC2 4371Q \NCONC2 4350Q SUBST 4310Q \NCONC2 4244Q \FORBLOCK/CLISPFORINITVAR 4226Q SHOULDNT 4217Q \FORBLOCK/CLISPFORINITVAR 3617Q FASSOC 3606Q \FORBLOCK/CLISPFOR4 3576Q \APPEND2 3563Q SUBPAIR 3560Q DWIMIFY1 3555Q COPY 3507Q EVAL 3470Q SHOULDNT 3442Q \NCONC2 3435Q \FORBLOCK/CLISPFORF/L 3424Q SUBST 3367Q \FORBLOCK/CLISPFORF/L 3346Q SHOULDNT 3323Q CLISPLOOKUP 3236Q CLISPLOOKUP 3144Q EDITFINDP 3015Q \APPEND2 3004Q \APPEND2 2775Q MEMB 2727Q PRINT 2667Q RETDWIM2 2651Q PRIN1 2637Q \FORBLOCK/CLISPFOR4 2571Q ERROR! 2565Q ERRORMESS1 2451Q \FORBLOCK/CLISPFOR1 2441Q GETDUMMYVAR 2401Q \FORBLOCK/CLISPFOR1 2342Q \APPEND2 2335Q \FORBLOCK/CLISPFORVARS 2317Q \APPEND2 2314Q \FORBLOCK/CLISPFORVARS 2250Q \FORBLOCK/CLISPFOR0A 2226Q \NCONC2 2217Q ERROR! 2213Q ERRORMESS1 2166Q ERROR! 2162Q ERRORMESS 1464Q GETDUMMYVAR 1372Q \NCONC2 1367Q READLINE 1361Q PEEKC 1354Q PRIN1 1341Q EQUAL 1317Q \NCONC2 1306Q CLISPFORERR 1262Q FASSOC 1253Q SHOULDNT 1210Q CLISPFORERR 1144Q CLISPFORERR 1070Q CLISPFORERR 1017Q CLISPFORERR 636Q FASSOC 545Q /RPLNODE 427Q \FORBLOCK/\DURATIONTRAN 350Q CLISPFORERR 305Q \NCONC2 262Q \FORBLOCK/CLISPFOR0A 156Q /RPLNODE 20Q \APPEND2) (6247Q * 6142Q SIDE 6065Q $$LP 6062Q GO 6051Q $$ITERATE 6033Q $$LP 5735Q DECLARE 5724Q PROG 5706Q COND 5673Q COND 5654Q $$ITERATE 5651Q GO 5630Q OR 5614Q OR 5600Q COND 5440Q RETURN 5415Q OR 5403Q COND 5357Q $$OUT 5354Q GO 5343Q $$OUT 5251Q + 5212Q SETQ 5075Q SETQ 5061Q GT 5055Q LT 4740Q GT 4712Q LT 4701Q MINUSP 4676Q COND 4665Q ZEROP 4662Q OR 4654Q AND 4626Q SETQ 4623Q BY 4577Q LT 4467Q CDR 4417Q SETQ 4357Q NLISTP 4341Q VAR 4322Q SETQ 4276Q NLISTP 4223Q CLISPFOR0 4177Q SETQQ 4167Q SETQ 4134Q old 4124Q OLD 4104Q old 4074Q OLD 4027Q AS 4010Q TO 3767Q ON 3746Q IN 3725Q BY 3704Q FROM 3637Q $$VAL 3634Q RETURN 3623Q $$VAL 3612Q $$VAL 3570Q PROGN 3530Q PROGN 3477Q = 3465Q CLISPFOR0 3456Q I.S.OPR 3343Q CLISPFOR0 3337Q MAP 3332Q do 3314Q MAPCON 3307Q join 3302Q MAPLIST 3274Q collect 3260Q MAPC 3252Q do 3243Q DO 3227Q MAPCONC 3221Q join 3211Q JOIN 3202Q MAPCAR 3175Q collect 3170Q SUBSET 3162Q subset 3135Q & 3130Q SETQ 3107Q do 3077Q join 3067Q collect 2770Q BIND 2750Q I.S.OPR 2745Q fcollect 2735Q collect 2633Q I.S.OPR 2620Q DWIMESSGAG 2554Q DWIMESSGAG 2517Q MODIFIER 2513Q I.S.OPR 2503Q FORWORD 2473Q CLISPWORD 2356Q ON 2350Q IN 2325Q FOR 2302Q AS 2274Q BIND 2202Q DWIMESSGAG 2150Q DWIMESSGAG 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 ... 1303Q TWICE 1250Q CLISPFOR0 1236Q BY 1231Q by 1214Q TO 1205Q BOTH 1163Q to 1150Q ON 1141Q BOTH 1112Q on 1074Q IN 1065Q BOTH 1037Q in 1023Q FROM 1014Q BOTH 771Q from 752Q FOR 745Q for 735Q by 727Q to 721Q on 712Q in 703Q from 674Q for 663Q BOTH 643Q FOR 631Q I.S.TYPE 620Q I.S.TYPE 601Q suchthat 572Q SUCHTHAT 562Q thereis 516Q do 477Q I.S.TYPE 417Q \DURATIONTRAN 403Q I.S.OPR 366Q ORIGINAL 356Q original 345Q MISSING 320Q CLISPWORD 234Q ORIGINAL 223Q original 171Q MODIFIER 165Q I.S.OPR 115Q LCASEFLG 105Q FORWORD 51Q NOFIXVARSLST0 46Q NOFIXVARSLST 42Q NOFIXFNSLST0 37Q NOFIXFNSLST 7 CLISPDUMMYFORVARS) ( 5512Q "too many concurrent loops " 5047Q (BY -1) 4345Q (CAR (OR (LISTP VAR) (GO $$OUT))) 3517Q (BODY I.V.) 2645Q "Possible non-terminating iterative statement: " 2561Q "No DO, COLLECT, or JOIN in:" 2207Q "No operator in:" 13Q (I.V. BODY $$VAL) 4 ($$LST1 $$LST2 $$LST3 $$LST4 $$LST5 $$LST6)) \FORBLOCK/CLISPFOR2 D1 (L (1 FLG 0 LST)) t@ b°hdHdgðŸ¿HA³Md °Hdgð²¿HAšd °2H°*dgð¥dgðœ¿Hd °dgð¥dgð˜¿Hdµ™@(124Q NEGATE 70Q NEGATE 42Q NEGATE 3 DREVERSE) (140Q REPEATUNTIL 132Q UNTIL 107Q REPEATWHILE 101Q WHILE 50Q UNLESS 22Q WHEN) () \FORBLOCK/CLISPFORINITVAR D1 (L (0 VAR) I 1 EXP F 0 PROGVARS F 1 INITVARS) AhPcQg@Phh c(33Q \NCONC2 2 GETDUMMYVAR) (16Q SETQ) () \FORBLOCK/CLISPDSUBST D1 (L (0 X) F 2 BODY F 3 I.V.) U @°%dYdgð•¿IR°gð“ISˆI•I ¿µÜ@`X´!@ggð@h`¿@ ƒH h(121Q \FORBLOCK/CLISPDSUBST 114Q DWIMIFY1 107Q PUTHASH 46Q \FORBLOCK/CLISPDSUBST) (104Q CLISPARRAY 75Q CHANGETRAN 70Q CLISPWORD 57Q CLISPARRAY 27Q I.V. 14Q BODY) () \FORBLOCK/\CLISPKEYWORDPROCESS D1 (L (1 WORDLST 0 FORM)) E@d A›A@ @@¡@AHšH@Y§HX°õI²AI @I I @(100Q \NCONC2 72Q LDIFF 65Q SET 17Q SET) NIL () \FORBLOCK/CLISPFORF/L D1 (L (2 DECLARELST 1 VAR) I 0 EXP) vgB³.A@ ²%@³!@ ³@g®@` ¤@°AgAB²7g@B °d[K X–IµHZY¿µçJ@ˆ YH°ï@h(150Q LAST 121Q LDIFF 102Q DREVERSE 53Q GETLIS 30Q \DEFINEDP 14Q EQUAL) (73Q DECLARE 64Q LAMBDA 50Q MACROPROPS 40Q CLISPWORD 2 FUNCTION) () \FORBLOCK/CLISPFOR4 D1 (L (0 X) F 1 MAKEPROGFLG F 2 TERMINATEFLG) V@dgð³dgð³dgð«dgð¥dgð—¿icdcgð³%@°dHdgð–¿ic¿h†´H ¤µâh(114Q \FORBLOCK/CLISPFOR4) (74Q $$VAL 54Q PROG 37Q RETEVAL 31Q RETFROM 23Q ERROR! 14Q RETURN 5 GO) () \FORBLOCK/CLISPFORVARS1 D1 (L (1 FLG 0 L)) 2@X¡hoH ²Hdlðœ@hAi @ … ¿H°Õ(53Q \FORBLOCK/CLISPFORVARS1 46Q TAILP 42Q DWIMIFY2 20Q STRPOS) NIL ( 13Q "_") \FORBLOCK/CLISPFOR3 D1 (L (0 LST)) 30@ °dXµHhY–JµI[Z¿µæK ZI°ó(54Q LAST 11Q DREVERSE) NIL () \FORBLOCK/CLISPFOR1 D1 (L (1 FLG 0 PTRS) P 6 BODY F 13Q UNDOLST F 14Q I.S.TYPE F 15Q I.V. F 16Q MAKEPROGFLG F 17Q I.S.OPRSLST F 20Q FIRSTI.V. F 21Q DUMMYVARS F 22Q I.S.TYPE1) @@’ @dgð³dgðdgð§dgð¡d¢¿°sdgð¥dgð•¿A³°agðš@c¿°QHgð©Hdgðš¿W³#ic¿°g\gð²"Lggð²HZdIð²¿HIg¿Hµí@Ið¢±ËJd³{¿@gð³a@gð³X@gð³O@gð³FJg [²ghgg lð’±ÿjOo ¿±ÿ]d_ g_–O_µµëLµO‚_lð²íOO ð³åO O ¿°Û(653Q /RPLACA 560Q ERROR 537Q EVAL 534Q LISTGET 526Q GETDEF 465Q SUBPAIR 260Q ERROR 213Q \CanonicalizeTimerUnits 156Q CONSTANTEXPRESSIONP 150Q ERROR 126Q ERROR 70Q \FORBLOCK/\CLISPKEYWORDPROCESS 56Q ERRORX 52Q SETERRORN) (573Q 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) ( 555Q "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/CL89CHECK D1 (L (0 X) F 0 89FLG F 1 CURRTAIL F 2 TYP) 8P´5Q´2@lð´+Rgð—@ hð´@ ´QPjP Ù´c(62Q DWIMERRORRETURN 55Q \DWIMIFYBLOCK/FIX89A 51Q LENGTH 36Q CLISPNOTVARP 26Q RECORDFIELD?) (20Q :) () \DWIMIFYBLOCK/CLBINARYMINUS? D1 (L (1 MINUSTAIL 0 $TAIL) F 0 TAIL F 1 PARENT F 2 TYPE-IN?) ŒPQð´‚±„P³)Pd¥d¡³Plð´hP hð´_P hð´WR³@`´O@@@gð´@ h@dgð ooi´AhðµAgA A(211Q /RPLNODE 203Q MINUS 163Q FIXSPELL1 145Q \NCONC2 142Q RETDWIM2 121Q RETDWIM2 60Q CLISPFUNCTION? 50Q CLISPNOTVARP) (176Q - 132Q - 107Q - 72Q CLISPHELPFLG) ( 157Q " " 153Q "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 TYPE-IN? F 2 FAULTX F 3 CLISPCHANGES F 4 ONLYSPELLFLG F 5 FAULTXX F 6 CHARLST F 7 FAULTPOS) Thð´‚±”S³*`ið«`gð²Q²@ABµsS´pU` ch@gð²^gg²U@²%g@ h¸A²@ABð©AHA¿°2¿°,Ad¦¿¿°!BðšAgAAAgAhXAHC³™`ið³’`’Q´Œ`@X«`@X´‚±ÿzRµA²RH ²WRdlñ¢¿A ¿±ÿWQ´‚±ÿQH`ð´‚±ÿE@ X`ð´‚±ÿ5`@H XHi¿±ÿ!(422Q \DWIMIFYBLOCK/FIX89TYPEIN 413Q LDIFF 367Q FLAST 334Q \DWIMIFYBLOCK/RETDWIM 313Q \DWIMIFYBLOCK/FIX89 230Q /RPLNODE 205Q /RPLNODE 166Q \DWIMIFYBLOCK/RETDWIM 153Q \DWIMIFYBLOCK/RETDWIM 145Q /RPLNODE 123Q PACK 62Q DUNPACK 46Q \DWIMIFYBLOCK/CLISPATOM0) (406Q LPARKEY 374Q RPARKEY 354Q LPARKEY 265Q RPARKEY 256Q LPARKEY 247Q NOSPELLFLG 240Q NOSPELLFLG 213Q QUOTE 200Q QUOTE 116Q QUOTE 104Q CLISPTYPE 101Q ' 73Q ' 57Q WTFIXCHCONLST 32Q TYPE-IN 27Q CLISPFLG 21Q CLISPFLG) () \DWIMIFYBLOCK/CLISPATOM0A0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TAIL) P h(3 \DWIMIFYBLOCK/CLISPATOM1) NIL () \DWIMIFYBLOCK/CLISPATOM0A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 #UNDOSAVES F 1 UNDOTEM) hc¿ohgc¿hh(16Q \DWIMIFYBLOCK/CLISPATOM0A0001A0002) (13Q CLISPATOM1) ( 7 (DUMMY.FOR.ERRORSET)) \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 (DUMMY.FOR.ERRORSET)) \DWIMIFYBLOCK/CLISPATOM1A0003 D1 (L (1 Y 0 X)) @Aµo‚ (16Q CONCAT 13Q RETDWIM2) NIL ( 7 "()") \DWIMIFYBLOCK/CLISPATOM1A0004 D1 (L (1 Y 0 X)) @A (10Q MKSTRING 4 RETDWIM2) NIL () \DWIMIFYBLOCK/CLISPATOM1 D1 (P 20Q BRACKET P 16Q TENTATIVE P 15Q NOSAVEFLG P 13Q TYP P 10Q BACKUPFLG P 7 BROADSCOPE P 6 ENDTAIL P 4 CLTYP P 2 BRACKETCNT I 0 TAIL F 22Q CURRTAIL F 23Q PARENT F 24Q 89FLG F 25Q DWIMIFYFLG F 26Q CLISPCONTEXT F 27Q CHARLST F 30Q TYPE-IN? F 31Q SUBPARENT F 32Q FORMSFLG F 33Q CLISPCHANGES F 34Q NEWTAIL F 35Q FAULTX F 36Q NEXTAIL F 37Q ONEFLG F 40Q CLISPCHANGE) #W.djóW$g]´0W$dgð¢±¿O ’±W$gW$¿gg]±gh_¿Hµ‚±ºO³|W*²W,žW$g–W, ³@W(´=W$µ:W0´5`ið³-W(`ð´$W. _`ð´`W.O _OihW(jW( _Ù´îW:W(O´á±I´i_¿I _ ¿OOh _¿h_c(¿@’±eOb¿W&’±‡@c&±€`¢±&Hg]¢±Hdgð²#¿HdIðš¿O ’±•Hg¿gg]±ƒgð”HI±äO ²HdO ð–¿JkØZ°eO ð²^JkÙZ°WMgð²,Hg_ ¿HO ð•JkØZ°9gO hW&h °&W(³#`ið³`“W0²Hd`ð¦d`ð“c(¿HIð’±žIH _¿Hgð¥O ¿O¢±nHgð©Hgð¢±]IkHgð¢±NHgð² Hg¿°O ²HžHgO ð³•O²O³Jjð²HdW.ðœ¿N’±ÍW$¾±ÇHX±ýõO©OW$ð³W$OOW$[c$ †W$[c$¿W$¢±ŽO²²4O³0Jjð²+W$lð²W$g³W$k gªN’±VW$¾±PO"šW$g’±¾O©Kgð’±žW$dlð³,d¥d¡¢±…jW$ó²}O ³yO¢±KW$ ²kW$ ²cW$g]²Mgð¢±üèO ’±üâW$` c.X¹O d¢±üüH_´‚±üîO H’±üäW$HO O W$¿±ÿO¢± @lW$_µ O¢±O’±‡Jjð¢±€N’±oW$¾±igð³ÝOgð³ÔW$²W$²ÉW$g ³¾O"™Og³±O_gggW$ ²šg_¿OdW$W$¿O[c$¿i_¿h_¿±þlW$[c$¢±ìi_¿h_¿±þVdgð¦dgð²¿Ogð”M¼±W$°Q¿O µ"W$g_²DW$Oð²)O_ ¿JkØZ°/dW$ð–¿JkØZ°!W$ð²JkÙZ°gOhW&h ¿N³AO³W$_¿M¼Og_¿Og_°O¢±M¼W$g_¿W$ggð_¿W$ggð_"¿O ´ W$O ð_¿W$[c$’±ýx@Oð²ZOg³RW&@ð§W2d@ð²6¿W*²#W,²@g@ggð•W, ¿k@W&h ¿W2µW&k@b¿i_¿¿N_g\d¥d¡®Ld¥d¡²?W*²#W,²NggðŸW,gð³"W,gð³OL@_¿W*¥OW&ð”Ob¿W4³!@dW&ð²¿i°MLW$O¢±þøW$^±þô@_¿W*•Oc<¿‡O”Oc8¿W4«W&–@dW&ð“¿@‚@_¿OµOgð³ùO@dO`hc6¿W*“hc@¿¿°ÕOOh _¿h_¿OHh _¿N³bO³!H_¿M¼Og_¿Oggð_¿°?O²M¼Hg_¿Hggð_¿°!MLHHIðhðµOHW.ð’W$„O ¾O ´ HO ð_¿H´,W$´(O —HO ð§Hgð´W$dH W$¿hXc(¿H¹Hgðhð´HX±ù$(3410Q /RPLNODE 3401Q PACK 3316Q FLAST 3300Q \DWIMIFYBLOCK/STOPSCAN? 3151Q \NCONC2 3131Q \NCONC2 3115Q DWIMERRORRETURN 3061Q \DWIMIFYBLOCK/CLISPATOM1B 2753Q \DWIMIFYBLOCK/STOPSCAN? 2701Q \DWIMIFYBLOCK/CLISPATOM1A 2561Q \DWIMIFYBLOCK/CLISPATOM2 2547Q NLEFT 2533Q DWIMERRORRETURN 2517Q \DWIMIFYBLOCK/CLISPATOMIS? 2241Q DWIMERRORRETURN 2006Q /RPLNODE 1760Q CLISPFUNCTION? 1714Q CLISPFUNCTION? 1605Q NLEFT 1563Q \DWIMIFYBLOCK/CLRPLNODE 1554Q PACK 1547Q PACK 1544Q LDIFF 1472Q DUNPACK 1424Q CLISPNOTVARP 1414Q \DWIMIFYBLOCK/CLBINARYMINUS? 1261Q NTHCHAR 1164Q /RPLNODE 1161Q \NCONC2 1046Q MEMB 774Q NLEFT 734Q \DWIMIFYBLOCK/CL89CHECK 715Q PACK 712Q LDIFF 627Q DWIMERRORRETURN 450Q \DWIMIFYBLOCK/CLUNARYMINUS? 340Q \NCONC2 326Q \DWIMIFYBLOCK/CL89CHECK 321Q PACK 301Q \DWIMIFYBLOCK/FIX89 264Q \DWIMIFYBLOCK/FIX89A 256Q LENGTH 241Q \DWIMIFYBLOCK/FIX89TYPEIN 230Q LDIFF 205Q FLAST 141Q \DWIMIFYBLOCK/CLISPATOMIS? 61Q /RPLNODE 42Q \DWIMIFYBLOCK/CLUNARYMINUS?) (3426Q ' 3365Q ~ 3252Q NOT 3246Q LISPFN 3235Q BROADSCOPE 3214Q NOT 3210Q LISPFN 3177Q BROADSCOPE 3071Q NOFIXVARSLST0 3051Q CERTAINLY 2667Q FOR/BIND 2657Q FORWORD 2650Q FORWORD 2642Q CLISPWORD 2571Q CLISPTYPE 2510Q ISWORD 2502Q CLISPCLASS 2472Q CLISPISPROP 2433Q UNARYOP 2360Q ISWORD 2352Q CLISPCLASS 2340Q NOT 2334Q LISPFN 2322Q BROADSCOPE 2277Q LISPFN 2266Q BROADSCOPE 2223Q BRACKET 2132Q CLISPBRACKET 2103Q : 2072Q => 2064Q -> 1765Q CERTAINLY 1751Q \DWIMIFYBLOCK/CLISPATOM1A0004 1746Q \DWIMIFYBLOCK/CLISPATOM1A0003 1743Q NOTVAR 1730Q CLISPISPROP 1711Q OKVAR 1665Q : 1654Q ' 1467Q WTFIXCHCONLST1 1446Q BRACKET 1434Q CLISPTYPE 1327Q ' 1312Q CLISPISPROP 1264Q CLISPTYPE 1247Q CLISPTYPE 1041Q SEPARATOR 1021Q - 1012Q +- 1000Q E 761Q +- 752Q + 725Q _ 671Q RPARKEY 662Q LPARKEY 647Q NOSPELLFLG 640Q NOSPELLFLG 611Q BRACKET 564Q CLISPBRACKET 554Q BRACKET 500Q ' 470Q CLISPTYPE 465Q +- 460Q +- 431Q - 415Q CLISPTYPE 403Q CLISPCHARS 221Q LPARKEY 213Q RPARKEY 175Q LPARKEY 162Q NOSPELLFLG 132Q CLISPISPROP 70Q CLISPTYPE 65Q +- 53Q +- 27Q - 14Q CLISPTYPE) () \DWIMIFYBLOCK/CLISPATOM1A D1 (P 5 BRACKET P 4 BRACKETCNT P 2 BROADSCOPE P 0 ENDTAIL I 3 NOSAVEFLG I 2 TAIL I 1 CLTYP I 0 TYP F 7 CLISPCONTEXT F 10Q TENTATIVE F 11Q PARENT F 12Q DWIMIFYFLG F 13Q ONEFLG) >p@ggð¾@g]‘k€j¼@Bð‘BB¸@dgð›¿Hg[µ@gºh¹HdgðŸ¿H¸i¹‰b¿H¸°â¸H¢±˜N™Hdg³Ù¿Hg[²vHggð¾M²HdMð–¿LkØ\°:Mð²4LkÙ\°-Kdgð²'¿Hg½HMð”LkØ\gMhWh ¿KAHI³"Kgð´‚±ÿcHMð±ÿZI•Ljð‘J“i±ÿN¿Hbgb²4W¢±þÿW¢±þùW¢±þóHggð¢±þäWgð©Wgð¢±þÓW”gcB(363Q \DWIMIFYBLOCK/CLISPATOM2 316Q \DWIMIFYBLOCK/STOPSCAN? 305Q DWIMERRORRETURN) (470Q PROBABLY 455Q FOR/BIND 446Q FORWORD 434Q FORWORD 427Q CLISPWORD 373Q CLISPTYPE 324Q BRACKET 270Q BRACKET 250Q CLISPBRACKET 237Q BRACKET 172Q ISWORD 165Q CLISPCLASS 154Q CLISPTYPE 143Q CLISPISPROP 102Q ' 70Q BROADSCOPE 60Q CLISPTYPE 47Q ~ 21Q CLISPBRACKET 13Q ISWORD 6 CLISPCLASS) () \DWIMIFYBLOCK/CLISPATOM1B D1 (F 3 UNDOSIDE F 4 UNDOSIDE0) NSTHXdIð‘J²HHHJº°âHdgð²Ù¿gHH``hJº°»NIL (102Q CLISPARRAY 76Q CLISPARRAY 63Q /PUTHASH 54Q /PUTHASH) () \DWIMIFYBLOCK/CLISPATOM2 D1 (P 10Q NEGFLG P 5 VAR2 P 4 VAR1 P 2 LISPFN P 1 UNARYFLG P 0 PARENT F 16Q TAIL F 17Q ENDTAIL F 20Q TYP F 21Q DWIMIFYFLG F 22Q CLISPCONTEXT F 23Q CLISPCHANGE F 24Q CLTYP F 25Q BRACKET F 26Q FORMSFLG F 27Q TENTATIVE F 30Q BACKUPFLG F 31Q BRACKETCNT F 32Q TYPE-IN? F 33Q PARENT F 34Q BROADSCOPE F 35Q SUBPARENT) 0W6W gW gW gt W Wð§I•Wc¿Wg_²WOð—W_c¿W2jð³&W(gð²gjW2ó’W*‚W*hHh ±W¦k ±úW¢±õW,’±ãWg²CWHð¢±ÞWg¢±ÓWgð›Wg’±¿I˜W ’±´lWHh ±¤W,’±“HWð¢±‹W"²W$ŸWg–W$ ³~W²+W"²#W$gð²W` Ÿg oi°TWµ I²-W°,` ²óW"²>gW$´g oi°"W ³lWHh ŠI’W‚W ¿W(gð¢±;I’W‚WO dhihdW"´W$gð´W$ ¾gW* _³dgW* _¿0 N°'d_¿O˜OOðhð´Oh_šOµ"O__¿µÚO¾JµgW* I›NŽ _O°ÞWN°#I²Ogð•N °NkO‰WNlO¾W³W,³H”HWð›WNN¿i‹WNW¿g¾W"¢±ÐNc&¿±ÉW_gð³Og¢±™Og’±ic0¿HkWcdW¿h¹Wc gºOhð_¿W dgð²1¿WdW ð§c¿i¹WHð²™W"²AW$²Mdlñ²è¿±6gð¢±ÕLµW ±‰dgð•¿g°ndgð•¿g°bdgð¥dgð”¿L°Qdgð¥dgð¿hLMi ±å¿Lg_®L ¿Lg_²hOL LM ±¶g _gºL¼OLhJZgð²MgðšM¦gºM½W4¢±žLgð¢±•gi ¿`\id¿±€Kgð²hMdK ±CW LMJºI²5M’M°*W4²$Jgð²Mdgð²¿gi ¿`idM¼h½°&Md•¢M€h_¿Jdgð²B¿Ojð–gZ±¨Mµ%JLM _¿Hd¢±ždlñ’±•¿Wd ±¼³}M³ygZ°tgð²'LµOdkðŸ¿gZ°]gð²î°Smÿð²gZ°IJdgð² ¿LµOkð²”gZ°0gð²ïM³ëMd¥d¡•M ‡gMhh½gºh¢±ÿ]h½±ÿX¾J œW"¢±ÓOc&±ËW"›W&’I²Oc&¿†Nlñ«Jgð¥NH ¿I³lL²TJLð²NJgð³1Jgð³*Jgð³#Jgð³Jgð³Jgð¬Jgð¦Jgð²L`ð®NLLM ¿M¾W"¨Ndlð—¿NH ¿N² NZgc(²N˜Jdg³¿l ¿ŽN²NZgc(™JW(NW¿OžHgHHh¿Hgð²Pgð³7dlð´0dg³'dgggQ@ ´@d@ hcgch(104Q /RPLNODE 71Q CLISPFUNCTION?) (112Q CERTAINLY 62Q \DWIMIFYBLOCK/CLISPATOM2CA0006 57Q \DWIMIFYBLOCK/CLISPATOM2CA0005 54Q NOTVAR 45Q UNARYOP 25Q < 16Q : 7 ') () \DWIMIFYBLOCK/CLISPATOM2D D1 (L (1 Y 0 X) F 0 TAIL F 1 PARENT F 2 ENDTAIL F 3 FORMSFLG F 4 TYP) sR³?S³ 72Q > 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ðAhc¿h¹@dgð–¿i¹@b³H².I“g‚gUhc L@Zdgð²)¿@Zd¥d¡µ I¢±g± º@b±d¥d¡’±’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°‚(642Q CLISPLOOKUP 552Q DWIMERRORRETURN 506Q \DWIMIFYBLOCK/CLISPCAR/CDR1 477Q \DWIMIFYBLOCK/CLISPCAR/CDR1 472Q \DWIMIFYBLOCK/CLISPCAR/CDR1 376Q NLEFT 341Q DWIMERRORRETURN 320Q CLISPRECORD 270Q CLISPTRAN 265Q MAKEMATCH 253Q DWIMIFY2? 241Q \NCONC2 135Q MINUS) (700Q CAR 651Q NLEFT 636Q LAST 616Q CDR 570Q NLEFT 547Q : 525Q : 433Q CDDDDR 336Q FIELDNAME 327Q ACCESSFN 230Q => 220Q -> 201Q with 175Q match 127Q :: 73Q - 54Q NCONC1 50Q NCONC 25Q : 5 _) () \DWIMIFYBLOCK/CLISPCAR/CDR1 D1 (L (3 SETQFLG 2 TAILFLG 1 X 0 N) F 1 VAR2 F 2 DWIMIFYFLG F 3 VAR1) Ð@jð‘AR©`•@A ¿C³dA²`@dkð²=¿Adgðœ¿B”g°Bg°=dgðœ¿B”g°/g°*gð´$B”g°g°lð´Agð´B“g‚gX”AH°O@dlñ²+¿gS ¸B™HA@kØh°2HA@h¸Q£Hc¿gH°o X¦g ŒB“H‚HAhXQ¢dcH(270Q SHOULDNT 260Q FASSOC 210Q CLISPLOOKUP 23Q \DWIMIFYBLOCK/CLISPCAR/CDR2) (265Q CLISPCAR/CDR 246Q CAR 204Q NTH 162Q CADAR 156Q CDDAR 146Q CAR 132Q CAADR 125Q CDADR 115Q CADR 110Q CAAAR 103Q CDAAR 73Q CAAR 65Q CAAR 60Q CDAR 50Q CAR 15Q CHECKCARATOMFLG) ( 255Q ((1 CAR . CDR) (2 CADR . CDDR) (3 CADDR . CDDDR) (4 CADDDR . CDDDDR))) \DWIMIFYBLOCK/CLISPCAR/CDR2 D1 (L (1 X 0 N) F 1 FAULTPOS) &QA @jð‘hHdšµ g ¿H¸@kÙb°æ(31Q DWIMERRORRETURN 4 STKEVAL) (26Q CARATOM) () \DWIMIFYBLOCK/CLISPIFA0007A0008 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FORM F 1 TEM) P ch(3 \DWIMIFYBLOCK/CLISPIF0) NIL () \DWIMIFYBLOCK/CLISPIFA0007 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 #UNDOSAVES F 1 UNDOTEM) hc¿ohgc¿hh(16Q \DWIMIFYBLOCK/CLISPIFA0007A0008) (13Q CLISPIF0) ( 7 (DUMMY.FOR.ERRORSET)) \DWIMIFYBLOCK/CLISPIF D1 (P 14Q UNDOTEM P 13Q UNDOSIDE P 12Q UNDOSIDE0 P 11Q LISPXHIST P 6 TEM P 5 CLISPRESPELL P 2 VARS P 1 DWIMIFYING P 0 CLISPCONTEXT I 0 FORM F 15Q RESETVARSLST F 16Q DWIMIFYFLG F 17Q #UNDOSAVES F 20Q ATTEMPTFLG F 21Q VARS F 22Q CLISPCHANGE F 23Q DWIMIFYING F 24Q BREAKFLG F 25Q EXPR F 26Q LISPXHIST) W—ic “ic$¿gW´W&W"µWhð´W(µW* ``EW`¿`¿W,1gO _d”_°_¿jh_¿Oµ>gOh_¿gWWc__¿og Oc¿OdWð²¿Oc°gO°ÆW œWkOO¿£¿Ogð›Ogg‚¿Oµ OO ¿h‘NM¨¿h@g ²ôK¿L¿h½±ÿ!(401Q CLISPELL 370Q \DWIMIFYBLOCK/RETDWIM 364Q \DWIMIFYBLOCK/RETDWIM 351Q UNDONLSETQ1 333Q UNDOSAVE 327Q LISTPUT1 304Q ERROR! 273Q NLEFT 262Q TAILP 253Q LISTPUT1 214Q \DWIMIFYBLOCK/CLISPIFA0007 116Q MEMB 47Q \DWIMIFYBLOCK/GETVARS) (414Q NOFIXVARSLST0 407Q NOFIXFNSLST0 376Q IFWORD 324Q NOSAVE 321Q SIDE 312Q NOSAVE 246Q SIDE 211Q INTERNAL 165Q #UNDOSAVES 152Q SIDE 111Q SIDE 100Q NOFIXVARSLST0 75Q NOFIXVARSLST 71Q NOFIXFNSLST0 66Q NOFIXFNSLST 55Q NOFIXVARSLST0 52Q NOFIXFNSLST0 15Q IFWORD) ( 206Q (DUMMY.FOR.ERRORSET)) \DWIMIFYBLOCK/CLISPIF0 D1 (L (0 FORM) P 10Q DWIMIFYCHANGE F 16Q LISPXHIST) 2 @¼`²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\µ‚±ÿ@ ¿`²W@Ii O”O³IgO X@@»@HHOOOO@ð²OO —Og¿@K @OOOO_¿O_¿O_¿h_¿°(1030Q \DWIMIFYBLOCK/CLISPIF3 1013Q CLISPTRAN 775Q EQUAL 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) (1004Q * 711Q NCONC 664Q CLISPIFTRANFLG 637Q IFWORD 613Q IFWORD 530Q THEN 513Q CLISPIFTRANFLG 467Q then 461Q THEN 450Q ELSEIF 437Q ELSE 423Q ELSE 404Q CLISPIFTRANFLG 363Q if 355Q IF 334Q COMMENTFLG 272Q IFWORD 236Q SIDE 226Q COND 214Q CLISPIFTRANFLG 151Q CLISPIFTRANFLG 116Q else 110Q ELSE 57Q elseif 51Q ELSEIF 37Q ELSE 31Q elseif 24Q else 7 CLISPIFTRANFLG) ( 550Q "parentheses error " 345Q "misplaced comment ") \DWIMIFYBLOCK/CLISPIF1 D1 (L (3 FORM 2 L 1 L0 0 PRED)) 8@µAdBð²¿lBCh d•¿@d AB Bð”AhAB h(63Q LDIFF 43Q LDIFF 24Q DWIMERRORRETURN) NIL () \DWIMIFYBLOCK/CLISPIF2 D1 (L (0 X)) Y0@gð´N@ YXd@ð²diðœd¨¿I@@°)ið´)@l YZ@ð´I³HJH¿IHJh(125Q /RPLNODE 113Q /RPLNODE 65Q NLEFT 16Q FLAST) (7 COND) () \DWIMIFYBLOCK/CLISPIF3 D1 (L (2 FIRSTCLAUSEFLG 1 ORIGWORDPAIR 0 CLAUSE)) _B²`”g°6Aµ2g°-@ið²`“g†Aµg@ `“g†Aµg@@´`“g†Aµg@ (131Q \APPEND2 56Q \APPEND2) (124Q THEN 114Q then 110Q LCASEFLG 77Q ELSEIF 67Q elseif 63Q LCASEFLG 51Q ELSE 41Q else 35Q LCASEFLG 22Q IF 11Q if 5 LCASEFLG) () CLISPLOOKUP D1 (L (3 $LISPFN 2 $VAR2 1 $VAR1 0 WORD) F 3 EXPR F 4 FAULTFN) 0@gYdgZd²ST Xœ@ABHCIJ °'Idgð•¿@ gð¥Igð‘hCµ @gµ@XJgð²,ddJð²%¿Ad¢…JðBd¢…Jð”JH(61Q GETTOPVAL 43Q CLISPLOOKUP0 26Q GETLOCALDEC) (120Q ARITH 106Q LISPFN 73Q RECORDFIELD 65Q RECORD 52Q VALUE 14Q CLISPCLASSDEF 6 CLISPCLASS) () \DWIMIFYBLOCK/CLISPMATCHUP D1 (L (2 $VARS 1 LST 0 PAT)) q A¡h@dBž¿H@Ah ¸°@Að³:@dggð•b¿°Ï`–@b¿°Â@AgYð¬I´ AIg´@b•Ab°ŸA³Hµi(31Q \NCONC2) (126Q CLISPISPROP 111Q CLISPISPROP 71Q CLISPISNOISEWORDS 55Q ISWORD 50Q CLISPCLASS) () \DWIMIFYBLOCK/CLISPRESPELL D1 (L (2 FLG 1 WORDS 0 TL) F 0 TYPE-IN?) X`iðhð´O`’P´H@´D@lð´<@ hð´3@d ²¿@o hð´@` hð´@ ´ @hAB(125Q MISSPELLED? 113Q CLISPNOTVARP 102Q GETLIS 66Q GETLIS 52Q GETPROPLIST 40Q GETD) (77Q MACROPROPS 13Q NOSPELLFLG 2 NOSPELLFLG) ( 63Q (CLISPWORD EXPR)) \DWIMIFYBLOCK/CLRPLNODE D1 (L (2 D 1 A 0 X) F 1 UNDOSIDE F 2 NOSAVEFLG F 3 UNDOSIDE0) ,QR³HSð—@AB@@dHð¦¿HX°é@A¿@B@(22Q /RPLNODE) NIL () \DWIMIFYBLOCK/CLUNARYMINUS? D1 (L (0 OPRFLAG) F 0 SUBPARENT F 1 CURRTAIL F 2 TYP F 3 TYPE-IN?) eR”@hðµ^QPðµYQPð´SP ´LP¦P ´ASµ>`´9PPPgð´P hPdgð ooi(142Q FIXSPELL1 124Q \NCONC2 121Q RETDWIM2 100Q RETDWIM2 41Q CLISPNOTVARP 26Q FNTYP) (111Q - 66Q - 51Q CLISPHELPFLG) ( 136Q " " 132Q "the %"-%" is unary") DWIMIFYA0012A0013 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 VAL) i¿Phi¿hh(12Q PRINTDEF) (3 PRETTYTRANFLG) () DWIMIFYA0012 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 RESETVARSLST F 3 MACROY) Gg`RcR¹og H¿IdRð•¿HcR ™RkIH¿µci(77Q ERROR! 66Q NLEFT 57Q TAILP 31Q DWIMIFYA0012A0013) (37Q PRETTYTRANFLG 26Q INTERNAL 5 PRETTYTRANFLG 2 PRETTYTRANFLG) ( 23Q (DUMMY.FOR.ERRORSET)) DWIMIFY D1 (L (2 L 1 QUIETFLG 0 X) P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 VAL F 5 RESETVARSLST) o`©oi h``@B X@²GB³DA³Ai 1gIhhUc ºog £g¼Jc ¿gJ ¿L“¿i H(153Q TERPRI 145Q ERROR! 137Q APPLY 113Q DWIMIFYA0012 60Q OUTPUT 41Q DWIMIFY0 16Q LISPXPRIN1) (130Q OUTPUT 117Q ERROR 110Q INTERNAL 66Q OUTPUT 34Q NOFIXVARSLST0 31Q NOFIXVARSLST 26Q NOFIXFNSLST0 23Q NOFIXFNSLST 5 DWIMFLG) ( 105Q (DUMMY.FOR.ERRORSET) 12Q "DWIM is turned off! ") DWIMIFY0 D1 (L (1 Y 0 X) P 12Q TYPE-IN? P 11Q ONEFLG P 10Q CLISPCONTEXT P 6 DWIMIFYCHANGE P 5 DWIMIFY0CHANGE P 4 FAULTFN P 2 SIDES P 1 DWIMIFYFLG P 0 DWIMIFYING I 3 EXPR I 2 VARS F 13Q LISPXHIST) idgW ƒ Ad¢±—¿g-\µ*A bA µ@bghdW@A š@A ¼°ÖA_` µOgð²A_` µOgð²'A_` µOgð²@dAð¯dA™¿@@ @@ ²A\C£@b¿@ _M”LJ O@dœ¿g\@bd _d[\Ob M²$KJ ¿Kd ²¿`gð«Kd ¦¿Ki K(413Q DWIMUNSAVEDEF 404Q EXPRP 364Q \DEFINEDP 356Q DWIMARKASCHANGED 346Q DWIMIFY1 330Q EXPRCHECK 324Q DWIMIFY1 301Q DWIMARKASCHANGED 270Q DWIMIFY1 251Q DWIMIFY1 243Q DWIMIFY2 203Q FASSOC 155Q FASSOC 126Q FASSOC 106Q DWIMIFY2 77Q TAILP 71Q LISPXPUT 51Q LAST 43Q VARSBOUNDINEDITCHAIN 11Q MEMB) (375Q PROP 372Q DFNFLG 314Q TYPE-IN 213Q SELECTQ 200Q DWIMEQUIVLST 165Q SELECTQ 152Q DWIMEQUIVLST 136Q COND 123Q DWIMEQUIVLST 62Q RESPELLS 32Q ATM 4 SIDE) () DWIMIFY0? D1 (P 5 VARS P 4 EXPR P 3 FAULTPOS P 2 DWIMIFYFLG P 1 DWIMIFYING P 0 DWIMIFY0CHANGE I 6 CLISPCONTEXT I 5 FAULTFN I 4 ONEFLG I 3 FORMSFLG I 2 SUBPARENT I 1 PARENT I 0 TAIL F 6 DWIMIFYFLG) VVµ`¿`¿dgð¦dgð²¿`¿`¿idgð²Ó`¿`¿@(123Q \DWIMIFYBLOCK/DWMFY0 70Q \DWIMIFYBLOCK/DWMFY0 23Q \DWIMIFYBLOCK/DWMFY0) (114Q NOFIXVARSLST0 111Q NOFIXVARSLST 105Q NOFIXFNSLST0 102Q NOFIXFNSLST 74Q EVAL 57Q NOFIXVARSLST0 54Q NOFIXVARSLST 50Q NOFIXFNSLST0 45Q NOFIXFNSLST 36Q VARSBOUND 30Q CLISPIFY 17Q NOFIXVARSLST0 14Q NOFIXVARSLST 10Q NOFIXFNSLST0 5 NOFIXFNSLST) () DWIMIFY1 D1 (L (0 FORM) I 2 FORMSFLG I 1 CLISPCONTEXT) @ (3 \DWIMIFYBLOCK/DWMFY1) NIL () DWIMIFY1? D1 (L (0 FORM) P 2 DWIMIFYCHANGE P 1 DWIMIFYFLG P 0 DWIMIFYING I 2 FORMSFLG I 1 CLISPCONTEXT F 3 DWIMIFYFLG) S´@ i``@ (33Q \DWIMIFYBLOCK/DWMFY1 6 \DWIMIFYBLOCK/DWMFY1) (27Q NOFIXVARSLST0 24Q NOFIXVARSLST 21Q NOFIXFNSLST0 16Q NOFIXFNSLST) () DWIMIFY1A D1 (L (2 FN) I 1 TAIL I 0 PARENT F 0 CLISPCONTEXT F 1 DWIMIFYFLG F 2 DWIMIFYING F 3 FAULTFN) ¤`’±BQ´‚±•R´‚±ŽPgð’±„Pgð—Ag³uBµS •ki ¿Pgð³oi ¿@A id¿Add¥d¡²¿oi Ai oi ´$oi oAhllmÿ idh(237Q LISPXPRINT 232Q CONCAT 227Q SUBSTRING 220Q RETDWIM2 205Q LISPXPRIN1 172Q LISPXPRIN1 162Q LISPXPRIN1 155Q LISPXPRIN1 125Q LISPXPRINT 120Q RETDWIM2 112Q LISPXPRIN1 72Q LISPXSPACES 64Q FIXPRINTIN) (77Q IFWORD 52Q CLISPISFORM 43Q IS 32Q IFWORD 2 DWIMESSGAG) ( 211Q "... " 201Q "at " 166Q ") " 151Q "too many arguments (more than " 106Q "(possible) parentheses error in ") DWIMIFY2 D1 (I 5 ONLYSPELLFLG I 4 ONEFLG I 3 FORMSFLG I 2 SUBPARENT I 1 PARENT I 0 TAIL) (2 \DWIMIFYBLOCK/DWMFY2) NIL () DWIMIFY2? D1 (P 2 DWIMIFYCHANGE P 1 DWIMIFYFLG P 0 DWIMIFYING I 6 CLISPCONTEXT I 5 ONLYSPELLFLG I 4 ONEFLG I 3 FORMSFLG I 2 SUBPARENT I 1 PARENT I 0 TAIL F 3 DWIMIFYFLG) S´i``(31Q \DWIMIFYBLOCK/DWMFY2 5 \DWIMIFYBLOCK/DWMFY2) (26Q NOFIXVARSLST0 23Q NOFIXVARSLST 20Q NOFIXFNSLST0 15Q NOFIXFNSLST) () DWIMIFY2AA0014 D1 (L (1 Y 0 X)) A lmÿ(12Q SUBSTRING 3 RETDWIM2) NIL () DWIMIFY2AA0015 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 DWIMIFY2AA0015 4 DWIMIFY2AA0014) () DWIMIFYFNS D1 (L (0 FNS)) ¡j !``0@d’±dž¿g@hg°mg µc`ž@lF`h@ µ@g–@ µBg@g°5dºj YHÙnu0ñ²I¸Jid¿oi ¿J »LµKh]K&¼µÌM(215Q DWIMIFY0 210Q PRIN1 177Q PRIN2 156Q CLOCK 145Q STKEVAL 130Q FILEFNSLST 112Q MISSPELLED? 66Q EVALV 55Q STKEVAL 3 CLOCK) (142Q INTERNAL 135Q DWIMIFYFNS 121Q FILE 104Q FILELST 74Q DWIMFLG 63Q DWIMIFYFNS 52Q INTERNAL 44Q DWIMIFYFNS 22Q NOFIXVARSLST0 17Q NOFIXVARSLST 14Q NOFIXFNSLST0 11Q NOFIXFNSLST) ( 204Q ", ") \DWIMIFYBLOCK/DWMFY0 D1 (P 2 DWIMIFYCHANGE P 1 DWIMIFYFLG P 0 DWIMIFYING F 3 FORMSFLG F 4 TAIL F 5 PARENT F 6 DWIMIFYFLG F 7 DWIMIFYING F 10Q ONEFLG F 11Q CLISPCONTEXT F 12Q SUBPARENT) $V´WiSªTdUð–W ŠTUWSW J(40Q DWIMIFY2 24Q DWIMIFY1) NIL () \DWIMIFYBLOCK/DWMFY1 D1 (L (0 FORM) P 13Q VARS P 12Q NEXTAIL P 5 ATTEMPTFLG P 4 89CHANGE P 3 CLISPCHANGE F 17Q VARS F 20Q FORMSFLG) @‘ @’±šHhZi ¿Jd’±wId²2¿H` µHZgð’±Jgð’±I ´`hð^°+lð²)Id ’±ø¿Id`’±ídg’±ä` ’±Ù Hddd¢±¶Hd ’±¨¿Kµ;L¢±¸h¼H` µHYdgð’± dgð’±—¿H ¢±ÿU`’±ÿNHgð¢±µI´_H@ ¿H` µHY¢±`N¦K¤I ¿W ’±ˆH` µHZgð’±pJgð’±gN’±bI ’±ZH H»±ÿdKµ"M®Idlð˜`¿I³‰Idgð›¿±ôgð³Ü@gð²,H°"d_dgð¥dgð¿O` ¿µÞ±¼Igð¨Idgð²¿`¢±¦H¢±ŸHk ¿±–gð²=H@ihi ¿Hd«@hdi ¿HXd¨@i¿±cHid¿H°æIgð³Igð®Igð¨Idgð²*¿HdW³d`ª`¿H@i¿±gð²Hˆddhi¿µõ±úIdgð²¿Hµ H¢H€h ¿±Ügð›H@i¿±ËIdgð’±úgð¨Idgð²'¿HµH´HhW H@i±`ð–H Ig_gð¬O²igO²a0H°Ad_d²$Oi¿Odlð¯¿@O@ ¿O_¿Oµ Oh_‚O&_¿µÀOW H@i‡I ¢±ýŽ@`²4I jð²,I Zdjð“¿H°kð‘HJdlð’¿H…lðšH”HJ @(1614Q DWIMIFY1A 1546Q NARGS 1536Q ARGTYPE 1517Q CLISPNOEVAL 1511Q DWIMIFY2 1476Q \NCONC2 1432Q DWIMIFY1A 1403Q DWIMIFY2 1322Q DWIMIFY1 1303Q DWIMIFY2 1270Q \APPEND2 1207Q DWIMIFY2 1166Q DWIMIFY1 1124Q DWIMIFY2 1100Q DWIMIFY2 775Q DWIMIFY2 757Q DWIMIFY2 742Q DWIMIFY2 720Q DWIMIFY2 674Q DWIMIFY1A 617Q UNION 471Q DWIMIFY1A 461Q CHECKTRAN 420Q FASSOC 400Q DWIMIFY1 355Q FASSOC 344Q DWIMIFY2 305Q CHECKTRAN 250Q FASSOC 221Q CHECKTRAN 207Q \DWIMIFYBLOCK/WTFIX0 171Q GETLIS 133Q FGETD 106Q CHECKTRAN 52Q FASSOC 21Q DWIMIFY2) (1530Q DWIMCHECK#ARGSFLG 1347Q BINDS 1335Q BINDS 1327Q INFO 1312Q CLISPTRANFLG 1237Q NLAMBDA 1230Q LAMBDA 1220Q ASSEMBLE 1175Q RESETVAR 1141Q FUNCTION 1107Q COND 1067Q NOFIXVARSLST0 1063Q NOFIXVARSLST0 1054Q NOFIXVARSLST0 1031Q SETARG 1022Q RPAQ 1014Q SETN 1005Q SETQ 703Q SELECTQ 654Q DWIMCHECK#ARGSFLG 645Q GO 636Q QUOTE 622Q NOFIXVARSLST0 614Q NOFIXVARSLST0 602Q GLOBALVARS 574Q USEDFREE 555Q DECLARE 545Q PARTIAL 534Q * 522Q NOFIXFNSLST0 516Q NOFIXFNSLST0 443Q NLAMBDA 432Q LAMBDA 415Q DWIMEQUIVLST 352Q DWIMEQUIVLST 325Q PARTIAL 314Q CLISPRETRANFLG 273Q NLAMBDA 262Q LAMBDA 245Q DWIMEQUIVLST 166Q MACROPROPS 156Q EXPR 145Q NOFIXFNSLST0 113Q CLISPRETRANFLG 75Q NLAMBDA 64Q LAMBDA 47Q DWIMEQUIVLST) () \DWIMIFYBLOCK/DWMFY2 D1 (P 6 ATTEMPTFLG P 5 NEXTAIL P 4 89CHANGE P 3 CLISPCHANGE F 12Q TAIL F 13Q PARENT F 14Q FORMSFLG F 15Q CLISPCONTEXT F 16Q SUBPARENT F 17Q ONLYSPELLFLG F 20Q ONEFLG F 21Q TYPE-IN? F 22Q FAULTFN) . W´‚±ÜW‘ Wið§WdWð—¿Wc¿W` µWºh[\½Wµ±™Yd²;¿Wgð¤I ¿W¢±WWð¢± Jgð¨Jgð¢±þWdW ±ïlð¢±èJg_gð¬O²BgO²:`¢±ÈI`’±¿`I ¢±´W$ •ki ¿oi ¿Ii ±–Wgð³W².WWð³'WWð²Jgð³IdgŸdg©¿Wc±]I ¢±VW´.WWð²%Wg ²IWð¢±|Wgð¢±ri_¿°@Wgð²0WWð²(J¦O“O³Wg ²IWð’J˜gc¿±¡Igµ1Wž`ið³\`“W"²TIWWWW ²EL¢±Äh__¿±þ„Jgð³ÉW²ÃWWð“i_¿WW ¿W¢±ÿHlð’±¢±òWHð“i_¿W–WWð³rI ²VWgð²WWð²J¥O’O¨gc¿±úWgð³BW³=Wgð³5I ³/Igð³(I`ð³!WW °N³`•Ig¨I`¿W ’±ÿgMµW…ið‘hMc¿±ý³Wgð³MWdgðž¿O’O¥H³8Wið²O².O²*W"²>o°JHšOHg „OœO™HdH ¿W ¡HO‘hMµWið’WMoH lmÿ oH ohi²¿WdW ¿WW ±ÿ<(1451Q DWIMIFY1 1440Q /RPLNODE 1423Q FIXSPELL1 1416Q CONCAT 1407Q MKSTRING 1404Q RETDWIM2 1374Q CONCAT 1371Q SUBSTRING 1362Q RETDWIM2 1321Q /RPLNODE 1301Q DWIMIFY2A 1116Q DWIMIFY1A 1067Q EXPRP 772Q \DEFINEDP 717Q DWIMIFY1A 636Q \DWIMIFYBLOCK/WTFIX0 543Q DWIMIFY2A 446Q DWIMIFY2A 417Q CLISPNOTVARP 317Q LISPXPRINT 311Q LISPXPRIN1 300Q LISPXSPACES 272Q FIXPRINTIN 261Q STRPOSL 166Q /RPLNODE 114Q DWIMIFY1 50Q FASSOC) (1276Q QUIET 1215Q FORWORD 1204Q FOR1 1145Q NOFIXVARSLST0 1141Q NOFIXVARSLST0 1133Q CLISPTYPE 1126Q CLISPFLG 1104Q COMMENTFLG 1075Q E 1060Q NORUNONS 1043Q IFWORD 1030Q FOR1 1001Q FORWORD 663Q CLISPWORD 614Q NOSPELLFLG 605Q NOSPELLFLG 573Q CLISPWORD 561Q FOR1 540Q QUIET 506Q FORWORD 466Q FORWORD 443Q QUIET 400Q CLISPTYPE 372Q CLISPISPROP 362Q NOT 327Q IS 255Q CLISPCHARRAY 245Q NOFIXVARSLST0 235Q DWIMCHECKPROGLABELSFLG 225Q LABELS 213Q LABELS 205Q INFO 146Q NLAMBDA 140Q LAMBDA 106Q LINEAR 45Q DWIMEQUIVLST) ( 1413Q ")" 1400Q "... " 1356Q "... " 1262Q "" 305Q "suspicious prog label: ") \DWIMIFYBLOCK/FIX89 D1 (L (2 POS 1 N 0 FORM) F 1 FAULTX F 2 TAIL F 3 EXPR) XA`ð“g‚gQlñ¢R´B§QA ¡hSg@lñ£g‚g@ihHhBhhhhh gi h(124Q LISPXPRINT 115Q EDITE 37Q \DWIMIFYBLOCK/FIX89A) (120Q couldn't 63Q F= 57Q F 46Q ORR 14Q FIX9 10Q FIX8 3 LPARKEY) () \DWIMIFYBLOCK/FIX89A D1 (L (2 POS 1 N 0 X) F 0 CHARLST F 1 TYPE-IN? F 2 DWIMIFYFLG F 3 ATTEMPTFLG) ]@µ&B§A@ b¿@dkBkÙµoA`ðšo‰b¿°Øo @BkØ µohPQhð´g ‘iR´ich(120Q FIXSPELL1 73Q SUBSTRING 64Q CONCAT 26Q SUBSTRING 12Q STRPOS) (114Q MUSTAPPROVE 40Q LPARKEY) ( 101Q "" 61Q " )" 46Q " (" 34Q "") \DWIMIFYBLOCK/FIX89TYPEIN D1 (L (2 APPLYFLG 1 CLST 0 X) F 1 FAULTARGS F 2 FAULTPOS F 3 FAULTX) ]gi @Að² @ Xid¿RHB¢S„Qd‘h °/B’QµSc¿RA@ idi@d¦¿Q‰h°å Qh(131Q \DWIMIFYBLOCK/RETDWIM 124Q PACK 104Q PRINT 77Q PACK 74Q LDIFF 52Q \DWIMIFYBLOCK/RETDWIM 31Q PRINT 23Q PACK 11Q PRIN1) (5 =) () \DWIMIFYBLOCK/FIXAPPLY D1 (P 2 TYPE-IN? F 3 FAULTX F 4 FAULTPOS F 5 TYPE-IN? F 6 CHARLST F 7 FAULTARGS F 10Q FAULTFN F 11Q HISTENTRY F 12Q FAULTAPPLYFLG F 13Q FAULTXX) * WSð£hc ¿Sdlð², X²%H ¢±’`Sdlð—g ¿SX±ØSg§Sdgž¿S —S¸hc±½SgYµ+U²P`²2`S ²)VSWhYdiX²TH ¿°. ”SX±¿°U²`ið¯WWð—`VYµd\d— h°$mÿ `©Ld`•¿Lh‡oh]—Nµ.M_^¿µÃO [`³@gð²W’W¢W«gŠ ^M°Ògº`˜`²U`¤`²FK`”oƒoJdgð²¿`•o°o°gð`”o‡o‚iJ †Jgð›i™@iW´ý@kIcd´ @lIch(431Q NLEFT 412Q NLEFT 354Q FIXSPELL1 346Q SHOULDNT 216Q LAST 156Q APPLY 75Q NTHCHAR 63Q RETDWIM2 44Q LDIFF 36Q TAILP 21Q RETDWIM2) (375Q NOFIXVARSLST0 361Q NEEDNOTAPPROVE 330Q LCASEFLG 323Q MUSTAPPROVE 303Q LCASEFLG 274Q NEEDNOTAPPROVE 255Q LCASEFLG 247Q CLISPHELPFLG 243Q TREATASCLISPFLG 236Q CLISPHELPFLG 232Q TREATASCLISPFLG 226Q MUSTAPPROVE 212Q NEEDNOTAPPROVE 173Q PROBABLY 162Q TREATASCLISPFLG 111Q CLISPCHARS 100Q CLISPCHARS 26Q CONCAT) ( 342Q " TREAT" 335Q " treat" 316Q " TREATED" 310Q " treated" 267Q " AS CLISP" 262Q " as clisp" 126Q " ") \DWIMIFYBLOCK/SHRIEKER D1 (L (0 LOOKAT) F 2 WORKFLAG F 3 NCONCLKUP F 4 NCONC1LKUP) 5 @lñ´@µhc@¸@b¿Hdgð³gð¢±Ù@d¢±X@bHgð²'¿¿@d¢±ñX@bd Ydµ‚±,gcSHh@ YdµgcgHhlñ®gcgHIhRµgcgHIhdgð˜¿HI Idgð³dgð«dgð¥dgðŸ¿gcgHIhdgð¿gcHI Igð²ÞgcgHIh@µgcgHh YRµgcgHhdgð³dgð«dgð¥dgðŸ¿gcgHIhdgð’±ÿPdgð¦dgð²¿gcgHIh¿gHIhlñ¬gcSHIhRµgcSHIhdgð’±þûdgð¥dgð¿gcSHIhdgð²¿gcSHIgIhdgðŸ¿gcSHIhdgð¿gcHI Igð²I®gcTHIhgcSHIh(1013Q ATTACH 422Q \DWIMIFYBLOCK/SHRIEKER 346Q ATTACH 251Q ATTACH 145Q \DWIMIFYBLOCK/SHRIEKER 116Q \DWIMIFYBLOCK/SHRIEKER) (1051Q NCONCING 1032Q NCONC1ING 1020Q LISTING 1003Q NCONCING 775Q !!IT 755Q NCONCING 747Q !IT 731Q LIST 717Q NCONCING 710Q NCONC1ING 672Q NCONCING 664Q CONSING 656Q APPENDING 645Q NCONCING 627Q NCONCING 607Q NCONCING 570Q CONS 553Q CONS 546Q CONSING 537Q !IT 531Q !!IT 520Q LISTING 505Q CONS 500Q CONSING 472Q NCONC1ING 464Q NCONCING 456Q APPENDING 447Q CONSING 436Q LIST 431Q LISTING 412Q LIST 405Q LISTING 366Q APPEND 361Q APPENDING 353Q !!IT 336Q APPENDING 330Q !IT 315Q APPEND 310Q APPENDING 302Q NCONC1ING 274Q LISTING 266Q CONSING 257Q NCONCING 240Q APPENDING 225Q APPEND 220Q APPENDING 203Q APPEND 176Q APPENDING 161Q APPEND 154Q !IT 131Q !!IT 71Q ! 44Q ! 36Q !!) () \DWIMIFYBLOCK/STOPSCAN? D1 (L (3 OPRFLAG 2 OPR 1 CLTYP1 0 CLTYP2) F 0 BRACKETCNT F 1 BROADSCOPE F 2 BRACKET F 3 CLTYP) u@´rA´oQPjð´ @gð²6h@gð² BRðC´PPkð´KBgAgð´>PjðPjð´5Bg‘CAdlñ@dlñýñ¡i@´@Adlñýñ´@chNIL (103Q UNARYOP 63Q BRACKET 55Q UNARYOP 31Q BRACKET 20Q BRACKET) () WTFIX D1 (P 11Q DWIMIFYFLG P 10Q ONLYSPELLFLG P 7 FORMSFLG P 6 SUBPARENT P 5 PARENT P 4 TAIL P 3 VARS P 2 EXPR P 1 FAULTFN P 0 FAULTPOS I 2 FAULTAPPLYFLG I 1 FAULTARGS I 0 FAULTX) t° B³ @²@lð²@ «@` _µi ²g ®g@` ¿°â@ ¿°Û@dO _ð³Ï@Oµ gOh ¿g@ ¿°³(157Q RETEVAL 147Q CLISPTRAN 121Q MACROEXPANSION 107Q ASSEMBLETRAN 100Q /SETATOMVAL 63Q \DEFINEDP 53Q MUSTCOMPILEMACROP 46Q \DWIMIFYBLOCK/WTFIX1 37Q GETMACROPROP 26Q \DEFINEDP) (153Q FAULTEVAL 137Q PROGN 74Q NOFIXFNSLST 67Q NOFIXFNSLST 60Q ASSEMBLETRAN 34Q COMPILERMACROPROPS) () \DWIMIFYBLOCK/WTFIX0 D1 (P 3 FAULTAPPLYFLG P 2 FAULTARGS P 1 DWIMIFYFLG P 0 FAULTPOS I 4 ONLYSPELLFLG I 3 SUBPARENT I 2 PARENT I 1 TAIL I 0 FAULTX F 4 DWIMIFYFLG F 5 DWIMIFYING F 6 FAULTPOS) T‘U¡V€hi"(15Q \DWIMIFYBLOCK/WTFIX1) NIL () \DWIMIFYBLOCK/WTFIX1A0018A0019 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FAULTX F 1 FAULTFN) PQ i(4 CLISPDEC0) NIL () \DWIMIFYBLOCK/WTFIX1A0018A0020A0021 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FAULTEM1 F 1 FAULTFN) PQ i(5 CLISPDEC0) NIL () \DWIMIFYBLOCK/WTFIX1A0018A0020A0022 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FAULTEM1) i¿P ¿hh(10Q DWIMIFY1?) (3 CLISPFLG) () \DWIMIFYBLOCK/WTFIX1A0018A0020 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 EXPR F 3 FAULTEM1 F 4 FAULTX F 5 RESETVARSLST F 6 TYPE-IN? F 7 HISTENTRY) è`´Vhð¿Sdgð²¿T µ‚±Ã±½dgð¿T c¿hc±«dgð›¿Td ±™gð¢±„T!Tcdgðš¿oi ¿S`ð”Sc€S¤SµS c¿g`Uc Yºog I¿JdUð•¿Ic U ™UkJI¿£¿T ¿TS STkIc¿hh(322Q CLISPTRAN 314Q CLISPELL 307Q ERROR! 277Q NLEFT 270Q TAILP 242Q \DWIMIFYBLOCK/WTFIX1A0018A0020A0022 210Q \APPEND2 155Q \DWIMIFYBLOCK/WTFIX1A0018A0020A0021 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 (DUMMY.FOR.ERRORSET) 151Q (DUMMY.FOR.ERRORSET)) \DWIMIFYBLOCK/WTFIX1A0018 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 21Q CLISPERTYPE P 20Q TYPE-IN? P 17Q FAULTFN P 13Q CLISPERTYPE P 12Q SIDES P 11Q CLISPCHANGES P 10Q FIXCLK P 7 HISTENTRY P 6 NEWTAIL P 5 FAULTEM1 P 4 CHARLST P 3 FAULTXX P 2 BREAKFLG P 1 TYPE-IN? F 22Q FAULTX F 23Q DWIMIFYFLG F 24Q FAULTAPPLYFLG F 25Q FAULTPOS F 26Q RESETVARSLST F 27Q FAULTFN F 30Q CLISPCONTEXT F 31Q CLISPCHANGE F 32Q LISPXHIST F 33Q TAIL F 34Q EXPR F 35Q VARS F 36Q FAULTARGS F 37Q PARENT) Ê`áW&˜W.gðY°Hl _¿W(“g‚g c*¿`ið©W*`¿mÿW* i c.¿JµW8]d’ c:¿IgW4 _¿I²4W&³0W(›W$`ð°W$`ð«W$` —`_¿W(’W$…W$d[lð—K` ¼W(³W$lðš¿¿±ÝW(š¿¿±ÏI².KOð²&`ið³`L]²`—`K ¨ML ¿± `¢±”L¢±¿W$]lð¢±‚Mdg«k ]`²oMg²Mgð²aW$` g²MW$ ³EW$ ²]³d`²gO³cO³_W$]²XMlð²QMh`hW&”W0µW$hddi ]²5W&²W0žg oiŽMW$W$i]›Mc$¿W*W$ ¿hh(2303Q \DWIMIFYBLOCK/RETDWIM 2277Q \DWIMIFYBLOCK/RETDWIM 2261Q \DWIMIFYBLOCK/CLISPATOM 2243Q RETEVAL 2233Q \DWIMIFYBLOCK/RETDWIM0 2212Q FIXSPELL 2123Q \DWIMIFYBLOCK/CLISPATOM 2114Q DUNPACK 2101Q FIXSPELL 2023Q \DEFINEDP 2012Q /RPLNODE 1763Q FIXSPELL 1726Q FIXSPELL 1671Q \DWIMIFYBLOCK/RETDWIM 1660Q \DWIMIFYBLOCK/RETDWIM 1633Q EVAL 1616Q \DWIMIFYBLOCK/FIXLAMBDA 1565Q \DWIMIFYBLOCK/RETDWIM 1556Q WTFIXLOADEF 1540Q DUNPACK 1473Q \DWIMIFYBLOCK/CLISPATOM 1451Q DUNPACK 1432Q \DWIMIFYBLOCK/CLBINARYMINUS? 1364Q \DWIMIFYBLOCK/FIXLAMBDA 1311Q \DWIMIFYBLOCK/CLISPATOM 1301Q CLISPNOTVARP 1246Q DWIMUNSAVEDEF 1205Q ERROR! 1174Q NLEFT 1163Q TAILP 1127Q \DWIMIFYBLOCK/WTFIX1A0018A0020 1050Q \DWIMIFYBLOCK/WTFIX1A0018A0019 1030Q /RPLNODE 1004Q CLISPFUNCTION? 771Q MEMB 766Q FREEVARS 624Q MARKASCHANGED 577Q \DWIMIFYBLOCK/FIXLAMBDA 574Q GETD 554Q \DEFINEDP 544Q CLISPNOTVARP 533Q CLISPNOTVARP 517Q PACK 513Q DUNPACK 454Q NTHCHAR 404Q \DWIMIFYBLOCK/FIX89TYPEIN 376Q STRPOSL 325Q SHOULDNT 321Q \DWIMIFYBLOCK/FIXAPPLY 307Q SHOULDNT 303Q \DWIMIFYBLOCK/FIXATOM 264Q DUNPACK 222Q EQUAL 140Q MEMB 123Q \DWIMIFYBLOCK/GETVARS 104Q FINDFN 100Q FSTKNTH 46Q STKPOS 26Q CLOCK) (2230Q CLISPATOM1 2166Q CLISPINFIXSPLST 2131Q CLISPFLG 2111Q WTFIXCHCONLST 2066Q CLISPISWORDSPLST 2035Q CLISPFLG 1750Q NOFIXFNSLST0 1737Q NOFIXFNSLST0 1713Q SPELLINGS2 1625Q DWIMUSERFORMS 1535Q WTFIXCHCONLST 1520Q CLISPARRAY 1512Q CLISPARRAY 1456Q CLISPCHARS 1446Q WTFIXCHCONLST1 1440Q CLISPTYPE 1323Q CLISPFLG 1263Q FILEDEF 1240Q CODE 1231Q EXPR 1136Q LCASEFLG 1124Q INTERNAL 1102Q LCASEFLG 1077Q LCASEFLG 1064Q CLISPWORD 1036Q CLISP: 1014Q X 1001Q OKVAR 670Q LAMBDA 665Q FUNCTION 654Q F/L 621Q FNS 604Q FILEPKGFLG 522Q CLISPTYPE 510Q WTFIXCHCONLST1 476Q ~ 467Q UNARYOP 460Q CLISPCHARS 446Q CLISPTYPE 413Q CLISPFLG 372Q CLISPCHARRAY 366Q CLISPFLG 356Q LPARKEY 347Q NOSPELLFLG 261Q WTFIXCHCONLST 226Q LISPXHISTORY 214Q LISPXHISTORY 201Q LISPXHISTORY 165Q LISPXHISTORY 133Q SIDE 70Q CLEARSTKLST 64Q CLEARSTKLST 54Q CLEARSTKLST 43Q FAULTEVAL 37Q FAULTAPPLY 15Q TYPE-IN 2 NOSPELLFLG) ( 2237Q (PROGN (SETQ CLISPRESPELL T) NIL) 1121Q (DUMMY.FOR.ERRORSET) 1044Q (DUMMY.FOR.ERRORSET)) \DWIMIFYBLOCK/WTFIX1 D1 NIL -`´(k oigµdkð‘hl/ð“(52Q ERRORX 46Q ERROR! 30Q ERRORN 23Q \DWIMIFYBLOCK/WTFIX1A0018 10Q SETERRORN) (20Q WTFIX 2 DWIMFLG) ( 14Q (DUMMY.FOR.ERRORSET)) EXPRCHECK D1 (P 0 D I 0 X) h@dlð©o ¿°=i X ³3@ ³;`²@lF`hdg Xµ@o ¿‰b X `•@j ¿@H@o h(144Q ERROR 127Q ADDSPELL 115Q EXPRP 111Q VIRGINFN 102Q ERROR 67Q MISSPELLED? 41Q \DEFINEDP 33Q EXPRP 27Q VIRGINFN 20Q ERROR) (121Q ADDSPELLFLG 63Q GETD 56Q USERWORDS 46Q DWIMFLG) ( 141Q "not an expr." 77Q "not defined." 15Q "not a function.") CLISPNOEVAL D1 (P 0 TEM I 1 DEFAULT I 0 FN) ‡0@` Xµ@ dkð¤dlð˜¿i°Mb°í³;@d`³Ad`³:` ¢A°-`²@gYgðµ8I´4gI´-iiŠ@d`¦`´@gZgðµJ´ gJ´ihð(71Q GETLIS 20Q ARGTYPE 11Q FASSOC) (175Q EVAL 163Q EVAL 156Q INFO 147Q NLAML 142Q NLAMA 125Q NOEVAL 113Q NOEVAL 106Q INFO 100Q DWIMINMACROSFLG 66Q MACROPROPS 60Q NLAML 51Q 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) Y@lð´RgQ H´HdAð‘hdgð«dgð¥dgð•¿HX°ß¿@gggQ “g‚g(126Q MARKASCHANGED 113Q FASSOC 106Q MEMB 15Q MEMB) (123Q CLISP 117Q 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 5 TYPE-IN? F 6 DWIMIFYFLG) 7P@lð¡hAd’±†gð–@ ´î@ ’±`@ÓàÐÉ°"d\L»Zgð³J`³Jgð”K¥µßh³Y@V“`‚`³K@g³B`ið³‘`’U´‹`@ ’±ÿ@` ¹@h`B´gB¡@€i X´‚±ÿZB²dAgð’H²u`´rU”oŽo@DlB UœHµ@DlC°oHµ@…’H€HohiB£H´gH´g ´H²B²H˜@HH@ƒ@H@¿@(461Q /RPLNODE 426Q FIXSPELL1 400Q CONCAT 332Q CONCAT 253Q MISSPELLED? 225Q DUNPACK 211Q STRPOSL 43Q \DEFINEDP 34Q CLISPNOTVARP) (422Q n 413Q MUSTAPPROVE 302Q CLISPHELPFLG 272Q QUIET 242Q NO-MESSAGE 234Q SPELLINGS2 222Q WTFIXCHCONLST1 204Q CLISPCHARRAY 175Q NOSPELLFLG 166Q NOSPELLFLG 157Q CLISPWORD 147Q NOFIXFNSLST 143Q NOFIXFNSLST0 115Q CLISPWORD 106Q MACROPROPS 77Q EXPR 57Q LITATOM 52Q \PLISTSPACE 25Q NOTVAR) ( 375Q "' meant to be used as a function" 355Q "is '" 317Q "in ... " 312Q "") CLISPNOTVARP D1 (I 0 X F 0 DWIMIFYFLG F 1 VARS F 2 DWIMIFYING F 3 FAULTPOS) U@ hð´M@Qhð´F@P“`‚`hð´7P‘R«@S hð´'@ghð´@`hð´@`hð´ @`hð(51Q RELSTK 46Q STKSCAN 3 BOUNDP) (116Q SPECVARS 104Q LOCALVARS 72Q GLOBALVARS 61Q GLOBALVAR 30Q NOFIXVARSLST 24Q NOFIXVARSLST0) () 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 (L (0 X)) `–@`µ`´ @`ð´@NIL (24Q CLISPTRANFLG 15Q CLISPTRANFLG 7 CLISPARRAY 2 CLISPARRAY) () CLISPRPLNODE D1 (I 2 D I 1 A I 0 X F 0 LISPXHIST) ,@²P²g@d@h ¿@A@dB¿l@h (51Q ERRORX 26Q UNDOSAVE) (11Q CLISPRPLNODE) () (PRETTYCOMPRINT DWIMIFYCOMS) (RPAQQ DWIMIFYCOMS ((FNS DWIMIFYFNS DWIMIFY DWIMIFY0 DWIMIFY0? DWMFY0 DWIMIFY1 DWIMIFY1? DWMFY1 DWIMIFY1A DWIMIFY2 DWIMIFY2? DWMFY2 DWIMIFY2A CLISPANGLEBRACKETS SHRIEKER CLISPRESPELL EXPRCHECK) (FNS CLISPATOM0 CLISPATOM1 CLRPLNODE STOPSCAN? CLUNARYMINUS? CLBINARYMINUS? CLISPATOM1A CLISPATOM1B CL89CHECK CLISPATOM2 CLISPNOEVAL CLISPLOOKUP CLISPATOM2A CLISPBROADSCOPE CLISPBROADSCOPE1 CLISPATOM2C CLISPATOM2D CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPATOMIS CLISPATOMIS1 CLISPMATCHUP CLISPATOMARE CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS2 CLISPATOMIS? CLISPATOMIS?1) (FNS WTFIX WTFIX0 WTFIX1 RETDWIM DWIMERRORRETURN DWIMARKASCHANGED RETDWIM0 RETDWIM1 FIX89TYPEIN FIXLAMBDA FIXAPPLY FIXATOM FIXATOM1 FIXCONTINUE FIXCONTINUE1 CLISPATOM GETVARS GETVARS1 FIX89 FIXPRINTIN FIX89A CLISPFUNCTION? CLISPNOTVARP CLISPELL FINDFN DWIMUNSAVEDEF CHECKTRAN) (FNS CLISPIF CLISPIF0 CLISPIF1 CLISPIF2 CLISPIF3) (FNS CLISPFOR CLISPFOR0 CLISPFOR0A CLISPFOR1 CLISPRPLNODE CLISPFOR2 CLISPFOR3 CLISPFORVARS CLISPFORVARS1 CLISPFOR4 CLISPFORF/L CLISPDSUBST GETDUMMYVAR CLISPFORINITVAR) (COMS (FNS \DURATIONTRAN \CLISPKEYWORDPROCESS)) (BLOCKS (FORBLOCK (ENTRIES CLISPFOR) CLISPFORVARS CLISPFOR0 CLISPFOR2 CLISPFORINITVAR CLISPDSUBST \CLISPKEYWORDPROCESS CLISPFORF/L CLISPFOR4 CLISPFORVARS1 CLISPFOR3 CLISPFOR1 CLISPFOR0A CLISPFOR \DURATIONTRAN (SPECVARS CLISPRESPELL UNDOSIDE LISPXHIST BODY I.S.TYPE1 I.S.TYPE TERMINATEFLG FIRSTI.V. I.V. PROGVARS MAKEPROGFLG IVINITFLG INITVARS UNDOLST DWIMIFYING VARS DWIMIFYCHANGE DUMMYVARS I.S.OPRSLST CLISPCONTEXT UNDOSIDE0 EXP)) (DWIMIFYBLOCK CL89CHECK CLBINARYMINUS? CLISPANGLEBRACKETS CLISPATOM CLISPATOM0 CLISPATOM1 CLISPATOM1A CLISPATOM1B CLISPATOM2 CLISPATOM2A CLISPATOM2C CLISPATOM2D CLISPATOMARE CLISPATOMARE1 CLISPATOMARE2 CLISPATOMIS CLISPATOMIS1 CLISPATOMIS2 CLISPATOMIS? CLISPATOMIS?1 CLISPBROADSCOPE CLISPBROADSCOPE1 CLISPCAR/CDR CLISPCAR/CDR1 CLISPCAR/CDR2 CLISPIF CLISPIF0 CLISPIF1 CLISPIF2 CLISPIF3 CLISPLOOKUP CLISPMATCHUP CLISPRESPELL CLRPLNODE CLUNARYMINUS? DWIMIFY DWIMIFY0 DWIMIFY0? DWIMIFY1 DWIMIFY1? DWIMIFY1A DWIMIFY2 DWIMIFY2? DWIMIFY2A DWIMIFYFNS DWMFY0 DWMFY1 DWMFY2 FIX89 FIX89A FIX89TYPEIN FIXAPPLY FIXATOM FIXATOM1 FIXCONTINUE FIXCONTINUE1 FIXLAMBDA GETDUMMYVAR GETVARS GETVARS1 RETDWIM RETDWIM0 RETDWIM1 SHRIEKER STOPSCAN? WTFIX WTFIX0 WTFIX1 (ENTRIES WTFIX DWIMIFYFNS DWIMIFY DWIMIFY0 DWIMIFY0? DWIMIFY1A GETDUMMYVAR DWIMIFY2 DWIMIFY2? DWIMIFY1? DWIMIFY1 DWIMIFY2A CLISPLOOKUP) (SPECVARS 89CHANGE 89FLG BRACKET BRACKETCNT ATTEMPTFLG BACKUPFLG BODY BREAKFLG BROADSCOPE CLISPCHANGE CLISPCHANGES CLISPCONTEXT CLISPERTYPE CLISPRESPELL CLTYP CURRTAIL DWIMIFYCHANGE DWIMIFY0CHANGE DWIMIFYFLG DWIMIFYING ENDTAIL EXP EXPR FAULTAPPLYFLG FAULTARGS FAULTFN FAULTPOS FAULTX FAULTXX FIRSTI.V. FIXCLK FORMSFLG I.S.TYPE I.S.TYPE1 HISTENTRY I.S. I.V. INITVARS IVINITFLG LISPFN CHARLST MAKEPROGFLG NCONC1LKUP NCONCLKUP NEGFLG NEWTAIL NEXTAIL SUBPARENT NOFIX89 NOSAVEFLG ONEFLG ONLYSPELLFLG PARENT SIDES TAIL TENTATIVE TERMINATEFLG TYP TYPE-IN? UNDOLST UNDOSIDE UNDOSIDE0 VAR1 VAR2 VARS WORKFLAG UNARYFLG DEST FOR I.S.OPRSLST PROGVARS))) (GLOBALVARS DWIMINMACROSFLG DWIMFLG ADDSPELLFLG CHECKCARATOMFLG TREATASCLISPFLG CLISPHELPFLG CLISPIFTRANFLG CLISPRETRANFLG DWIMCHECKPROGLABELSFLG DWIMCHECK#ARGSFLG FILEPKGFLG SHALLOWFLG DWIMESSGAG PRETTYTRANFLG HELPCLOCK CLEARSTKLST LCASEFLG DWIMWAIT LAMBDASPLST DURATIONCLISPWORDS NLAML NLAMA CLISPTRANFLG CLISPIFWORDSPLST SPECVARS LPARKEY DWIMUSERFORMS MACROPROPS DWIMKEYLST SPELLINGS3 SPELLINGS1 NOFIXVARSLST NOFIXFNSLST CLISPARRAY CLISPFLG CLISPCHARS CLISPISNOISEWORDS CLISPLASTSUB CLISPISWORDSPLST CLISPCHARRAY CLISPINFIXSPLST OKREEVALST WTFIXCHCONLST1 WTFIXCHCONLST RPARKEY GLOBALVARS NOFIXFNSLST0 NOFIXVARSLST0 NOSPELLFLG LISPXHISTORY DWIMEQUIVLST DFNFLG COMMENTFLG USERWORDS SPELLINGS2 LOCALVARS FILELST CLISPFORWORDSPLST CLISPDUMMYFORVARS LASTWORD COMPILERMACROPROPS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (ADDVARS (NLAML BREAK1))) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DWIMIFYFNS) (NLAML) (LAMA) )))) (PUTPROPS DWIMIFY COPYRIGHT ("Xerox Corporation" T 1978 1984)) NIL