(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "14-Sep-2022 10:25:44" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>sources>DWIMIFY.;2) "13-Sep-2022 12:52:19" brecompiled exprs%: CLISPFOR0 in "FULL 13-Sep-2022 ..." dated "13-Sep-2022 12:52:24") (FILECREATED "14-Sep-2022 10:25:44" {DSK}kaplan>local>medley3.5>working-medley>sources>DWIMIFY.;2 310341 :CHANGES-TO (FNS CLISPFOR0 ) :PREVIOUS-DATE "16-May-90 16:21:27" {DSK}kaplan>local>medley3.5>working-medley>sources>DWIMIFY.;1) \FORBLOCK/CLISPFORVARS :D8 (L (0 PTRS) P 0 CLISPCONTEXT F 9 VARS F 10 I.S.TYPE F 11 MAKEPROGFLG F 12 LEFT.ARROWS.BITTABLE F 13 I.V. F 14 INITVARS F 15 UNDOLST F 16 FIRSTI.V. F 17 LEFT.ARROW F 18 IVINITFLG) ^ g@@[\LMLdd3@]LdgdgLgLLhLd`WL LKhid YILdgdgdgdgLLi LdggLLgLL&`EL_hd3@/WO #i%LMK Ldhg+O>O@OD_OHg gH_BhOdg+O>O@OB_OHg gH_DhMg&OBOD_OHg gH_@h!OggH_Fhg ^O_O<ONg ONh _Hdǿ@Wpgi i @i gVO$OB ODO.O@_$O8"O<OO>OBODO@i __h_B_D_>_@_FgH_OBODO@i _O _Md=d7g _gOg gMMh_O.O0MWfo@ O@gOBODWfWO$SOg @oi 02@ dhk _`Ob O`h_dO`&_bOdid Oggg XOH_XgOX _ _KO [wO>O_@_FOdgO_>TdgO_FAdgO_B.dgO_DdgO_@gO_I_*OBODBOBOD_gOdgOBODgOgIO_AOdd3@O_*0gOgO_*O g ODO_*O O*OhO_OO*O.gO*hh _.LO&gOOBi_"O*go O.gO*hh _.O*hh _&O(gO*OF#OOBODhO*dhOFh gO*hO>OO_4OO> i_O@8OFd3!jOFgOO>hϢggi OFhh_FgOggOhggOhgO OO@hhigO OO@hhhhh0O>3 #O@3 O@O>o_Fgg_OO gOkhh _ O@hO_O.OdO OOhh _.OFO>O@EO(gOO>O@OFd3gO OOFkhhh _(O`i`g)R&@AB SV` ch@gxgg g@-g@ hANABAHA >6Ad)BAgA AAgAhXA HC|TiuTRm`@X`@XVQA!QH WQQ3AQ /R)H`@ X``@H XHi (346 \DWIMIFYBLOCK/FIX89TYPEIN 337 LDIFF 311 FLAST 280 \DWIMIFYBLOCK/RETDWIM 261 \DWIMIFYBLOCK/FIX89 200 /RPLNODE 177 /RPLNODE 158 \DWIMIFYBLOCK/RETDWIM 145 \DWIMIFYBLOCK/RETDWIM 137 /RPLNODE 117 PACK 99 GETPROP 70 DUNPACK 46 \DWIMIFYBLOCK/CLISPATOM0) (330 LPARKEY 318 RPARKEY 298 LPARKEY 237 RPARKEY 228 LPARKEY 185 QUOTE 170 QUOTE 110 QUOTE 94 CLISPTYPE 89 %' 81 %' 65 WTFIXCHCONLST 32 TYPE-IN 27 CLISPFLG 19 CLISPFLG) () \DWIMIFYBLOCK/CLISPATOM0A0001A0002A0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TAIL F 3 TEM F 4 SI::NLSETQ-VALUE) i@R chcg(10 \DWIMIFYBLOCK/CLISPATOM1) (21 :NORMAL) () \DWIMIFYBLOCK/CLISPATOM0A0001A0002 :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) *i@`VioWK gJ(29 \DWIMIFYBLOCK/CLISPATOM0A0001A0002A0003) (35 :NORMAL 9 SI::NLSETQ-PROCEED-CASE) ( 17 (CL:ERROR . SI::NLSETQHANDLER)) \DWIMIFYBLOCK/CLISPATOM0A0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 %#UNDOSAVES) hcg (12 \DWIMIFYBLOCK/CLISPATOM0A0001A0002) (7 CLISPATOM1) () \DWIMIFYBLOCK/CLISPATOM0 :D8 (P 9 FAULTX P 8 SI::*RESETFORMS* P 6 UNDOSIDE P 5 UNDOSIDE0 P 4 LISPXHIST P 3 TEM P 2 89FLG P 0 CURRTAIL I 2 PARENT I 1 TAIL I 0 CHARLST F 10 SUBPARENT F 11 LISPXHIST F 12 CLISPCHANGE F 13 %#UNDOSAVES F 14 DWIMIFYFLG)  WBcA`"W1gL ^d]jhLQgNh\gWhg $_Mg!Lgg gN ONM Odg,IWhcA A` bA:AIJ6H OJJ [KAd3@A` AB K(280 \DWIMIFYBLOCK/CLISPATOM0 273 DUNPACK 248 \DWIMIFYBLOCK/FIX89 243 LENGTH 207 DUNPACK 195 CLISPELL 161 UNDONLSETQ1 146 UNDOSAVE 139 LISTPUT1 126 LISTPUT1 93 SI::RESETUNWIND 88 \MVLIST 83 \DWIMIFYBLOCK/CLISPATOM0A0001 31 MEMB) (268 WTFIXCHCONLST1 224 NOFIXVARSLST0 202 WTFIXCHCONLST 181 NOFIXVARSLST0 171 :RESPELL 133 SIDE 121 NOSAVE 116 SIDE 107 NOSAVE 78 SI::RESETUNWIND 65 %#UNDOSAVES 54 SIDE 25 SIDE 12 NOFIXVARSLST0) () \DWIMIFYBLOCK/CLISPATOM1A0004 :D8 (L (1 Y 0 X)) @Ao (19 CONCAT 14 RETDWIM2) NIL ( 8 "()") \DWIMIFYBLOCK/CLISPATOM1A0005 :D8 (L (1 Y 0 X)) @A  (12 MKSTRING 6 RETDWIM2) NIL () \DWIMIFYBLOCK/CLISPATOM1 :D8 (P 16 BRACKET P 14 TENTATIVE P 13 NOSAVEFLG P 11 TYP P 8 BACKUPFLG P 7 BROADSCOPE P 6 ENDTAIL P 4 CLTYP P 2 BRACKETCNT I 0 TAIL F 17 CURRTAIL F 18 PARENT F 19 89FLG F 20 CHARLST F 21 DWIMIFYFLG F 22 NOSPELLFLG F 23 CLISPCONTEXT F 24 TYPE-IN? F 25 SUBPARENT F 26 FORMSFLG F 27 FAULTX F 28 NEWTAIL F 29 CLISPCHANGES F 30 ONEFLG F 31 CLISPCHANGE F 32 NEXTAIL) W(djW"g ]@W"dgO  W"gW" gg ]h_HOvW&HW"EW0@W,i9W&`.W( _``W(O _Oi hW&jW& _ W6W&O ۱I i_I _OOh _h_c&@ObW$@c$`OHg ]#Hdg/HdIO Hggg ]gHIO HdO JkZsO lJkZeMg6Hg _ HO JkZ?gO hW$h (W&%W,iW,W0Hd`d`c&HI IH _HgHgIkH gHg'HgO HHgO OOJjJHX HdW(N.W"(OOW"W"OOW"[c" W"[c"W"O W*W<OJjJOKgW"d3@,W"3jW"O OKW" W" W"g ]MgO W" c(XO dH_O HW"HO O W" & OOh _h_OHh _NO/H_MOg _Og g_QO*MHg _Hg g_%MLHHIhO HW(W"O O HO _H2W".O HO HgW"dH W" hXc&HHghHXh(2008 /RPLNODE 1999 PACK 1944 FLAST 1928 \DWIMIFYBLOCK/STOPSCAN? 1899 GETPROP 1884 GETPROP 1855 GETPROP 1840 GETPROP 1809 \NCONC2 1791 \NCONC2 1777 DWIMERRORRETURN 1745 \DWIMIFYBLOCK/CLISPATOM1B 1671 \DWIMIFYBLOCK/STOPSCAN? 1627 \DWIMIFYBLOCK/CLISPATOM1A 1588 GETPROP 1557 GETPROP 1542 \DWIMIFYBLOCK/CLISPATOM2 1530 NLEFT 1516 DWIMERRORRETURN 1488 GETPROP 1441 GETPROP 1419 GETPROP 1403 GETPROP 1378 GETPROP 1363 GETPROP 1335 DWIMERRORRETURN 1261 GETP 1186 /RPLNODE 1158 CLISPFUNCTION? 1127 CLISPFUNCTION? 1070 \FZEROP 1022 NLEFT 993 GETPROP 983 NTHCHAR 970 GETPROP 944 \FZEROP 935 \DWIMIFYBLOCK/CLRPLNODE 926 PACK 919 PACK 914 LDIFF 870 UNPACK 840 GETPROP 823 CLISPNOTVARP 811 \DWIMIFYBLOCK/CLBINARYMINUS? 703 /RPLNODE 698 \NCONC2 642 \FZEROP 610 MEMB 557 NLEFT 520 PACK 515 LDIFF 460 DWIMERRORRETURN 422 GETPROP 352 GETPROP 325 \DWIMIFYBLOCK/CLUNARYMINUS? 295 GETPROP 241 \NCONC2 227 PACK 209 \DWIMIFYBLOCK/FIX89 194 \DWIMIFYBLOCK/FIX89A 186 LENGTH 171 \DWIMIFYBLOCK/FIX89TYPEIN 160 LDIFF 135 FLAST 79 GETPROP 63 /RPLNODE 44 \DWIMIFYBLOCK/CLUNARYMINUS? 19 GETPROP) (2024 %' 1985 ~ 1904 NOT 1894 LISPFN 1879 BROADSCOPE 1860 NOT 1850 LISPFN 1835 BROADSCOPE 1755 NOFIXVARSLST0 1735 CERTAINLY 1615 FOR/BIND 1605 FORWORD 1595 FORWORD 1583 CLISPWORD 1552 CLISPTYPE 1483 UNARYOP 1436 CLISPCLASS 1424 NOT 1414 LISPFN 1398 BROADSCOPE 1373 LISPFN 1358 BROADSCOPE 1319 BRACKET 1256 CLISPBRACKET 1231 %: 1220 => 1212 -> 1167 CERTAINLY 1149 \DWIMIFYBLOCK/CLISPATOM1A0005 1144 \DWIMIFYBLOCK/CLISPATOM1A0004 1139 NOTVAR 1122 OKVAR 1100 %: 1089 %' 988 CLISPTYPE 965 CLISPTYPE 851 BRACKET 835 CLISPTYPE 759 %' 603 SEPARATOR 584 - 575 +- 563 E 544 +- 535 + 496 RPARKEY 487 LPARKEY 444 BRACKET 417 CLISPBRACKET 407 BRACKET 361 %' 347 CLISPTYPE 342 +- 335 +- 308 - 290 CLISPTYPE 278 CLISPCHARS 151 LPARKEY 143 RPARKEY 125 LPARKEY 74 CLISPTYPE 69 +- 55 +- 31 - 14 CLISPTYPE) () \DWIMIFYBLOCK/CLISPATOM1A :D8 (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 8 DWIMIFYFLG F 9 ONEFLG F 10 PARENT) `@g @g ]kj@BBB@dgHg [ @g hHdgibHH]Hbg bWvVqWkHg gTVgVg;g [Hg MHdMLk\GMALk\:Kdg2Hg HMLk\gMhWh KAHI &KgHMILjLL JiWgcB(371 \FZEROP 328 \DWIMIFYBLOCK/STOPSCAN? 317 DWIMERRORRETURN 284 GETPROP 230 GETPROP 213 GETPROP 166 GETPROP 131 GETPROP 116 \DWIMIFYBLOCK/CLISPATOM2 79 GETPROP 65 GETPROP 25 GETP 13 GETPROP) (389 PROBABLY 338 BRACKET 302 BRACKET 279 CLISPBRACKET 268 BRACKET 225 CLISPCLASS 208 CLISPTYPE 194 FOR/BIND 183 FORWORD 172 FORWORD 161 CLISPWORD 126 CLISPTYPE 90 %' 74 BROADSCOPE 60 CLISPTYPE 48 ~ 20 CLISPBRACKET 8 CLISPCLASS) () \DWIMIFYBLOCK/CLISPATOM1B :D8 (F 3 UNDOSIDE F 4 UNDOSIDE0) WSTHXdIJdHHJggHH` `hJ(70 GETHASH) (75 CLISPARRAY 65 CLISPARRAY 52 /PUTHASH 44 /PUTHASH) () \DWIMIFYBLOCK/CLISPATOM2 :D8 (P 8 NEGFLG P 5 VAR2 P 4 VAR1 P 2 LISPFN P 1 UNARYFLG P 0 PARENT F 16 TAIL F 17 ENDTAIL F 18 TYP F 19 DWIMIFYFLG F 20 CLISPCHANGE F 21 CLTYP F 22 BRACKET F 23 CLISPCONTEXT F 24 FORMSFLG F 25 BACKUPFLG F 26 TENTATIVE F 27 BRACKETCNT F 28 TYPE-IN? F 29 PARENT F 30 BROADSCOPE F 31 SUBPARENT) W:W$g W$g W$g  W$W IW c W"g _W"OW"_c"W6j,W*g"gjW6W,W,hHh W k  W"W0W"g VW HW"g W"gW"g IW lW"Hh W0HW W"3W&+W.g!W"` gg ^W" I1W 0` W&DW.ggg (W  lW"Hh IW W  W*gzIW W O dhihdW&W.gW. gW, _ogW, _0N'd_OOOhOh_O'O__OJgW, IN _OW N'IOgN NkOW NlOW"W0HHW W NN iW NW" gW&\Nc(UW HW _g"Og Og ic2HkW c dW  hW c$g Oh_W$dgW dW$c izgW$g$gc$W gW W  W"W l IW W W" ]Ik WH_OdW  W  ic2Oc W&W(W HW2 W W$dgIJgM hL _W&W(Oc(M_O3MM W4NgLW$dggdggdgdgLsdgdghLMi Lg _L Lg _hOL LM  g _g LOLhJ ZgMgMgMW8Lggi `\id jW$LMJ IAMM6W80Jg'Mdggi `id MhMdMh_Jdg>M'JLM _HdH3W d MgZ~g.LOdkgZbgVmgZJJdg𲍿LOkgZ-gMM3jMՉgMhhghKhFHJ W& Oc(W&W(I'Oc(N_O3JgNH ILlJLfJg@Jg7Jg.Jg%JgJgJgJgL`NLLM MW&Ndd3@NH N-NZg c*NJg !l NNZg c*JW*NW" OHgHHh Hg@H_8HO _+HW W OW OW OO W4gc4W (2048 \DWIMIFYBLOCK/CLRPLNODE 2013 NEGATE 1986 \DWIMIFYBLOCK/CLRPLNODE 1963 \DWIMIFYBLOCK/CLISPATOM1A 1949 GETPROP 1928 DWIMERRORRETURN 1919 GETPROP 1901 GETPROP 1884 \DWIMIFYBLOCK/CLISPATOM2A 1862 \DWIMIFYBLOCK/CLRPLNODE 1857 \APPEND2 1747 \DWIMIFYBLOCK/CLISPATOM2A 1693 CLISPNOEVAL 1529 \DWIMIFYBLOCK/CLISPATOM2A 1504 \DWIMIFYBLOCK/CLISPATOM2D 1461 PRINT 1448 PRIN1 1402 CLISPLOOKUP 1388 PRINT 1374 PRIN1 1315 CLISPLOOKUP 1300 GETPROP 1288 DWIMERRORRETURN 1275 \DWIMIFYBLOCK/CLISPATOM2D 1269 \APPEND2 1261 CLISPLOOKUP 1246 GETPROP 1233 DWIMIFY1? 1223 GETPROP 1207 \DWIMIFYBLOCK/CLISPATOM2D 1202 CLISPRECORD 1089 \DWIMIFYBLOCK/CLISPATOM2A 1049 \DWIMIFYBLOCK/CLISPATOM2D 1041 \DWIMIFYBLOCK/CLISPCAR/CDR 1013 \DWIMIFYBLOCK/CLISPBROADSCOPE1 987 \DWIMIFYBLOCK/CLRPLNODE 979 LDIFF 955 \DWIMIFYBLOCK/CLISPBROADSCOPE 926 DWIMERRORRETURN 916 LDIFF 899 DWIMERRORRETURN 884 \DWIMIFYBLOCK/CLRPLNODE 796 GETPROP 777 \DWIMIFYBLOCK/CLRPLNODE 764 NLEFT 747 GETPROP 731 GETPROP 677 \DWIMIFYBLOCK/CLRPLNODE 664 \DWIMIFYBLOCK/CLRPLNODE 618 \DWIMIFYBLOCK/CLISPANGLEBRACKETS 585 LAST 573 MEMB 503 MEMB 485 MEMB 472 DWIMIFY2? 445 LDIFF 416 \DWIMIFYBLOCK/CLISPATOM2C 402 DWIMERRORRETURN 386 \DWIMIFYBLOCK/CLISPATOM2C 376 SI::INTERNAL-THROW 345 \DWIMIFYBLOCK/CLISPRESPELL 322 SI::INTERNAL-THROW 305 \DWIMIFYBLOCK/CLISPRESPELL 258 DWIMERRORRETURN 240 \DWIMIFYBLOCK/CLISPATOM2C 227 GETPROP 198 GETPROP 175 GETPROP 147 DWIMERRORRETURN 134 DWIMERRORRETURN 68 GETP 37 GETPROP 25 GETPROP 13 GETPROP) (2057 PROBABLY 1994 NOT 1974 NOT 1944 CLISPTYPE 1914 UNARYOP 1896 CLISPTYPE 1840 CLISPLASTSUB 1831 TIMES 1823 PLUS 1814 FTIMES 1805 FPLUS 1796 ITIMES 1787 IPLUS 1778 OR 1769 AND 1738 SETQ 1673 IPLUS 1660 IMINUS 1638 IPLUS 1629 SUB1 1610 IDIFFERENCE 1600 SUB1 1585 IPLUS 1576 ADD1 1556 IPLUS 1548 NULL 1488 EQ 1454 LASTWORD 1442 = 1433  1422 QUOTE 1380 LASTWORD 1368 = 1358  1342 SETQQ 1331 %' 1321 SETQ 1295 LISPFN 1283 _ 1241 SETFN 1218 SETFN 1189 REPLACE 1181 replace 1168 NCONC1 1160 NCONC 1151 RPLACD 1143 CDR 1134 RPLACA 1126 CAR 1105 _ 1026 %: 948 IS 941 ISWORD 868 NOT 856 AND 848 nor 839 NOR 812 ~ 791 LISPFN 742 UNARYOP 726 CLISPTYPE 716 ~ 683 PARTIAL 610 CLISPANGLEBRACKETS 566 LISPFN 496 SEPARATOR 478 DWIMIFY 461 IFWORD 424 BRACKET 371 :RESPELL 366 CLISPATOM1 360 WTFIX 340 CLISPINFIXSPLST 317 :RESPELL 312 CLISPIF0 300 CLISPIFWORDSPLST 290 IFWORD 222 CLISPTYPE 210 ~ 193 UNARYOP 170 CLISPTYPE 110 BRACKET 102 BRACKET 63 CLISPBRACKET 32 CLISPCLASS 20 LISPFN 8 UNARYOP) () \DWIMIFYBLOCK/CLISPATOM2A :D8 (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 8 TENTATIVE F 9 NOSPELLFLG F 10 BROADSCOPE F 11 DWIMIFYING F 12 FAULTPOS F 13 CLISPCONTEXT F 14 NOFIXFNSLST F 15 NOFIXVARSLST F 16 TYPE-IN? F 17 GLOBALVARS) q@iWh_UWUW"UWWVgVgTdWTd`g HTW Tg TW"T`g}IgbTdA[WiSWW LWThWhddddig [Th`hddddig [AKA gT`g[@dIg@ @@@<@d3@4@g %hY@Aihig WV`Kch(348 DWIMIFY2 328 GETPROP 298 DWIMIFY1 249 \DWIMIFYBLOCK/CLRPLNODE 235 FIXSPELL 208 FIXSPELL 125 GETPROP 112 STKSCAN 100 BOUNDP) (358 CLISPCHARS 342 NORUNONS 323 CLISPTYPE 289 LINEAR 275 DONTKNOW 269 NOFIXVARSLST0 263 NOFIXVARSLST0 255 CERTAINLY 229 MUSTAPPROVE 218 SPELLINGS3 202 MUSTAPPROVE 158 FOR/BIND 150 PROBABLY 144 NOFIXVARSLST0 138 NOFIXVARSLST0 120 GLOBALVAR 92 PROBABLY 84 NOFIXVARSLST0 61 53 _ 46 NOFIXVARSLST0 38 NOFIXFNSLST0) () \DWIMIFYBLOCK/CLISPATOM2CA0008 :D8 (L (1 Y 0 X)) EAdA$ Adgg A lm (66 CONCAT 61 SUBSTRING 52 RETDWIM2 45 CONCAT 18 RETDWIM2) (36 - 28 +-) () \DWIMIFYBLOCK/CLISPATOM2CA0009 :D8 (L (1 Y 0 X)) OAdA$ Adgg @d@AA o (76 CONCAT 66 RETDWIM2 45 CONCAT 18 RETDWIM2) (36 - 28 +-) ( 71 ")") \DWIMIFYBLOCK/CLISPATOM2C :D8 (L (0 TAIL0) F 0 TYP F 1 TAIL F 2 ENDTAIL F 3 TENTATIVE) i@bPg[PgRPgIdd3@B@g 3@gggQ@ @d@ hcgch(90 /RPLNODE 77 CLISPFUNCTION? 50 GETPROP) (98 CERTAINLY 68 \DWIMIFYBLOCK/CLISPATOM2CA0009 63 \DWIMIFYBLOCK/CLISPATOM2CA0008 58 NOTVAR 45 UNARYOP 27 < 18 %: 9 %') () \DWIMIFYBLOCK/CLISPATOM2D :D8 (L (1 Y 0 X) F 0 TAIL F 1 PARENT F 2 ENDTAIL F 3 FORMSFLG F 4 TYP) RPSMQQPF@5PAA A` bP@ A``PP@A Pci@ATgA3jAՂ@AbPAR Pcg(116 \DWIMIFYBLOCK/CLRPLNODE 74 \DWIMIFYBLOCK/CLRPLNODE 47 CLISPTRAN 37 GETHASH 25 \DWIMIFYBLOCK/CLRPLNODE) (125 PARTIAL 91 - 63 CLISPLASTSUB 54 CLISPLASTSUB 32 CLISPARRAY) () \DWIMIFYBLOCK/CLISPATOMARE1 :D8 (L (1 FLG 0 X)) J@Hd`hd#dgdgHA h HX Hh (71 \NCONC2 51 \DWIMIFYBLOCK/CLISPATOMARE1) (40 OR 32 AND 13 CLISPLASTSUB) () \DWIMIFYBLOCK/CLISPATOMARE2 :D8 (L (1 Z 0 L) F 2 DEST F 3 TAIL F 4 PARENT) e @dA-gSTh @X@YR@dHH@hIR@cAI Y@IdHIhbb(77 \APPEND2 28 DWIMERRORRETURN) (16 PHRASE) () \DWIMIFYBLOCK/CLISPATOMIS1 :D8 (L (4 NEGATE 2 ALST 1 OBJ 0 SUBJ) I 3 EXP) Z@dgdg.@0@dABCDi IHhZH&JA@BCi bDd C(85 NEGATE 75 SUBLIS 42 \DWIMIFYBLOCK/CLISPATOMIS1) (15 OR 7 AND) () \DWIMIFYBLOCK/CLISPATOMIS2 :D8 (L (0 X)) Y@@dGd` 80 > 60 CLISPTYPE 55 < 47 <) () \DWIMIFYBLOCK/CLISPBROADSCOPE1 :D8 (L (2 FLG 1 CONTEXT 0 X) F 1 DWIMIFYFLG F 2 CLISPCONTEXT) \@/@hddhddAggQRA X@HdAg@@@hddA @BA (89 DWIMIFY1? 77 DWIMIFY2? 43 DWIMIFY2?) (58 IS 29 IS 22 IS) () \DWIMIFYBLOCK/CLISPCAR/CDR :D8 (L (0 LST) F 5 VAR1 F 6 VAR2 F 7 ENDTAIL) Wg WgAhc h@dgi@bHYIggUhc L@Zdg@Z3-jJպ@b43IJ\gUgJhc @g@gU@ @[UK hbUd VUc UJH@h [+Jg [g rUhc ViUc cc V^Ul c QjJzJl"l JJmغgUhc VUc H@kJkUi Ii JUI c @bLgi@bIgg H.@*I'gUjJkhc VUc gUhc LJmgU UhgUjJhc VUc IygUhj(476 CLISPLOOKUP 412 DWIMERRORRETURN 365 \DWIMIFYBLOCK/CLISPCAR/CDR1 356 \DWIMIFYBLOCK/CLISPCAR/CDR1 349 \DWIMIFYBLOCK/CLISPCAR/CDR1 284 NLEFT 253 DWIMERRORRETURN 240 GETPROP 226 CLISPRECORD 200 CLISPTRAN 195 MAKEMATCH 183 DWIMIFY2? 171 \NCONC2) (511 CAR 484 NLEFT 470 LAST 452 CDR 428 NLEFT 407 %: 401 |::| 382 %: 315 CDDDDR 248 FIELDNAME 235 ACCESSFN 160 => 150 -> 133 with 127 match 82 - 65 NCONC1 59 NCONC 36 %: 18 7 _) () \DWIMIFYBLOCK/CLISPCAR/CDR1 :D8 (L (3 SETQFLG 2 TAILFLG 1 X 0 N) F 1 VAR2 F 2 DWIMIFYFLG F 3 VAR1) @jE@9R`@A CA@dkZAdgBg` AgPdgBg=g6g.Bg%glAgBggXAHW@dl0gS BHA@kh6HA@hQHcgHoXg BHHAhXQdcH(239 SHOULDNT 187 CLISPLOOKUP 72 \FZEROP 27 \DWIMIFYBLOCK/CLISPCAR/CDR2) (234 CLISPCAR/CDR 218 CAR 181 NTH 161 CADAR 155 CDDAR 145 CAR 131 CAADR 124 CDADR 114 CADR 107 CAAAR 100 CDAAR 89 CAAR 81 CAAR 65 CDAR 54 CAR 19 CHECKCARATOMFLG) ( 226 ((1 CAR . CDR) (2 CADR . CDDR) (3 CADDR . CDDDR) (4 CADDDR . CDDDDR))) \DWIMIFYBLOCK/CLISPCAR/CDR2 :D8 (L (1 X 0 N) F 1 FAULTPOS) 9QA @j)@Hdg H@kb h(51 \FZEROP 35 DWIMERRORRETURN 6 STKEVAL) (30 CARATOM) () \DWIMIFYBLOCK/CLISPIFA0010A0011A0012 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FORM F 3 TEM F 4 SI::NLSETQ-VALUE) i@R chcg(10 \DWIMIFYBLOCK/CLISPIF0) (21 :NORMAL) () \DWIMIFYBLOCK/CLISPIFA0010A0011 :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) *i@`VioWK gJ(29 \DWIMIFYBLOCK/CLISPIFA0010A0011A0012) (35 :NORMAL 9 SI::NLSETQ-PROCEED-CASE) ( 17 (CL:ERROR . SI::NLSETQHANDLER)) \DWIMIFYBLOCK/CLISPIFA0010 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 %#UNDOSAVES) hcg (12 \DWIMIFYBLOCK/CLISPIFA0010A0011) (7 CLISPIF0) () \DWIMIFYBLOCK/CLISPIF :D8 (P 10 SI::*RESETFORMS* P 8 UNDOSIDE P 7 UNDOSIDE0 P 6 LISPXHIST P 5 TEM P 2 VARS P 1 DWIMIFYING P 0 CLISPCONTEXT I 0 FORM F 11 DWIMIFYFLG F 12 ATTEMPTFLG F 13 CLISPCHANGE F 14 NOFIXVARSLST F 15 DWIMIFYING F 16 VARS F 17 LISPXHIST F 18 BREAKFLG F 19 EXPR F 20 NOFIXFNSLST F 21 %#UNDOSAVES)  WiccgWWW WhW$W& ``WW(WW"1 gN _d__jh_NSgOh^gW*h g $_Og"Ngg gO OOO Odg!@g KL'Mh(282 \DWIMIFYBLOCK/RETDWIM 255 CLISPELL 230 UNDONLSETQ1 213 UNDOSAVE 206 LISTPUT1 192 LISTPUT1 158 SI::RESETUNWIND 153 \MVLIST 148 \DWIMIFYBLOCK/CLISPIFA0010 89 MEMB 41 \DWIMIFYBLOCK/GETVARS) (270 NOFIXVARSLST0 263 NOFIXFNSLST0 250 IFWORD 240 :RESPELL 199 SIDE 187 NOSAVE 182 SIDE 173 NOSAVE 143 SI::RESETUNWIND 130 %#UNDOSAVES 118 SIDE 83 SIDE 72 NOFIXVARSLST0 64 NOFIXFNSLST0 51 NOFIXVARSLST0 46 NOFIXFNSLST0 13 IFWORD) () \DWIMIFYBLOCK/CLISPIF0 :D8 (L (0 FORM) P 8 DWIMIFYCHANGE F 14 LISPXHIST)  @`Lhhzgghg `dgdgHJML@ h h+dgdgHJML@ h Li`LhIYL]L\HJML@ h `I @gH gW _@\_dg Odd O`odgdgLNh`HNIg Iddgghdgdg MdL9L `Idg ILoi @\lL@h hOhOdhg OK O[dhg L\@ `_@Ii OOQgO X@@@HH OOOO@OOOg@K @OOO O_O_O_h_(651 \DWIMIFYBLOCK/CLISPIF3 636 CLISPTRAN 576 APPLY 571 DREVERSE 535 \DWIMIFYBLOCK/CLISPIF2 519 DWIMIFY2 502 \NCONC2 493 DWIMIFY2 470 DWIMERRORRETURN 453 LISPXPRIN1 433 SHOULDNT 407 LDIFF 348 SHOULDNT 261 FNTYP 242 DWIMIFY1 212 MEMB 199 /RPLNODE 186 DREVERSE 173 \NCONC2 166 \DWIMIFYBLOCK/CLISPIF1 124 \NCONC2 117 \DWIMIFYBLOCK/CLISPIF1 83 \NCONC2 76 \DWIMIFYBLOCK/CLISPIF1 45 SHOULDNT) (627 * 564 NCONC 541 CLISPIFTRANFLG 514 IFWORD 488 IFWORD 428 THEN 413 CLISPIFTRANFLG 389 then 381 THEN 370 ELSEIF 359 ELSE 343 ELSE 326 CLISPIFTRANFLG 305 if 297 IF 277 COMMENTFLG 237 IFWORD 205 SIDE 193 COND 179 CLISPIFTRANFLG 134 CLISPIFTRANFLG 101 else 93 ELSE 62 elseif 54 ELSEIF 40 ELSE 32 elseif 25 else 9 CLISPIFTRANFLG) ( 447 "parentheses error " 287 "misplaced comment ") \DWIMIFYBLOCK/CLISPIF1 :D8 (L (3 FORM 2 L 1 L0 0 PRED)) ?@AdB$lBCh @d@AB BAhAB h(58 LDIFF 40 LDIFF 22 DWIMERRORRETURN) NIL () \DWIMIFYBLOCK/CLISPIF2 :D8 (L (0 X)) d0@gW@ YXd@didI@@.i0@l YZ@IHJH IHJ h(96 /RPLNODE 84 /RPLNODE 59 NLEFT 18 FLAST) (9 COND) () \DWIMIFYBLOCK/CLISPIF3 :D8 (L (2 FIRSTCLAUSEFLG 1 ORIGWORDPAIR 0 CLAUSE)) }B`gGACg<@i!`gAg@h `gAg@@ `gAg@h (119 \APPEND2 61 \APPEND2) (111 THEN 101 then 95 LCASEFLG 84 ELSEIF 74 elseif 68 LCASEFLG 53 ELSE 43 else 37 LCASEFLG 24 IF 13 if 7 LCASEFLG) () CLISPLOOKUP :D8 (L (3 $LISPFN 2 $VAR2 1 $VAR1 0 WORD) F 3 EXPR F 4 FAULTFN) 0@g Ydg ZdST X@ABHCIJ 5Idg@ gIghC@g @XJg,ddJ%AdJBdJJH(101 GETPROP 69 GETTOPVAL 51 CLISPLOOKUP0 36 GETLOCALDEC 25 GETPROP 13 GETPROP) (112 ARITH 96 LISPFN 83 RECORDFIELD 75 RECORD 60 VALUE 20 CLISPCLASSDEF 8 CLISPCLASS) () \DWIMIFYBLOCK/CLISPRESPELL :D8 (L (2 FLG 1 WORDS 0 TL) F 0 NOSPELLFLG F 1 TYPE-IN?) 8Pih1PQ,@(@d3@ @ h@ @hAB (53 MISSPELLED? 41 CLISPNOTVARP 30 CLISP-SIMPLE-FUNCTION-P) NIL () \DWIMIFYBLOCK/CLRPLNODE :D8 (L (2 D 1 A 0 X) F 1 UNDOSIDE F 2 NOSAVEFLG F 3 UNDOSIDE0) .QRHS@AB @@dHHX@A@B@(20 /RPLNODE) NIL () \DWIMIFYBLOCK/CLUNARYMINUS? :D8 (L (0 OPRFLAG) F 0 SUBPARENT F 1 CURRTAIL F 2 TYP F 3 TYPE-IN?) yR@hrQPmQPgP ^PP QSN`GPPPg P hPdg ooi (118 FIXSPELL1 100 \NCONC2 95 RETDWIM2 74 RETDWIM2 37 CLISPNOTVARP 24 FNTYP) (85 - 62 - 47 CLISPHELPFLG) ( 112 " " 107 "the %"-%" is unary") DWIMIFYA0016A0017 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 VAL) iPhi h(13 PRINTDEF) (5 PRETTYTRANFLG) () DWIMIFYA0016 :D8 (NAME SI::*UNWIND-PROTECT* P 0 SI::*RESETFORMS* I 0 SI::*CLEANUP-FORMS*) *g`hg $(35 SI::RESETUNWIND 30 \MVLIST 25 DWIMIFYA0016A0017) (20 SI::RESETUNWIND 9 PRETTYTRANFLG 4 PRETTYTRANFLG) () DWIMIFY :D8 (L (2 L 1 QUIETFLG 0 X) P 1 SI::*RESETFORMS* P 0 VAL F 2 NOFIXFNSLST F 3 NOFIXVARSLST) k`oi hRS@B X@`S 1VSWhYdi XTH 4 SX!UWiWW`VYJS;`SSh`hddddi Sh`hddddi XD< SX1Vi d YhWTIiW TI mT SH THiW h(364 \DWIMIFYBLOCK/RETDWIM 353 FIXAPPLY1 346 FSTKNTH 337 \DWIMIFYBLOCK/RETDWIM 329 \DWIMIFYBLOCK/RETDWIM 307 EVAL 297 \DWIMIFYBLOCK/FIX89TYPEIN 284 \DWIMIFYBLOCK/FIXLAMBDA 277 \DWIMIFYBLOCK/RETDWIM 269 FIXSPELL 248 FIXSPELL 188 \DWIMIFYBLOCK/RETDWIM 177 WTFIXLOADEF 169 \DWIMIFYBLOCK/RETDWIM 159 \DWIMIFYBLOCK/CLISPATOM 142 STRPOSL 118 GETPROP 98 DWIMUNSAVEDEF 91 GETPROP 79 GETPROP 62 MARKASCHANGED 36 \DWIMIFYBLOCK/FIXLAMBDA 24 GETD) (257 SPELLINGS2 236 SPELLINGS1 227 DWIMUSERFORMS 213 LPARKEY 136 CLISPCHARRAY 129 CLISPFLG 113 FILEDEF 86 CODE 74 EXPR 57 FNS) () \DWIMIFYBLOCK/FIXATOM :D8 (P 3 CLISPERTYPE F 4 TAIL F 5 FAULTX F 6 CLISPCONTEXT F 7 DWIMIFYFLG F 8 CHARLST F 9 PARENT F 10 FAULTPOS F 11 NOSPELLFLG F 12 VARS F 13 CLISPERTYPE F 14 ONLYSPELLFLG F 15 TYPE-IN? F 16 GLOBALVARS F 17 NEWTAIL F 18 CLISPCHANGES) 0T'UmW XgH cH WghTWTW XzTW.W4g]]l _W0gg c2`iW2`mW2 i c4NWD_d cFMgWJ _M:W.6W0W,`W,`W,``_W0W,W,d_d3@O` _W0W,d3@)W0M=OO4W8i.`O_"``O OO `OW,_d3@Og Ok _`Og ,Og{W,`  g [W, QW, FW, 5W,W, WLOd3@Og iiFOSW,dg{W,ggW,RW,d&FW,dZdiJd3@ih)W,W, W,g W,ghW,h g`WNO$ ic,@W,g _g`hg $W.ic:W,g W,g W, hc4W,g _W, OW,d _M`W,_$KW.W,W,  d3@O3jOW, Og O` _`OW,W,i _OW,`W,` W.jO` _hc:T ~KW,W,W, c`d _h W0W2OiWH 9W2O -K3OhW,h`hW,hddi #W.`W,h`hW,hddi _+OW,OW,O h_O ±"`W.>W,9W64W,h`hW,hddi W,` W@WP _u`xOtLqW,_iOd3@aOh`hW.W6W,hddi _?W.W6gg OW,W,i _Oc,W2W, hdcBg(1502 \DWIMIFYBLOCK/RETDWIM 1496 \DWIMIFYBLOCK/RETDWIM 1478 \DWIMIFYBLOCK/CLISPATOM 1460 SI::INTERNAL-THROW 1432 FIXSPELL 1368 \DWIMIFYBLOCK/CLISPATOM 1359 DUNPACK 1344 FIXSPELL 1292 \DEFINEDP 1280 /RPLNODE 1254 FIXSPELL 1219 FIXSPELL 1185 \DWIMIFYBLOCK/RETDWIM 1173 \DWIMIFYBLOCK/RETDWIM 1148 EVAL 1131 \DWIMIFYBLOCK/FIXLAMBDA 1104 \DWIMIFYBLOCK/RETDWIM 1095 WTFIXLOADEF 1077 DUNPACK 1055 GETHASH 1023 \DWIMIFYBLOCK/CLISPATOM 999 DUNPACK 985 GETPROP 971 \DWIMIFYBLOCK/CLBINARYMINUS? 939 \DWIMIFYBLOCK/FIXLAMBDA 890 \DWIMIFYBLOCK/CLISPATOM 878 CLISPNOTVARP 862 GETPROP 842 DWIMUNSAVEDEF 833 GETPROP 819 GETPROP 789 SI::RESETUNWIND 784 \MVLIST 779 WTFIX1A0024A0025A0027 745 GETPROP 724 WTFIX1A0024A0025A0026 692 /RPLNODE 668 CLISPFUNCTION? 653 MEMB 648 FREEVARS 544 MARKASCHANGED 519 \DWIMIFYBLOCK/FIXLAMBDA 514 GETD 496 \DEFINEDP 486 CLISPNOTVARP 475 CLISPNOTVARP 465 GETPROP 455 PACK 449 DUNPACK 423 GETPROP 399 NTHCHAR 389 GETPROP 344 \DWIMIFYBLOCK/FIX89TYPEIN 334 STRPOSL 282 SHOULDNT 276 \DWIMIFYBLOCK/FIXAPPLY 264 SHOULDNT 258 \DWIMIFYBLOCK/FIXATOM 239 DUNPACK 143 MEMB 125 \DWIMIFYBLOCK/GETVARS 107 FINDFN 101 FSTKNTH 67 STKPOS 45 CLOCK 17 \CLOCK0) (1513 :NORMAL 1455 :RESPELL 1450 CLISPATOM1 1410 CLISPINFIXSPLST 1377 CLISPFLG 1354 WTFIXCHCONLST 1331 CLISPISWORDSPLST 1304 CLISPFLG 1241 NOFIXFNSLST0 1230 NOFIXFNSLST0 1206 SPELLINGS2 1140 DWIMUSERFORMS 1072 WTFIXCHCONLST 1050 CLISPARRAY 1042 CLISPARRAY 1007 CLISPCHARS 994 WTFIXCHCONLST1 980 CLISPTYPE 903 CLISPFLG 857 FILEDEF 828 CODE 814 EXPR 774 SI::RESETUNWIND 763 LCASEFLG 758 LCASEFLG 740 CLISPWORD 711 SI::NLSETQ-PROCEED-CASE 700 CLISP%: 678 X 663 OKVAR 587 LAMBDA 582 FUNCTION 571 F/L 539 FNS 460 CLISPTYPE 444 WTFIXCHCONLST1 432 ~ 418 UNARYOP 406 CLISPCHARS 384 CLISPTYPE 353 CLISPFLG 327 CLISPCHARRAY 321 CLISPFLG 309 LPARKEY 234 WTFIXCHCONLST 203 LISPXHISTORY 193 LISPXHISTORY 180 LISPXHISTORY 166 LISPXHISTORY 136 SIDE 91 CLEARSTKLST 85 CLEARSTKLST 75 CLEARSTKLST 62 FAULTEVAL 56 FAULTAPPLY 34 TYPE-IN) () WTFIX1A0024 :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) *i@`VioWK gJ(29 WTFIX1A0024A0025) (35 :NORMAL 9 SI::NLSETQ-PROCEED-CASE) ( 17 (CL:ERROR . SI::NLSETQHANDLER)) WTFIX1 :D8 NIL +`$g dggg (40 SI::INTERNAL-THROW 16 WTFIX1A0024) (35 :RESPELL 30 CLISPATOM1 22 :RESPELL 11 WTFIX 4 DWIMFLG) () EXPRCHECK :D8 (P 0 D I 0 X F 1 ADDSPELLFLG) @d3@@o S@i X D@ J`@lF`hdg X@o b X Q@j @H@o h(128 ERROR 112 ADDSPELL 102 EXPRP 96 VIRGINFN 87 ERROR 73 MISSPELLED? 43 \DEFINEDP 35 EXPRP 29 VIRGINFN 19 ERROR) (67 GETD 60 USERWORDS 50 DWIMFLG) ( 123 "not an expr." 82 "not defined." 14 "not a function.") CLISPNOEVAL :D8 (P 0 TEM I 1 DEFAULT I 0 FN F 3 NLAMA F 4 NLAML F 5 MACROPROPS) 0@`X@ dkdli]bO@dSSdTNg @U A5`%@g Yg@I