(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)

(FILECREATED "21-Feb-2026 16:17:29" ("compiled on " {WMEDLEY}<sources>DWIMIFY.;3) 
"20-Feb-2026 15:32:02" bcompl'd in "FULL 20-Feb-2026 ..." dated "20-Feb-2026 15:32:10")
(FILECREATED "21-Feb-2026 16:14:43" {WMEDLEY}<sources>DWIMIFY.;3 309375 :EDIT-BY rmk :CHANGES-TO (VARS
 DWIMIFYCOMS) :PREVIOUS-DATE "14-Sep-2022 10:25:44" {WMEDLEY}<sources>DWIMIFY.;2)
\DWIMIFYBLOCK/CLBINARYMINUS? :D8
(L (1 MINUSTAIL 0 $TAIL) F 0 TAIL F 1 PARENT F 2 TYPE-IN?)    PQ P)P3#Pd3@ P	    htP	    hjRP`    `@@@g    @	    h@dg    	    
    o    o    i    AhAg    jAA     (156 /RPLNODE 131 FIXSPELL1 113 \NCONC2 108 RETDWIM2 87 RETDWIM2 48 CLISPFUNCTION? 38 CLISPNOTVARP)
(144 - 98 - 75 - 60 CLISPHELPFLG)
( 125 " " 120 "the %"-%" is a clisp operator")
\DWIMIFYBLOCK/CLISPANGLEBRACKETS :D8
(L (0 LST) P 2 WORKFLAG P 1 NCONC1LKUP P 0 NCONCLKUP)    g    	    g    	    @	     (28 \DWIMIFYBLOCK/SHRIEKER 19 CLISPLOOKUP 9 CLISPLOOKUP)
(14 NCONC1 4 NCONC)
()
\DWIMIFYBLOCK/CLISPATOM :D8
(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 8 FAULTPOS) ` Uh  S>`    i`    g    )R&@AB     S V`    
    ch@g    xg    g    
    g@-g    @	    hANABAHA    >    6Ad    )BAg    A    AAg    AhXA    HC|TiuTRm`    @X`    @XVQA!QH
    WQQ3AQ
    /R)H`    @	    X`    `    @H
    XHi     (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	    chcg     (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@`    Vio    WK	    g    J (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)    hc g    	     (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) 
 WBcA`    "W1g    L
    ^d]jhLQg    Nh\g    Whg    	    	        $_Mg    !Lg    g        g    N        ONM
    Odg    ,I    WhcA	    A`    
    b A:AI    J6H	OJJ	        [KAd3@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))     @Ao    	    
     (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(djW"g    
    ]@W"dg    O	    W"g    W"    g    g    
    ]h_H OvW&HW"EW0@W,i9W&`    .W(	    _`    `    W(O
    _Oi    hW&jW&	    _    W6W&O    ۱I i_I	    _OOh
    _h_c&@Ob W$@c$`    OHg    
    ]#Hdg    /HdIO	     Hg    g    g    
    ] g    HI O HdO JkZsO lJkZeMg    6Hg    
    _ HO JkZ?g    O hW$h	    (W&%W,iW,W0Hd`    d`    c&HIIH
    	    _Hg    Hg    IkH    g    Hg    'Hg    O HHg    O 
    OOJjJHX	    HdW(N.W"(OOW"W"OOW"[c"
        W"[c"W"O W*W<OJj J OKg     W"d3@,W"3 jW" O  O KW"
     W"	     W"g    
    ]Mg    O W"	    c(XO dH_O HW"HO
    	    O	    W"    &	    <W"d3@*W"g    
    "W"k
    g    
    NW"O!@lW"    _:OOJj$JW"[c"i_h_	    NW"g    Og    W"W"W"g    
    O_g    g    g    W"    |g    _OdW"W"    O[c"i_h_dg    dg    Og    M\ W"YO (W"g    
    _HW"O)O_ JkZ3dW"JkZ%W"JkZg    OhW$h	    N[O)W"_MOg    
    _Og    
    _'OMW"g    
    _W"g    
    g    _W"g    
    O 
W"O _W"[c"@O?Og    
    1W$@W2d@k@W$h	    W2W$k@    b i_    N_g    
    \3L3NW*0W.,Ng    
    g    W.g    &W.g    OL@    _W*OW$Ob W4#@dW$iMLW"O    W"^@_W*Oc@OOc8W4W$@dW$@@_OOg    O    @dO`    hc:W*hc>    OOh
    _h_OHh
    _N O/H_MOg    
    _Og    
    g    _QO*MHg    
    _Hg    
    g    _%MLHHIhO    HW(W"O	    O 	HO _H2W".O HO Hg    W"dH	    W"    hXc&HHg    hHXh (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@BBB@dg    Hg    
    [ @g    
    hHdg    ibHH]    Hb g    
    b WvVqWkHg    
    g    TVg     Vg     ;g    
    [ Hg    
    MHdMLk\GMALk\:Kdg    2Hg    
    HMLk\g    MhWh	    KAHI    &Kg    HMILjLL	    JiWg    cB (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)  W  STHXdIJdHHJg    g    HH`    
    `    hJ (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"OW"_c"W6j,W*g    "g    jW6W,W,hHh	    W k	    W"W0 W"g    
    VW H W"g    
     W"g    W"g    
     IW 	     lW"Hh	     W0 HW  W"3W&+W.g    !W"`    
    g    g    
    ^W"	I1W 0`    
    W&DW.g    g    g    
    (W 	    lW"Hh	    IW W 	    W*g    zIW W O
    dhihdW&W.g    W.    g    W,
    _og    W,
    _0N'd_OOOhOh_O'O__OJg    W,
    IN	    _OW N'IOg    N	    NkOW NlOW"W0HHW W NN    iW NW"    g    W&\Nc(UW H W _g    "Og    
     Og    
     ic2HkW     c dW     hW c$g    
    Oh_W$dg    W dW$c izg    W$g    $g    c$W g    W W     W"W l	    IW W W"
    ]Ik	    W<UW$MKg    g    H    W W>H_OdW 
    W     ic2Oc W&W(W HW2    W W$dg    IJgM	    hL
    _W&W(Oc(M_O3MM
    W4Ng    LW$ dg    g     dg    g     dg    dg    Lsdg    dg    hLMi    
    Lg    
    _L	    Lg    
    _hOL
    LM
    
    g    	    _g    
    LOLhJ    Zg    Mg    Mg    MW8 Lg     g    i
    `    \id    jW$LMJ    IAMM6W80Jg    'Mdg    g    i
    `    id    MhMdMh_Jdg    >M'JLM
    _Hd H3 W d
     M g    Z~g    .LOdkg    Zbg    Vmg    ZJJdg    𲍿LOkg    Z-g    MM3jMՉg    Mhhg    hKhFHJ	    W&Oc(W&W(I'Oc(N_O3Jg    NH
    I LlJLfJg    @Jg    7Jg    .Jg    %Jg    Jg    Jg    Jg    L`    NLLM
        MW&Ndd3@NH
    N-NZg    
    c*NJg    
    !l	    NNZg    
    c*JW*NW"    OHg    HHh    Hg    @H_8HO	    _+HW W OW OW OO    W4g    c4W  (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 @iWh_UWUW"UW    W    Vg    Vg     Td WTd`    g     	     HTW
    Tg    
    TW"T`        g    }Ig    bTdA[WiSWW LWThWhddddig    
    [Th`    hddddig    
    [AKA    g    T`        g    [@dIg    @	    @@@<@d3@4@g    
    %hY@Aihig        WV`    Kch (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))  E   AdA$	    Adg    g    
    A	    lm    
     (66 CONCAT 61 SUBSTRING 52 RETDWIM2 45 CONCAT 18 RETDWIM2)
(36 - 28 +-)
()
\DWIMIFYBLOCK/CLISPATOM2CA0009 :D8
(L (1 Y 0 X))  O   AdA$	    Adg    g    
    @d@AA	    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  @b Pg    [Pg    RPg    Idd3@B@g    
    3@g    g    g    Q@    @d@
    hcg    ch (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@5PAA    A`    
    b P@
    A`    `    PP@A    Pci@ATg    A3jAՂ@AbPAR    Pcg     (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`    hd#dg    dg    HA
    h	HX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  @dA-g    STh	    @X@YR@dHH@hIR@cAI
    Y@IdHIhbb  (77 \APPEND2 28 DWIMERRORRETURN)
(16 PHRASE)
()
\DWIMIFYBLOCK/CLISPATOMIS1 :D8
(L (4 NEGATE 2 ALST 1 OBJ 0 SUBJ) I 3 EXP)  Z  @dg    dg    .@0@dABCDi    IHhZH&JA@BCi    bDd	    C (85 NEGATE 75 SUBLIS 42 \DWIMIFYBLOCK/CLISPATOMIS1)
(15 OR 7 AND)
()
\DWIMIFYBLOCK/CLISPATOMIS2 :D8
(L (0 X))  Y  @ @dGd`    <dHd@@
        dg    dg    	    @b  (77 \DWIMIFYBLOCK/CLISPATOMIS2 48 \DWIMIFYBLOCK/CLRPLNODE 43 \APPEND2)
(69 OR 59 AND 17 CLISPLASTSUB)
()
\DWIMIFYBLOCK/CLISPBROADSCOPE :D8
(L (2 CONTEXT 1 L 0 $TYP) P 0 BRACKETCNT)    jAA$IdB
    dIh    IBi    hg    g    g    
    Hkظ2Adg    g    g    
    HkٸA@HjHAb	    AIIB
    AbYnIdA
    A    IBi    AbYN (177 \DWIMIFYBLOCK/CLISPBROADSCOPE1 168 \DWIMIFYBLOCK/CLRPLNODE 162 LDIFF 145 \DWIMIFYBLOCK/CLISPBROADSCOPE1 131 \FZEROP 99 GETP 65 GETP 39 \DWIMIFYBLOCK/CLISPBROADSCOPE1 30 \DWIMIFYBLOCK/CLRPLNODE 17 \DWIMIFYBLOCK/CLISPBROADSCOPE1)
(94 CLISPTYPE 89 > 80 > 60 CLISPTYPE 55 < 47 <)
()
\DWIMIFYBLOCK/CLISPBROADSCOPE1 :D8
(L (2 FLG 1 CONTEXT 0 X) F 1 DWIMIFYFLG F 2 CLISPCONTEXT)  \  @/@hddhddAg    g    QRA    X@HdAg    @@@hddA    @BA
     (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)  Wg    Wg    Ahch@dg    i@b HYIg    g    Uhc
L@Zdg    @Z3-jJպ@b 43 IJ\g    Ug    Jhc
@g    @g    U@
    @[UK    hb Ud	    
    V Uc UJH@h    [+Jg    
    [g    	    rUhc
ViUccc
V^Ul
    cQjJzJl"l	JJmغg    Uhc
VUcH@kJkUi    Ii    JUI    c
@b Lg    i@b Ig    g    	    H.@*I'g    UjJkhc
VUcg    Uhc
LJmg    U
    Uhg    UjJhc
VUcIyg    Uhj (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
    C A @dkZAdg    Bg    `	    Ag    Pdg    Bg    =g    6g    .Bg    %g    lAg    Bg    g    XAHW@dl0g    S
    BHA@kh6HA@hQHcg    Ho    Xg    	    BHHAhXQdcH (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)  9 QA
     @j)@Hdg    	    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	    chcg     (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@`    Vio    WK	    g    J (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)    hc g    	     (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)  Wiccg    WWW WhW$W&	    `    `    WW(    W    W"1	g    N
    _d__jh_NSg    Oh^g    W*h
g    	    	        $_Og    "Ng    g        g    O        OOO
    Odg    !@g    
    K    L    'M    h (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)  	@`     Lhhzg    g    hg    	    `dg    dg    HJML@    h
    h+dg    dg    HJML@    h
    Li`    LhIYL]L\ HJML@    h
    `    I	    @g    H    g    W
    _@\_d g    
    Od d	     O`     o     dg    dg    LN h`    HNIg    	    Iddg    g    hdg    dg    MdL9L
    `    Idg    	    ILo    i
    @\lL@h	    hOhOdhg        OK
    O[dhg        L\@	    `    _@IiOOQg    O	    
    X@@@HHOOOO@OOOg    @K
    @OOO    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$lBCh	    @d@AB
    BAhAB
    h (58 LDIFF 40 LDIFF 22 DWIMERRORRETURN)
NIL
()
\DWIMIFYBLOCK/CLISPIF2 :D8
(L (0 X))  d  0@g    W@	    YXd@didI@@.i0@l
    YZ@IHJH    IHJ    h (96 /RPLNODE 84 /RPLNODE 59 NLEFT 18 FLAST)
(9 COND)
()
\DWIMIFYBLOCK/CLISPIF3 :D8
(L (2 FIRSTCLAUSEFLG 1 ORIGWORDPAIR 0 CLAUSE))  }   B`    g    GACg    <@i!`    g    Ag    @h
    `    g    Ag    @@ `    g    Ag    @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    
    ZdST
    X@ABHCIJ    5Idg    @	    g    Ig    hC@g    
    @XJg    ,ddJ%AdJBdJJH (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?)  8  Pih1PQ,@(@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)  . Q RHS@AB    @@dHHX@A@B@ (20 /RPLNODE)
NIL
()
\DWIMIFYBLOCK/CLUNARYMINUS? :D8
(L (0 OPRFLAG) F 0 SUBPARENT F 1 CURRTAIL F 2 TYP F 3 TYPE-IN?)  y  R@hrQPmQPgP	    ^PP	    QSN`    GPPPg    P	    hPdg    	    
    o    o    i     (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)    i    Phi    h (13 PRINTDEF)
(5 PRETTYTRANFLG)
()
DWIMIFYA0016 :D8
(NAME SI::*UNWIND-PROTECT* P 0 SI::*RESETFORMS* I 0 SI::*CLEANUP-FORMS*)  *  g    `    h g    	    	        $ (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  `    o    i
    hR    S    @B
    X@<B9A6g    i	    hhhg    	    	        $i	    H (103 TERPRI 92 SI::RESETUNWIND 87 \MVLIST 82 DWIMIFYA0016 62 OUTPUT 40 DWIMIFY0 19 LISPXPRIN1)
(77 SI::RESETUNWIND 56 OUTPUT 33 NOFIXVARSLST0 27 NOFIXFNSLST0 7 DWIMFLG)
( 13 "DWIM is turned off!
")
DWIMIFY0 :D8
(L (1 Y 0 X) P 10 TYPE-IN? P 9 ONEFLG P 8 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 11 LISPXHIST F 12 DFNFLG) D idg    W
    
Ad g    	    \LA	    bA	    @bg    hdW    @A
    @A
    A_`    Og    A_`    Og    *A_`    Og    @dAdA@@
    @@	    A\C@b@	    _MLJ
    O@dg    \@bd	    	    _d[\Ob	    M-KJ
    Kd	    Wg    Kd	    Ki
    K (320 DWIMUNSAVEDEF 311 EXPRP 292 \DEFINEDP 284 DWIMARKASCHANGED 274 DWIMIFY1 258 EXPRCHECK 252 DWIMIFY1 228 DWIMARKASCHANGED 217 DWIMIFY1 200 DWIMIFY1 192 DWIMIFY2 94 DWIMIFY2 85 TAILP 77 LISPXPUT 57 LAST 49 VARSBOUNDINEDITCHAIN 37 \EVALV1 13 MEMB)
(302 PROP 242 TYPE-IN 165 SELECTQ 154 DWIMEQUIVLST 141 SELECTQ 130 DWIMEQUIVLST 116 COND 105 DWIMEQUIVLST 68 RESPELLS 32 ATM 6 SIDE)
()
DWIMIFY0? :D8
(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 8 DWIMIFYFLG)  f WV    W        dg    dg    V    W    id    g    V    W    @     (99 \DWIMIFYBLOCK/DWMFY0 67 \DWIMIFYBLOCK/DWMFY0 23 \DWIMIFYBLOCK/DWMFY0)
(90 NOFIXVARSLST0 82 NOFIXFNSLST0 73 EVAL 56 NOFIXVARSLST0 48 NOFIXFNSLST0 38 VARSBOUND 30 CLISPIFY 17 NOFIXVARSLST0 9 NOFIXFNSLST0)
()
DWIMIFY1 :D8
(L (0 FORM) I 2 FORMSFLG I 1 CLISPCONTEXT)     @	     (5 \DWIMIFYBLOCK/DWMFY1)
NIL
()
DWIMIFY1? :D8
(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	@	    iT    U    @	     (31 \DWIMIFYBLOCK/DWMFY1 8 \DWIMIFYBLOCK/DWMFY1)
(25 NOFIXVARSLST0 19 NOFIXFNSLST0)
()
DWIMIFY1A :D8
(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 BR S Pg     BT	    ki
    Pg    o    i
    @A
    id    Ad3!o    i
    Ai
    o    i
    0o    i
    o    Ahl    lm    
    id    h (170 LISPXPRINT 163 CONCAT 158 SUBSTRING 149 RETDWIM2 135 LISPXPRIN1 121 LISPXPRIN1 110 LISPXPRIN1 103 LISPXPRIN1 84 LISPXPRINT 77 RETDWIM2 69 LISPXPRIN1 48 LISPXSPACES 40 FIXPRINTIN)
(55 IFWORD 26 IFWORD)
( 140 "... " 129 "at " 115 ")
" 97 "too many arguments (more than " 63 "(possible) parentheses error in
")
DWIMIFY2 :D8
(I 5 ONLYSPELLFLG I 4 ONEFLG I 3 FORMSFLG I 2 SUBPARENT I 1 PARENT I 0 TAIL)          (4 \DWIMIFYBLOCK/DWMFY2)
NIL
()
DWIMIFY2? :D8
(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 DWIMIFYING F 5 NOFIXFNSLST F 6 NOFIXVARSLST)   SSTiU    V         (27 \DWIMIFYBLOCK/DWMFY2)
(22 NOFIXVARSLST0 16 NOFIXFNSLST0)
()
DWIMIFY2AA0018 :D8
(L (1 Y 0 X))     A	    lm     (14 SUBSTRING 5 RETDWIM2)
NIL
()
DWIMIFY2AA0019 :D8
(L (1 Y 0 X))  $   @d@AA	    	    o    
     (33 CONCAT 23 MKSTRING 18 RETDWIM2)
NIL
( 28 ")")
DWIMIFY2A :D8
(L (1 $TYP 0 $TAIL))     @Ag    g    @     (18 CLISPFUNCTION?)
(11 DWIMIFY2AA0019 6 DWIMIFY2AA0018)
()
DWIMIFYFNS :D8
(L (0 FNS) F 3 NOFIXFNSLST F 4 NOFIXVARSLST)  j	    S    T    0@d dg    @hg        gg    
    Y`    @lF`    h@    @g    
    @	    )g    @g        d	    IHhZH&J (142 DWIMIFY0 133 STKEVAL 114 FILEFNSLST 106 GETPROP 92 MISSPELLED? 65 EVALV 52 STKEVAL 5 CLOCK)
(128 INTERNAL 121 DWIMIFYFNS 101 FILE 84 FILELST 73 DWIMFLG 60 DWIMIFYFNS 47 INTERNAL 39 DWIMIFYFNS 18 NOFIXVARSLST0 12 NOFIXFNSLST0)
()
\DWIMIFYBLOCK/DWMFY0 :D8
(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 8 ONEFLG F 9 CLISPCONTEXT F 10 SUBPARENT)  (  VWiSTdUW
    TUWSW    J (36 DWIMIFY2 22 DWIMIFY1)
NIL
()
\DWIMIFYBLOCK/DWMFY1 :D8
(L (0 FORM) P 11 VARS P 10 NEXTAIL P 5 ATTEMPTFLG P 4 89CHANGE P 3 CLISPCHANGE F 15 VARS F 16 FORMSFLG)  @	@ HhZi
    JdId9H`    HZg    #Jg    I	    	`    h^d3@I	     
Hddd     Hd	    FKCL hH`    HYdg     dg     H	    d`    [Hg    IkH@
    H`    HYNKI	    W H`    HZg    Jg    NI	    H	    HNK-MIdd3@I`        IuIdg    𝿱9g    @g    7H-d_dg    dg    O`    
        ӱIg    Idg    `    HHk
    g    EH@ihi    Hd@hdi    HXd@i    Hid    HIg    Ig    Ig    Idg    2HdWd`    `        H@i    %g    Hddhi    	Idg    H
HHh	     g    H@i     Ig    Idg    +HHHhW
    H@i     g    
    _g    Otg    Oj0HFd_d)Oi    Odd3@@O@
    O_O	Oh_O&_OW
    H@i    I	    2@`    :I	    j0I	    ZdjHkHJdlHlHHJ
    @ (999 DWIMIFY1A 959 NARGS 949 ARGTYPE 930 CLISPNOEVAL 922 DWIMIFY2 909 \NCONC2 871 DWIMIFY1A 845 DWIMIFY2 796 GETPROP 782 DWIMIFY2 769 \APPEND2 723 DWIMIFY2 702 DWIMIFY1 664 DWIMIFY2 640 DWIMIFY2 556 DWIMIFY2 540 DWIMIFY2 525 DWIMIFY2 505 DWIMIFY2 481 DWIMIFY1A 426 UNION 316 DWIMIFY1A 306 CHECKTRAN 251 DWIMIFY1 221 DWIMIFY2 184 CHECKTRAN 128 CHECKTRAN 116 \DWIMIFYBLOCK/WTFIX0 100 CLISP-SIMPLE-FUNCTION-P 78 CHECKTRAN 19 DWIMIFY2)
(941 DWIMCHECK#ARGSFLG 815 BINDS 803 BINDS 791 INFO 742 NLAMBDA 733 LAMBDA 711 RESETVAR 679 FUNCTION 649 COND 629 NOFIXVARSLST0 623 NOFIXVARSLST0 614 NOFIXVARSLST0 593 SETARG 584 RPAQ 575 SETN 566 SETQ 490 SELECTQ 463 DWIMCHECK#ARGSFLG 454 GO 445 QUOTE 431 NOFIXVARSLST0 421 NOFIXVARSLST0 408 GLOBALVARS 400 USEDFREE 383 DECLARE 373 PARTIAL 362 * 348 NOFIXFNSLST0 342 NOFIXFNSLST0 290 NLAMBDA 279 LAMBDA 266 DWIMEQUIVLST 229 DWIMEQUIVLST 204 PARTIAL 193 CLISPRETRANFLG 172 NLAMBDA 161 LAMBDA 148 DWIMEQUIVLST 85 CLISPRETRANFLG 67 NLAMBDA 56 LAMBDA 43 DWIMEQUIVLST)
()
\DWIMIFYBLOCK/DWMFY2 :D8
(P 6 ATTEMPTFLG P 5 NEXTAIL P 4 89CHANGE P 3 CLISPCHANGE F 10 TAIL F 11 PARENT F 12 FORMSFLG F 13 CLISPCONTEXT F 14 SUBPARENT F 15 NOSPELLFLG F 16 ONLYSPELLFLG F 17 ONEFLG F 18 TYPE-IN? F 19 FAULTFN) 

  WW	WiWdWWcW`    Wh[\WYdEWg    I	    WBWW9Jg    Jg    &WdW
    d3@Jg    
    _g    OUg    OK`    I`    `    I
    W&	    ki
    o    i
    Ii
    WI	    W4WW+Wg    
    IWWg    i_NWg    6WW.JOO$Wg    
    IWJg    cIg    
    1W WieWW$^IWWWW     ML h__|Jg    
    WWWi_WW
    W+Hd3@ ±WHi_WWW I	    fWg    WWJOOg    c/Wg    XWSW g    II	    AIg    8I`    /WW
    #N!`    Ig    
    I`        W"GMWihMcWg    WWdg    OOH@WiO6O2W$Fo    XHOHg    
    OOHdH
    W"HOhMWiWMo    H	    lm    
    o    H	    	    o        hi    WdW
    WW
     (890 DWIMIFY1 879 /RPLNODE 864 FIXSPELL1 857 CONCAT 847 MKSTRING 842 RETDWIM2 831 CONCAT 826 SUBSTRING 817 RETDWIM2 781 /RPLNODE 763 DWIMIFY2A 648 GETPROP 626 DWIMIFY1A 597 EXPRP 526 \DEFINEDP 479 DWIMIFY1A 450 GETPROP 422 \DWIMIFYBLOCK/WTFIX0 388 GETPROP 355 DWIMIFY2A 286 DWIMIFY2A 259 CLISPNOTVARP 244 LISPXPRINT 236 LISPXPRIN1 224 LISPXSPACES 216 FIXPRINTIN 205 STRPOSL 150 GETPROP 128 /RPLNODE 80 DWIMIFY1)
(758 QUIET 705 FORWORD 694 FOR1 661 NOFIXVARSLST0 655 NOFIXVARSLST0 643 CLISPTYPE 636 CLISPFLG 614 COMMENTFLG 605 E 588 NORUNONS 573 IFWORD 560 FOR1 535 FORWORD 445 CLISPWORD 383 CLISPWORD 371 FOR1 350 QUIET 322 FORWORD 304 FORWORD 281 QUIET 199 CLISPCHARRAY 189 NOFIXVARSLST0 179 DWIMCHECKPROGLABELSFLG 169 LABELS 157 LABELS 145 INFO 110 NLAMBDA 102 LAMBDA 72 LINEAR 39 DWIMEQUIVLST)
( 852 ")" 836 "... " 811 "... " 743 "" 230 "suspicious prog label: ")
\DWIMIFYBLOCK/FIX89 :D8
(L (2 POS 1 N 0 FORM) F 1 FAULTX F 2 TAIL F 3 EXPR)  k A`    g    g     QQ3RBQA
    hSg    @@3g    g    @ihHhBhhhdh
    o    	    h (103 EXEC-FORMAT 93 EDITE 39 \DWIMIFYBLOCK/FIX89A)
(65 F= 59 F 48 ORR 18 FIX9 12 FIX8 5 LPARKEY)
( 98 "couldn't~%%")
\DWIMIFYBLOCK/FIX89A :D8
(L (2 POS 1 N 0 X) F 0 CHARLST F 1 TYPE-IN? F 2 DWIMIFYFLG F 3 ATTEMPTFLG)  m  @@b BA@
    b@dkBk    o    A`    o    o    
    @Bk
    o    hPQhg        iRich (96 FIXSPELL1 70 SUBSTRING 61 CONCAT 30 SUBSTRING 16 STRPOS)
(90 MUSTAPPROVE 43 LPARKEY)
( 77 "" 56 " )" 50 " (" 37 "")
\DWIMIFYBLOCK/FIX89TYPEIN :D8
(L (2 APPLYFLG 1 CLST 0 X) F 1 FAULTARGS F 2 FAULTPOS F 3 FAULTX)  q  g    i
    @A&@	    Xid    RHBSQdh
    9BQ#ScRA@
    	    id    i@dQh	    Q    h (109 \DWIMIFYBLOCK/RETDWIM 102 PACK 84 PRINT 77 PACK 72 LDIFF 52 \DWIMIFYBLOCK/RETDWIM 33 PRINT 25 PACK 13 PRIN1)
(7 =)
()
\DWIMIFYBLOCK/FIXAPPLY :D8
(P 2 TYPE-IN? F 3 FAULTX F 4 FAULTPOS F 5 TYPE-IN? F 6 CHARLST F 7 FAULTARGS F 8 FAULTFN F 9 FAULTXX F 10 FILEPKGFLG F 11 HISTENTRY F 12 NOSPELLFLG F 13 FAULTAPPLYFLG) p   WShc
Sd3@4S	    X+H	     WSd3@Sg    
    SXSg    
    Sg    
    S	    Shc Sg    
    Y5U``    >`    S
    1VSWhYdi    XTH
    4	    SX     !UWiWW`    VYJS;`    SSh`    hddddi	    Sh`    hddddi	    XD    <	    SX1Vi    d	    YhWTIiW    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)   0T'UmW
    Xg    H
        cH	    Wg    hTWTW    XzT<TYd3@2I	    dl_dlihI	    TWi    X<`    `    d	    XhWiWWUg    
    UW WUhWhJhddi	    XUh`    hJhddi	    XW Vg    )Uh`    hihddi	    g    g    
    |WqVg    )Uh`    hihddi	    g    g    
    HW=`    Uh`    hJhddi	    X&W`     Vg    2VT'`     W$ W Uh`    hWCV@WUh`    hThddi	    XVg     H`    
    TW    X Thddi	    X=WVVg    g    g    
    Hc
`    
    cTW    XoUTRW3KWd3hX;UWH
    	    H	    YhWg        TIIT    IX    JUTTHT    W"W    WH
    h (722 \DWIMIFYBLOCK/RETDWIM 713 \DWIMIFYBLOCK/FIXATOM1 701 /RPLNODE 684 \DWIMIFYBLOCK/RETDWIM 673 /RPLNODE 658 FIXSPELL1 642 PACK 636 PACK 631 LDIFF 590 \DWIMIFYBLOCK/CLISPATOM 580 DUNPACK 565 SI::INTERNAL-THROW 531 FIXSPELL 516 \DWIMIFYBLOCK/CLISPATOM 508 DUNPACK 483 FIXSPELL 389 FIXSPELL 356 SI::INTERNAL-THROW 339 FIXSPELL 304 SI::INTERNAL-THROW 287 FIXSPELL 248 FIXSPELL 224 FIXSPELL 192 GETPROP 153 EVAL 127 \DWIMIFYBLOCK/CLISPATOM 117 UNPACK 91 CHCON1 66 \DWIMIFYBLOCK/CLISPATOM 41 RELSTK 32 FINDATOM 27 BLIPVAL 15 STKNTH)
(652 MUSTAPPROVE 575 WTFIXCHCONLST1 560 :RESPELL 555 CLISPATOM1 547 IS 503 WTFIXCHCONLST 492 IS 471 CLISPISWORDSPLST 450 CLISPINFIXSPLST 427 CLISPFLG 413 IS 403 CLISPFLG 377 NOFIXVARSLST0 368 NOFIXVARSLST0 351 :RESPELL 346 CLISPFOR0 327 CLISPFORWORDSPLST 317 FORWORD 299 :RESPELL 294 CLISPIF0 275 CLISPIFWORDSPLST 265 IFWORD 236 SPELLINGS3 187 GLOBALVAR 145 DWIMUSERFORMS 138 DWIMUSERFORMS 49 NORUNONS 21 *FORM*)
()
\DWIMIFYBLOCK/FIXATOM1 :D8
(F 6 NEWTAIL F 7 PARENT F 8 FAULTPOS F 9 TAIL F 10 FAULTFN F 11 TYPE-IN?)   mW
    Qg    H
    VtWdg    @dg    7dg    .dg    %dg    dg    dg    dg    )WJ_g    HhV    V	    VYQg    H
    WJi0VKW$W\L3KWKWKWh V,VW	    l]jFM:VWhW
    g    Hhd    g    Hhg        WY 	    g    HhHV	    
        g    HhV    VY}mHiH    	    dg    ,WV g    WkH
    W	    HcBVY;dg    dg    H	    VW	    Hco    o    i    HWH	    I (486 RELSTK 474 ERROR 451 RELSTK 441 STKNAME 406 RELSTK 396 STKARG 366 STKNAME 361 REALSTKNTH 344 SETBLIPVAL 329 SETBLIPVAL 324 STKEVAL 319 FIXLISPX/ 302 \FZEROP 290 SETBLIPVAL 272 SETBLIPVAL 258 \DWIMIFYBLOCK/FIXCONTINUE 228 ARGTYPE 152 BLIPVAL 133 \DWIMIFYBLOCK/FIXCONTINUE 123 SETBLIPVAL 22 BLIPVAL 8 STKNTH)
(431 PROG1 423 PROGN 387 COND 372 COND 335 *TAIL* 309 *ARGVAL* 285 FIXATOM2 278 *FN* 264 *TAIL* 146 *FN* 115 *TAIL* 98 NLAMBDA 90 LAMBDA 81 PROGN 72 PROG1 63 PROG2 54 PROG 45 OR 36 AND 16 *TAIL*)
( 468 "" 463 "DWIM is confused about the stack")
\DWIMIFYBLOCK/FIXCONTINUE :D8
(L (1 FN 0 X))  _   `    @`    
    @b dd	    iA	    `    lg    o    @hl    h`        g         (92 \DWIMIFYBLOCK/RETDWIM 79 ASKUSER 66 RETDWIM2 39 FIXPRINTIN 30 \DWIMIFYBLOCK/FIXCONTINUE1 16 GETHASH)
(84 Y 74 DWIMKEYLST 52 Y 44 DWIMWAIT 11 CLISPARRAY 4 CLISPARRAY)
( 57 " ok to reevaluate ")
\DWIMIFYBLOCK/FIXCONTINUE1 :D8
(L (0 X))  x   @g    n@d`    Mdg    
    ?@dg    
    g    
    g    @g    )@@
    h@b i@d	    h (114 \DWIMIFYBLOCK/FIXCONTINUE1 90 EDITFINDP 58 GETPROP 48 GETPROP 32 GETPROP)
(75 SETQ 64 ARITH 53 CLISPCLASSDEF 43 CLISPCLASS 27 CROPS 17 OKREEVALST 6 QUOTE)
()
\DWIMIFYBLOCK/FIXLAMBDA :D8
(L (0 DEF))  /   @d3@'@"@`    h@h`    h@hddi	     (44 FIXSPELL)
(32 LAMBDASPLST 19 LAMBDASPLST)
()
GETDUMMYVAR :D8
(L (0 BINDITFLG) F 1 DUMMYVARS F 2 VARS F 3 PROGVARS)  %  QQd    &cX@dRcHScH (13 GENSYM)
NIL
()
\DWIMIFYBLOCK/GETVARS :D8
(L (0 X) F 6 FAULTPOS)   0@di`g    mV    mI
    Z	    jkJ
    d3@J	    kI
    b J	    I	    H@;0@	    )g    *@h
    ddLKh]K&M
     (151 \NCONC2 120 \APPEND2 98 \DWIMIFYBLOCK/GETVARS1 83 RELSTK 76 RELSTK 67 STKARG 59 VARIABLES 48 STKARGNAME 37 STKNARGS 31 FSTKNTH 22 STKPOS)
(108 LAMBDA 14 BREAK1)
()
\DWIMIFYBLOCK/GETVARS1 :D8
(L (0 X))  <   @	    b dg    dg    @dg    dg    dg    翰 (6 LAST)
(52 RESETFORM 44 RESETVAR 35 RESETLST 25 RESETVARS 17 PROG)
()
\DWIMIFYBLOCK/RETDWIM :D8
(L (3 ARGS 2 APPLYFLG 1 X 0 POS) F 1 TAIL F 2 DWIMIFYFLG F 3 HISTENTRY F 4 SIDES F 5 TYPE-IN? F 6 FAULTX F 7 FAULTPOS F 8 CLISPCHANGES F 9 HELPCLOCK F 10 FAULTFN F 11 FIXCLK F 12 LISPXHIST F 13 NOSPELLFLG F 14 PARENT F 15 CLISPERTYPE F 16 ATTEMPTFLG F 17 CLISPCHANGE F 18 DWIMIFYING F 19 DWIMIFY0CHANGE F 20 DWIMIFYCHANGE F 21 FORMSFLG F 22 CHARLST)  WWWl	    Wc@A Tg    .Tg    W
    h
    g    ThiW    RW$ic&UW	    WT
    Ric(g    A
    B0S@A	    i    AhS    Ad3A    SSAChS    @A	    CA
    i     `    VRSW*OWiIWUCVQ=QW7`    Q
    )QW,
    QdQ
    Q	    bWb WYRic c"W	    W	        WbW#d HdHH    H
    Wb WRic ic"RUW	    R    9W	    g    UhWVV3WQ
    Vhl    	    
    h (491 SI::INTERNAL-THROW-VALUES 486 \MVLIST 480 RETDWIM2 470 RETDWIM2 443 RELSTK 434 ERROR! 426 CLISPERROR 389 APPLY 380 /RPLNODE 345 ERROR! 339 RELSTK 331 \DWIMIFYBLOCK/RETDWIM1 300 DWIMIFY1? 292 /RPLNODE 279 DWIMIFY2A 269 STRPOSL 216 RETAPPLY 210 FIXLISPX/ 203 FIXLISPX/ 195 /RPLNODE 163 /RPLNODE 150 RETEVAL 144 FIXLISPX/ 130 SI::INTERNAL-THROW 112 DWIMARKASCHANGED 103 EXPRP 82 LISPXPUT 64 \NCONC2 54 MEMB 15 CLOCK)
(449 WTFIX 262 CLISPCHARRAY 224 CLISPFLG 177 LASTWORD 124 WTFIX 71 *LISPXPRINT* 47 SIDE 36 CLISP% )
()
\DWIMIFYBLOCK/RETDWIM1 :D8
(L (0 L) F 8 DWIMIFYFLG F 9 NEXTAIL F 10 DWIMIFYING F 11 TYPE-IN?) _ @@2HIH	    lg    0IH
    HI
    HHEd\d	    h)m
    `    Ld`    Lho    h]N6M_^O
    [`    @g    WWWg    	    ^Mg    `    `    p`    `    [K`    o    o    Jdg    `    o    (o    !g    `    o    o        iJ    Jg    i@    iW@kI    cd@lI    ch (345 NLEFT 328 NLEFT 292 FIXSPELL1 284 SHOULDNT 167 LAST 127 APPLY 72 NTHCHAR 61 RETDWIM2 44 LDIFF 36 TAILP 19 RETDWIM2)
(313 NOFIXVARSLST0 299 NEEDNOTAPPROVE 266 LCASEFLG 258 MUSTAPPROVE 238 LCASEFLG 229 NEEDNOTAPPROVE 210 LCASEFLG 202 CLISPHELPFLG 196 TREATASCLISPFLG 189 CLISPHELPFLG 183 TREATASCLISPFLG 177 MUSTAPPROVE 161 NEEDNOTAPPROVE 144 PROBABLY 133 TREATASCLISPFLG 88 CLISPCHARS 77 CLISPCHARS 26 CONCAT)
( 278 " TREAT" 272 " treat" 251 " TREATED" 244 " treated" 222 " AS CLISP" 216 " as clisp" 101 " ")
\DWIMIFYBLOCK/SHRIEKER :D8
(L (0 LOOKAT) F 2 WORKFLAG F 3 NCONCLKUP F 4 NCONC1LKUP)   @dd3hc@@@b Hdg    "g    @dX@b Hg    +@d|X@b d	    Ydg    cSHh@	    Ydg    cg    Hh3g    cg    HIhRg    cg    HIhdg    HI
    Idg    dg    dg    dg    g    cg    HIhdg    g    cHI
    Ig    g    cg    HIhg    HIh@g    cg    Hh	    YRg    cg    Hhdg    dg    dg    dg    g    cg    HIhdg    HI
    Idg    dg    g    cg    HIhg    HIh3g    cSHIhRg    cSHIhdg    dg    dg    g    cSHIhdg    g    cSHIg    Ihdg    g    cSHIhdg    g    cHI
    Ig    'Ig    cTHIhg    cSHIhSHIh (662 ATTACH 440 ATTACH 347 \DWIMIFYBLOCK/SHRIEKER 279 ATTACH 197 ATTACH 114 \DWIMIFYBLOCK/SHRIEKER 87 \DWIMIFYBLOCK/SHRIEKER)
(699 NCONCING 682 NCONC1ING 669 LISTING 652 NCONCING 643 !!IT 625 NCONCING 616 !IT 600 LIST 588 NCONCING 579 NCONC1ING 563 NCONCING 555 CONSING 547 APPENDING 536 NCONCING 520 NCONCING 502 NCONCING 487 CONS 472 CONS 465 CONSING 456 !IT 448 !!IT 429 LISTING 416 CONS 409 CONSING 400 NCONC1ING 392 NCONCING 383 APPENDING 374 CONSING 363 LIST 356 LISTING 337 LIST 330 LISTING 315 APPEND 301 APPEND 294 APPENDING 286 !!IT 269 APPENDING 260 !IT 247 APPEND 240 APPENDING 231 NCONC1ING 223 LISTING 214 CONSING 205 NCONCING 186 APPENDING 173 APPEND 166 APPENDING 151 APPEND 144 APPENDING 130 APPEND 123 !IT 100 !!IT 64 ! 41 ! 33 !!)
()
\DWIMIFYBLOCK/STOPSCAN? :D8
(L (3 OPRFLAG 2 OPR 1 CLTYP1 0 CLTYP2) F 0 BRACKETCNT F 1 BROADSCOPE F 2 BRACKET F 3 CLTYP)    @ A QPjPP	    @g    dh@g    :BRC Pk{Bg    
    Ag    fPjaP\P	    PjPLP	    DBg    
    CAdd3A@dd3@i@@Add3A@ch (137 GETPROP 124 \FZEROP 108 \FZEROP 82 GETP 31 \FZEROP)
(132 UNARYOP 89 BRACKET 77 UNARYOP 50 BRACKET 39 BRACKET)
()
WTFIX :D8
(P 9 DWIMIFYFLG P 8 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)  

  	     (7 WTFIX1)
NIL
()
\DWIMIFYBLOCK/WTFIX0 :D8
(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)   TUVhi"     (15 WTFIX1)
NIL
()
WTFIX1A0024A0025A0026 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FAULTX F 3 FAULTFN F 4 SI::NLSETQ-VALUE)   i@RS
    hcg     (11 CLISPDEC0)
(20 :NORMAL)
()
WTFIX1A0024A0025A0027A0028 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FAULTEM1 F 3 FAULTFN F 4 SI::NLSETQ-VALUE)   i@RS
    hcg     (12 CLISPDEC0)
(21 :NORMAL)
()
WTFIX1A0024A0025A0027A0029 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FAULTEM1)    i    P	    h (11 DWIMIFY1?)
(5 CLISPFLG)
()
WTFIX1A0024A0025A0027 :D8
(NAME SI::*UNWIND-PROTECT* P 4 SI::*RESETFORMS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 EXPR I 0 SI::*CLEANUP-FORMS* F 6 FAULTEM1 F 7 FAULTX F 8 TYPE-IN? F 9 *PROCEED-CASES* F 10 HISTENTRY) 
 `    Wh    Vdg    W	          dg    W	    chc dg    Wd	    
     g     W Wcdg    `    WJ	    V`    VcVVVh
    cg    `    hg    	    	        $W	    WV
    VWkMch (246 CLISPTRAN 237 CLISPELL 225 SI::RESETUNWIND 220 \MVLIST 215 WTFIX1A0024A0025A0027A0029 186 \APPEND2 153 WTFIX1A0024A0025A0027A0028 97 CLISPTRAN 92 MAKEMATCH 65 \DWIMIFYBLOCK/CLISPIF 45 \DWIMIFYBLOCK/RETDWIM 34 CLISPFOR)
(210 SI::RESETUNWIND 199 CLISPFLG 194 CLISPFLG 164 COMMENTFLG 141 SI::NLSETQ-PROCEED-CASE 129 CLISP%: 105 PREFIXFN 80 MATCHWORD 54 IFWORD 23 FORWORD 15 LCASEFLG 4 LCASEFLG)
()
WTFIX1A0024A0025 :D8
(P 21 CLISPERTYPE P 20 SI::*RESETFORMS* P 19 SI::*NLSETQFLAG* P 18 *PROCEED-CASES* P 17 SI::NLSETQ-VALUE P 16 TYPE-IN? P 15 FAULTFN P 14 SIDES P 13 CLISPCHANGES P 12 FIXCLK P 11 HISTENTRY P 10 NEWTAIL P 9 FAULTEM1 P 8 CHARLST P 7 FAULTXX P 6 BREAKFLG P 5 TYPE-IN? P 4 CLISPERTYPE P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 22 FAULTX F 23 DWIMIFYFLG F 24 FAULTAPPLYFLG F 25 FAULTPOS F 26 FAULTFN F 27 CLISPCONTEXT F 28 NOSPELLFLG F 29 CLISPCHANGE F 30 DWIM.GIVE.UP.TIME F 31 DWIM.GIVE.UP.INTERVAL F 32 TAIL F 33 SI::NLSETQ-VALUE F 34 EXPR F 35 VARS F 36 FAULTARGS F 37 LISPXHIST F 38 FILEPKGFLG F 39 *PROCEED-CASES* F 40 PARENT)  i@W8W<l	    W>W.W4g    ]]l	    _W0g    g    	    c2`    iW2`        mW2
    i
    c4NWD_d	    cFMg    WJ
    _M:W.6W0W,`    W,`    W,`    `    _W0W,W,d_d3@O`    
    _W0W,d3@        )W0        M=OO4W8i.`    O_"`    `    O
    OO
     `     OW,_d3@ Og    
    Ok
    _`     Og    
    ,Og    {W,`    
    	    g    
    [W,	    QW,	    FW,	    5W,W,	    	    WLOd3@Og    
    iiFOSW,dg    {W,g    g    W,RW,d&FW,dZdiJd3@ih)W,W,	    
    W,g    
    W,g    hW,h    g    `    WNO$	    ic,@W,g    
    _g    `    hg    	    	        $W.ic:W,g    
    W,g    
    W,	    hc4W,g    
    _ W,	    OW,d    _M`    W,_$K W. W, W,	      d3@O3jOW,	    Og    
    O`    
    _`    OW,W,i    _OW,`    W,`    
    W.jO`    
    _hc:T	        ~KW,W,W,	    c`    d	    _h W0W2OiWH    9W2O
    -K3OhW,h`    hW,hddi	    #W.`    W,h`    hW,hddi	    _+OW,OW,O    h_O	     ±"`     W.>W,9W64W,h`    hW,hddi	    W,`    
    W@WP    _u`    xOtLqW,_iOd3@aOh`    hW.W6W,hddi	    _?W.W6g    g    
    OW,W,i    _Oc,W2W,
        hdcBg     (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@`    Vio    WK	    g    J (29 WTFIX1A0024A0025)
(35 :NORMAL 9 SI::NLSETQ-PROCEED-CASE)
( 17 (CL:ERROR . SI::NLSETQHANDLER))
WTFIX1 :D8
NIL  +    `    $g    	    dg    g    g    
     (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@	    dkdli]b O@dSSdTNg    
    @U
    A5`    %@g    
    Yg    @I<g    I3ii@dST&@g    
    Zg    Jg    Jih (135 GETPROP 89 GETPROP 67 GETLIS 59 GETPROP 18 ARGTYPE)
(153 EVAL 141 EVAL 130 INFO 107 NOEVAL 95 NOEVAL 84 INFO 76 DWIMINMACROSFLG 54 MACRO-FN 8 DWIMEQUIVLST)
()
DWIMERRORRETURN :D8
(I 0 ARG F 0 CLISPERTYPE)    @@c      (10 ERROR!)
NIL
()
DWIMARKASCHANGED :D8
(P 0 L I 1 $SIDES I 0 FN F 1 LISPXHIST)  o @d3@hg    Q
     HHdAhdg    dg    dg    HXٿ@g    g    g    Q
    g    g         (108 MARKASCHANGED 88 MEMB 17 MEMB)
(103 CLISP 97 CHANGED 82 *LISPXPRINT* 77 CLISP%  72 FNS 57 * 49 CLISPRPLNODE 41 /PUTHASH 11 SIDE)
()
FIXPRINTIN :D8
(P 0 LISPXHIST I 1 FLG I 0 FN F 1 LISPXHIST F 2 DWIMIFYFLG F 3 DWIMIFYING F 4 FAULTAPPLYFLG)  y @dug    hkAQ i	    jki
    o    i
    RST`    o    o    `    o    o    i
    @id    o    i
    @ (117 LISPXPRIN1 106 LISPXPRIN2 98 LISPXPRIN1 48 LISPXPRIN1 36 LISPXSPACES 26 POSITION)
(80 LCASEFLG 60 LCASEFLG 8 TYPE-IN)
( 111 "}" 92 "BELOW " 86 "below " 73 "IN " 66 "in " 42 "{")
CLISPFUNCTION? :D8
(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) $  @d3@hAdWg    @	    @	    ^@T`    UP@g    
    ASiSR`    @
    @	    @h`    Bg    B@i    XB}Ag    H `     Ro    o    @DlB
    RH@DlCo    H@HHo        hiBHg    Hg         HBH@HH@@H@    @ (286 /RPLNODE 257 FIXSPELL1 229 CONCAT 187 CONCAT 129 MISSPELLED? 101 UNPACK 92 STRPOSL 67 GETPROP 39 CLISP-SIMPLE-FUNCTION-P 30 CLISPNOTVARP)
(251 n 242 MUSTAPPROVE 154 CLISPHELPFLG 142 QUIET 118 NO-MESSAGE 110 SPELLINGS2 85 CLISPCHARRAY 62 CLISPWORD 50 NOFIXFNSLST0 21 NOTVAR)
( 224 "' meant to be used as a function" 207 "is '" 174 "in ... " 167 "")
CLISPNOTVARP :D8
(I 0 X F 0 DWIMIFYFLG F 1 VARS F 2 SPECVARS F 3 NOFIXVARSLST F 4 DWIMIFYING F 5 FAULTPOS F 6 GLOBALVARS F 7 LOCALVARS)  \  @	    hR@QhK@P`    Sh<PT@U
    	    h(@g    
    h@Vh@Wh@Rh (62 GETPROP 47 RELSTK 42 STKSCAN 5 BOUNDP)
(57 GLOBALVAR 24 NOFIXVARSLST0)
()
CLISP-SIMPLE-FUNCTION-P :D8
(I 0 CARFORM)  8   @	    /@ g    '"@ g    '@	    @`    
    i (50 GETLIS 38 CL:MACRO-FUNCTION 5 \DEFINEDP)
(45 COMPILERMACROPROPS 30 CLISPWORD 17 EXPR)
()
CLISPELL :D8
(P 3 X P 2 RESPELLTAIL P 1 TEM P 0 VAL I 1 TYPE I 0 FORM F 4 LISPXHIST)  N @g    T
    8d[@Z.KYJIIJJIJ    AJg    
    AiH (64 GETPROP 49 /RPLNODE 13 MEMB)
(59 CLISPWORD 7 RESPELLS)
()
FINDFN :D8
(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	    b de	    Xg    Hdg    lQg    4m@
    Xg    Hg    6lm@
    Z
    J	    Hg    Hdg    ,l@
    Yg    Idg    m@d    kg    A@	    ZcJHg    Hdg    lSg    4m@
    Xg    Hg    8lm@
    Z
    J	    Hg    Hdg     Ϳl@
    k@
    cIg    Idg    $m@d    H	    c	     Hg     I
g     g    Aic
icg     Idg    Aic
g     g    hg    @
    Tg    m@    @	    mJd    b 	    Xd3@RHg    
    ZVHg    
    EJAg    UISIcg    Dicg    9g    m@h@    IcAl@
    ck@
    k@
    c@	     (635 RELSTK 626 STKARG 618 STKARG 608 STKARG 590 REALSTKNTH 527 GETPROP 511 GETPROP 493 STKNAME 486 STKNTH 476 RELSTK 469 STKPOS 454 EVALV 356 EXPRP 349 GETD 340 STKNTH 309 STKARG 301 STKARG 269 RELSTK 263 STKARG 257 STKNTH 230 STKNTHNAME 182 STKARGS 160 STKNTH 130 STKARG 100 RELSTK 94 STKARG 88 STKNTH 61 STKNTHNAME 23 STKNAME 11 STKNTH)
(578 INTERNAL 571 TYPE-IN 560 EVAL 543 BREAK-EXP 522 ALIAS 506 BROKEN 461 BREAK1 448 BRKTYPE 440 BREAK-EXP 432 BREAKCOMS 418 BREAK 408 TYPE-IN 390 %: 382 EVAL 369 INTERNAL 327 SELECTQ 318 SKIP 287 RETEVAL 278 STKEVAL 244 STKEVAL 236 RETEVAL 219 ENVEVAL 207 \SAFEEVAL 198 EVAL 168 APPLY* 145 SELECTQ 136 SKIP 118 RETAPPLY 109 STKAPPLY 75 STKAPPLY 67 RETAPPLY 50 ENVAPPLY 38 BLKAPPLY 29 APPLY)
()
DWIMUNSAVEDEF :D8
(I 1 FLG I 0 FN F 0 SIDES F 1 TYPE-IN? F 2 LISPXHIST)  X  @id    A6Q3Pg    )g    `    g    R
    	    Phhc o    i
    i	    @	     (85 UNSAVEDEF 79 LISPXTERPRI 73 LISPXPRIN1 51 FLAST 44 MEMB 7 LISPXPRIN2)
(38 *LISPXPRINT* 33 COMMENTFLG 28 CLISP%  20 CLISP% )
( 67 " unsaved")
CHECKTRAN :D8
(L (0 X))  )   `    @`    
    `    @`    @ (16 GETHASH)
(32 CLISPTRANFLG 23 CLISPTRANFLG 11 CLISPARRAY 4 CLISPARRAY)
()
CLISPFORA0001A0002A0003 :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	    chcg     (10 CLISPFOR0)
(21 :NORMAL)
()
CLISPFORA0001A0002 :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@`    Vio    WK	    g    J (29 CLISPFORA0001A0002A0003)
(35 :NORMAL 9 SI::NLSETQ-PROCEED-CASE)
( 17 (CL:ERROR . SI::NLSETQHANDLER))
CLISPFORA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 %#UNDOSAVES)    hc g    	     (12 CLISPFORA0001A0002)
(7 CLISPFOR0)
()
CLISPFOR :D8
(P 8 SI::*RESETFORMS* P 7 UNDOTEM P 6 UNDOSIDE P 5 UNDOSIDE0 P 4 LISPXHIST P 3 TEM P 2 VARS P 1 DWIMIFYING P 0 CLISPCONTEXT I 0 FORM F 9 DWIMIFYFLG F 10 ATTEMPTFLG F 11 CLISPCHANGE F 12 NOFIXVARSLST F 13 DWIMIFYING F 14 LISPXHIST F 15 VARS F 16 NOFIXFNSLST F 17 %#UNDOSAVES)  		 Wiccg    WWWWW     W    W1g    L
    ^d]jhLQg    Nh\g    W"hg    	    	        $_Mg    !Lg    g        g    N        ONM
    Odg    @g    
    @K (214 CLISPELL 189 UNDONLSETQ1 174 UNDOSAVE 167 LISTPUT1 154 LISTPUT1 121 SI::RESETUNWIND 116 \MVLIST 111 CLISPFORA0001 59 MEMB)
(209 FORWORD 199 :RESPELL 161 SIDE 149 NOSAVE 144 SIDE 135 NOSAVE 106 SI::RESETUNWIND 93 %#UNDOSAVES 82 SIDE 53 SIDE 42 NOFIXVARSLST0 34 NOFIXFNSLST0 13 FORWORD)
()
CLISPFOR0 :D8
(P 51 X P 50 I.S. P 46 VARS P 45 PTRS P 44 LC P 42 I.S.OPR P 41 I.S.OPRSLST P 40 CLISPWORD P 39 FIRST P 38 EACHTIME P 37 FINALLY P 36 BY P 35 ON P 34 IN P 33 TO P 32 FROM P 31 AS P 30 DECLARELST P 29 BIND P 28 FOR P 27 UNDOLST P 26 OUTEXP P 25 RETEXP P 24 AFTERPREDS P 23 RETPREDS P 22 EXCEPTPREDS P 21 LSTVAR P 20 ITER P 19 TERM P 18 TERMINATEFLG P 17 MAKEPROGFLG P 16 INITVARS P 15 PROGVARS P 14 IVINITFLG P 13 FIRSTI.V. P 12 I.V. P 11 I.S.TYPE1 P 10 TEM P 9 OPR P 8 I.S.BODY P 7 I.S.PTRS P 6 LASTPTR P 5 I.S.TYPE P 4 DWIMIFYCHANGE P 3 VARS P 2 DUMMYVARS P 1 LSTVARS P 0 I.S. I 0 EXP F 52 DWIMESSGAG F 53 VARS F 54 DWIMIFYFLG F 55 NOFIXFNSLST F 56 NOFIXVARSLST F 57 HISTENTRY F 58 LISPXHIST) 4 @o    `    o    Wj
    !+WlWn    Wp    H_d3@Og    
    _POPg    `    (OH!OPd,OXHHOXH    OPg    
    g    NAOT.OPdF_dg    UNg    aNdN+9HN    h_TLNHh
    _BNg        Og     g    Hh^(Og    
    _TOdg    
    ˿@	    \OThHh^OHh^MO_g    H]h^Odg    "HMO_MHH    NhOg    CHg    Hg    0O8,O_g    H]hg    O_g    O_8ZMHg    KOdg    0dg    'dg    dg    dg    dg    Wg    g    H_8h Odg    (ODOF_OHg        g    H_@h g    +O@OBOF_OHg        g    H_Dh Odg    +O@OBOD_OHg        g    H_FhMg    &ODOF_OHg        g    H_Bh!Og    g    H_Hhg    	    ^O_O>ONg        ONh
    _Hdɿ@Wrg    i
    i	    @i	    
    g    VO$ODOFO.OB_$O8"O>OO@ODOFOBi	    __h_D_F_@_B_Hg    H_>h^gOdg    g    H_:h^Mg    g    Hh^O<_<3Odg    g    Hh^O._.g    g    Hh^O._.Odg    g    Hh^O0_0g    g    Hh^O0_0Odg    g    Hh^O,_,g    g    Hh^O,_,Odg    g    Hh^OJ_Jmg    g    Hh^OL_LSOg    g    Hh^ON_N7OTg    NhHXdWhl@h	        &NO Who    @
        hh
    OTK_O hN    h_THd-OZdg    dg    OOZ	    
    Ddg    OZ	    O
    *dg    dg    MOK.OZi
    O_OO@ODOFOBi	    _O_	    _Md=d7g    
    _g    Og    
    g    MMh_O. O0 MWho    @
        $OBmOD OF Wh]O$YOg    
    	    Fo    i
    01@&d2Odhk    _^O`	O^h_bO^&_`Obid    Og    g    g    
    XOH_Vg    OV
    _
    _KO
    [wO@O>OO O"OJONOLOg    Og    Odg    yO,pOFOg    Og    h
    QODaOdg    g     g    g     Og    Odg    g    OD
    `g    Og    Eg    HOF:Odg    g    2g    g    OF
    Og    g    g    	    ODOFOOO<    hOH:HOODOFOH    hOO<    h
    O~g    
    Xg    	    Hg    H	    Ho    Odg    OOOhHd	    	        _dg    
h
    _	    g    Og    O_g    g    hh_2O> O_h_D_F_@_B_HOdg    O_@Tdg    O_HAdg    O_D.dg    O_Fdg    O_Bg    O_I_*ODOFAODOF_g    Odg    ODOFg    Og    HO_@Od3@O_*1Odg    g    O_*O
    g    	    OFO_*O
    O*OhO_OO*O.g    O*hh
    _.LO&g    OODi_"O*g    o        O.g    O*hh
    _.O*hh
    _&O(g    O*OH#OODOFhO*dhOHh    g    O*hO@OO_4OO@
    i_OB8OHd3!jOH g     OO@hϢ g    g    i	    OHhh_Hg    Og    g    Ohg    g    Ohg    O
    OOBhhig    O
    OOBhhhhh0O@3 #OB3 OBO@o    _Hg    g    _OO g    Okhh
    _     OBhO_O.OdO
    OOhh
    _.OHO@OBEO(g    OO@OBOHd3g    O
    OOHkhhh
    _(O>OiOJKO"O.#O0!g    O2_4g    g    hh_2O0	    _0xg    O0dag    O0W	    _	    g    1O6__O_O_IY	o    	    OO2
    _2fO2hh_0O.	    _.)O,	    _,O.cg    O.Qd#g    O,dg    O.O2_.g    g    hh_,O.g    O.O,hg    O,hO_g    OO<Eg    01O<	    +d3OfOf
    _^O` O^_b_`ObhO ONd	    g    O&OLd	    Og    hO0O(g    g    hhO4
    
    
    
    
    
    
    
    
    
    Xg    Wt
    _O60	    _`O^ed3OfOfOfOfOfO@H
    @g     (3838 CLISPTRAN 3787 LAST 3772 MEMB 3756 \NCONC2 3751 \NCONC2 3746 \NCONC2 3740 \NCONC2 3735 \NCONC2 3730 \NCONC2 3725 \NCONC2 3720 \NCONC2 3715 \NCONC2 3710 \NCONC2 3675 CLISPFOR3 3659 CLISPFOR3 3618 LDIFF 3596 DREVERSE 3465 CLISPFOR2 3454 CLISPFOR2 3429 \NCONC2 3417 CLISPFORERR 3363 FLAST 3356 CLISPFOR3 3325 CLISPFOR2 3264 \NCONC2 3237 CLISPLOOKUP 3187 \NCONC2 3170 CLISPLOOKUP 3142 GETDUMMYVAR 3134 \NCONC2 3033 CLISPLOOKUP 3007 CLISPLOOKUP 2941 GETDUMMYVAR 2870 CLISPFORINITVAR 2830 SUBPAIR 2784 \NCONC2 2768 \NCONC2 2747 SUBST 2708 \NCONC2 2668 CLISPFORINITVAR 2652 SHOULDNT 2641 CLISPFORINITVAR 2339 CLISPFOR4 2330 \APPEND2 2311 SUBPAIR 2306 DWIMIFY1 2301 COPY 2258 EVAL 2239 SHOULDNT 2226 GETPROP 2207 \NCONC2 2200 CLISPFORF/L 2189 SUBST 2158 CLISPFORF/L 2139 SHOULDNT 2112 CLISPLOOKUP 2043 CLISPLOOKUP 1966 EDITFINDP 1863 \APPEND2 1852 \APPEND2 1843 MEMB 1819 GETPROP 1791 PRINT 1756 RETDWIM2 1735 PRIN1 1722 CLISPFOR4 1717 GETPROP 1677 ERROR! 1671 ERRORMESS1 1622 GETPROP 1597 GETPROP 1572 CLISPFOR1 1560 GETDUMMYVAR 1526 CLISPFOR1 1489 \APPEND2 1482 CLISPFORVARS 1463 \APPEND2 1458 CLISPFORVARS 1412 CLISPFOR0A 1391 \NCONC2 1382 ERROR! 1376 ERRORMESS1 1353 ERROR! 1347 ERRORMESS 972 GETDUMMYVAR 910 \NCONC2 905 READLINE 897 PEEKC 890 PRIN1 859 \NCONC2 848 CLISPFORERR 818 SHOULDNT 773 CLISPFORERR 729 CLISPFORERR 676 CLISPFORERR 627 CLISPFORERR 422 /RPLNODE 338 \DURATIONTRAN 329 GETP 311 GETPROP 273 CLISPFORERR 246 \NCONC2 225 CLISPFOR0A 157 GETP 142 /RPLNODE 74 GETPROP 22 \APPEND2)
(3845 * 3765 SIDE 3698 $$LP 3693 GO 3682 $$ITERATE 3664 $$LP 3586 DECLARE 3575 PROG 3559 COND 3547 COND 3530 $$ITERATE 3525 GO 3506 OR 3492 OR 3478 COND 3370 RETURN 3346 OR 3334 COND 3310 $$OUT 3305 GO 3294 $$OUT 3230 + 3207 SETQ 3120 SETQ 3106 GT 3100 LT 3026 GT 3000 LT 2989 MINUSP 2984 COND 2973 ZEROP 2968 OR 2960 AND 2935 SETQ 2930 BY 2906 LT 2838 CDR 2794 SETQ 2756 NLISTP 2737 VAR 2720 SETQ 2696 NLISTP 2647 CLISPFOR0 2622 SETQQ 2614 SETQ 2581 old 2571 OLD 2553 old 2543 OLD 2504 AS 2487 TO 2468 ON 2449 IN 2430 BY 2411 FROM 2370 $$VAL 2365 RETURN 2354 $$VAL 2345 $$VAL 2320 PROGN 2278 PROGN 2248 = 2234 CLISPFOR0 2221 I.S.OPR 2134 CLISPFOR0 2128 MAP 2121 do 2103 MAPCON 2096 join 2089 MAPLIST 2081 collect 2067 MAPC 2059 do 2050 DO 2034 MAPCONC 2025 join 2015 JOIN 2005 MAPCAR 1998 collect 1990 SUBSET 1982 subset 1957 & 1950 SETQ 1927 do 1917 join 1907 collect 1836 BIND 1814 I.S.OPR 1809 fcollect 1799 collect 1712 I.S.OPR 1627 MODIFIER 1617 I.S.OPR 1606 FORWORD 1592 CLISPWORD 1505 ON 1497 IN 1471 FOR 1445 AS 1437 BIND 1315 MODIFIER 1295 FIRST 1287 first 1267 EACHTIME 1259 eachtime 1241 FINALLY 1232 finally 1211 WHEN 1203 when 1185 UNLESS 1176 unless 1155 REPEATUNTIL 1147 repeatuntil 1129 REPEATWHILE 1120 repeatwhile 1099 UNTIL 1091 until 1073 WHILE 1064 while 1043 DECLARE 1035 declare 1020 BIND 1012 bind 994 AS 917 as 884 |...| 843 TWICE 813 CLISPFOR0 801 BY 794 by 779 TO 768 BOTH 748 to 735 ON 724 BOTH 699 on 682 IN 671 BOTH 647 in 633 FROM 622 BOTH 601 from 584 FOR 577 for 567 by 559 to 550 on 541 in 532 from 523 for 512 BOTH 494 FOR 484 I.S.TYPE 473 I.S.TYPE 456 suchthat 447 SUCHTHAT 437 thereis 397 do 380 I.S.TYPE 324 \DURATIONTRAN 306 I.S.OPR 291 ORIGINAL 281 original 268 MISSING 201 ORIGINAL 190 original 162 MODIFIER 152 I.S.OPR 104 LCASEFLG 94 FORWORD 69 CLISPWORD 49 NOFIXVARSLST0 41 NOFIXFNSLST0 10 CLISPDUMMYFORVARS)
( 3412 "too many concurrent loops
" 3092 (BY -1) 2742 (CAR (OR (LISTP VAR) (GO $$OUT))) 2267 (BODY I.V.) 1729 "Possible non-terminating iterative statement:
" 1665 "No DO, COLLECT, or JOIN in:" 1370 "No operator in:" 15 (I.V. BODY $$VAL) 5 ($$LST1 $$LST2 $$LST3 $$LST4 $$LST5 $$LST6))
CLISPFOR0A :D8
(I 2 LASTPTR I 1 I.S. I 0 $I.S.OPR F 0 I.S.OPRSLST)  .  @(BPc @dg    	    	    A
    A (41 \NCONC2 35 COPY 28 EVAL)
(19 =)
()
CLISPFOR1 :D8
(P 10 END1 P 9 LST1 P 8 LST P 7 END P 6 BODY P 5 LSTFLG P 4 TEM P 3 Z P 2 BODYTAIL P 1 NXTOPRTAIL P 0 OPRTAIL I 1 FLG I 0 PTRS F 11 UNDOLST F 12 I.S.TYPE F 13 I.V. F 14 MAKEPROGFLG F 15 I.S.OPRSLST F 16 FIRSTI.V. F 17 DUMMYVARS F 18 I.S.TYPE1)  @@R@dg    dg    dg    dg    d dg    dg    A{g    @ciHg    Hdg    W3ic-g    
    \g    .Lg    
    g    HZdIHIg        H@I Jd @g    q@g    f@g    [@g    PJg    
    [BW W\Hhg        HWLW\W"JdJWcJKLhJ    JHJid    J[Xg    Jdg    WicJJi    J[)hi    JJJ	    i];IHkI    [dh    JdJ[I    KdiWg    g        KKdK     @dg    dg    dg    dg    ?HdHWcg    Kh
    HNH    MgJKKJ
        S@W5g    Kh
    HdHWcM.HKKH
        MH	    WKIJ
    KK	    @dWNr@^g    
    g    TNQdihJKKI
        g    c$g    J
    c@g    WIh@K[zN@_OO	    @_dOaO
O_dOOdg    ONg    OWOd	     (945 CLISPDSUBST 856 CLISPFOR1 807 /ATTACH 786 /RPLNODE 781 /NCONC 743 GETPROP 705 CLISPFOR4 695 CLISPFORERR 681 CLISPFORERR 671 CLISPRPLNODE 666 \NCONC2 634 \APPEND2 612 CLISPRPLNODE 607 \NCONC2 591 CLISPRPLNODE 579 \APPEND2 512 /RPLNODE 496 DWIMIFY2 473 CLISPRPLNODE 459 CLISPRPLNODE 450 NLEFT 431 FNTYP 411 DWIMIFY1 396 DWIMIFY2 349 DWIMIFY2 337 /RPLNODE 294 CLISPFORERR 271 CLISPFUNCTION? 191 CLISPFORERR 161 GETPROP 138 GETPROP)
(922 I.V. 907 BODY 816 I.S.TYPE 800 DO 792 do 749 FORWORD 738 CLISPWORD 627 PROGN 572 PROGN 550 EACHTIME 542 FINALLY 533 FIRST 524 I.S.TYPE 491 FORWORD 485 IFWORD 374 old 363 OLD 289 WHAT 266 NOTVAR 257 TO 246 ON 235 IN 224 FROM 186 MISSING 166 MODIFIER 156 I.S.OPR 146 FORWORD 133 CLISPWORD 113 old 102 OLD 81 AS 68 ON 60 IN 46 ORIGINAL 38 DECLARE 29 BIND 20 FOR)
()
CLISPRPLNODE :D8
(I 2 D I 1 A I 0 X F 0 LISPXHIST)  2  @#Pg    @d@h	    @A@dBl@h	     (47 ERRORX 26 UNDOSAVE)
(11 CLISPRPLNODE)
()
CLISPFOR2 :D8
(P 0 X I 1 FLG I 0 LST)    @	    b {d Hdg    HA]d	    Vdg    HAd	    <H4dg    dg    Hd	    dg    dg    Hd@ (101 NEGATE 67 NEGATE 41 NEGATE 5 DREVERSE)
(117 REPEATUNTIL 109 UNTIL 86 REPEATWHILE 78 WHILE 49 UNLESS 22 WHEN)
()
CLISPFOR3 :D8
(P 0 TEM I 0 LST)  7   0@	    dXHhYJI[ZK	    ZI (48 LAST 11 DREVERSE)
NIL
()
CLISPFORVARS :D8
(P 8 X P 7 IV P 6 VARLST P 5 L1 P 4 LST0 P 3 LST P 2 OLDFLG P 1 TEM P 0 CLISPCONTEXT I 0 PTRS 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) a	
 g    q@@[\LMLd3@\Ldg    dg    Lg    LLhLdÿ`    WL
    LKhid    Y I Ld dg     dg     dg    dg    LLi     Ldg    g    LLg    LL'`    KLOhd3@0WO
    $i'LMK
    Ld=d8d0O_LKMLLi
    WLW
    	    L\hhKK\dM"O@g    WOcc N	    dg    dg    ihiZcL\(Ldg    dg    ihiZcLLYd6d3@/IWcOI_@g    @O&J IN^ Idg    dg    i1dg    dg    Ig    Ig    IhihxicIWcO@I_@dg    -dg    ic$g    @Oihg    	    JIWcINLIW"IhLWcIh	    LLg    LL    L@g    Lc@h@LK`KdYdg    0dg    'dg    dg    dg    dg    i (759 /RPLNODE 737 CLISPFORERR 689 SHOULDNT 412 DREVERSE 359 CLISPFORERR 353 CLISPFORERR 337 CLISPFORVARS1 294 CLISPFORVARS1 277 STRPOSL 187 DWIMIFY2 117 DWIMIFY2 102 STRPOSL)
(853 SAVESETQQ 845 SAVESETQ 836 old 827 OLD 818 SETQQ 809 SETQ 768 I.S.TYPE 749 DO 684 CLISPFORVARS 665 AS 652 FOR 643 BIND 596 QUOTE 586 SETQ 576 SAVESETQQ 568 SETQQ 556 SAVESETQ 548 SETQ 518 AS 464 old 456 OLD 428 old 420 OLD 394 BIND 245 CLISPFLG 227 SETQ 211 _ 201 ← 172 SAVESETQ 164 SETQ 153 SAVESETQQ 142 SETQQ 89 CLISPFLG 63 SETQ 53 _ 45 ← 4 FOR/BIND)
()
CLISPFORVARS1 :D8
(P 0 $TAIL I 1 FLG I 0 L F 1 LEFT.ARROW.BITTABLE)  9  @XhQH
    $Hd3@H@hAi    @
    H	    H (50 CLISPFORVARS1 42 TAILP 36 DWIMIFY2 15 STRPOSL)
NIL
()
CLISPFOR4 :D8
(P 0 X I 0 X F 1 MAKEPROGFLG F 2 TERMINATEFLG)  f @dg    #dg    dg    dg    dg    icdcg    )@#d Hdg    ichH	    h (92 CLISPFOR4)
(74 $$VAL 56 PROG 41 RETEVAL 33 RETFROM 25 ERROR! 16 RETURN 7 GO)
()
CLISPFORF/L :D8
(P 3 X I 2 DECLARELST I 1 VAR I 0 EXP)  [  g    g    AB8g    0B	     dKK
    XIHZYJh@
    h	    YH (84 LAST 73 CL:APPEND 47 LDIFF 27 DREVERSE)
(18 DECLARE 9 LAMBDA 4 FUNCTION)
()
CLISPDSUBST :D8
(P 1 X P 0 TEM I 0 X F 2 BODY F 3 I.V.)  v  @/dIdg    IRg    ISII	    @`    
    X2@g    
    g    @h`        @	    H	    h (114 CLISPDSUBST 107 DWIMIFY1 100 PUTHASH 79 GETP 64 GETHASH 47 CLISPDSUBST)
(95 CLISPARRAY 85 CHANGETRAN 74 CLISPWORD 59 CLISPARRAY 30 I.V. 17 BODY)
()
CLISPFORINITVAR :D8
(I 1 EXP I 0 VAR F 0 PROGVARS F 1 INITVARS)  &      AhPc Qg    @Phh
    c (33 \NCONC2 4 GETDUMMYVAR)
(18 SETQ)
()
\DURATIONTRAN :D8
(P 16 Y P 15 X P 14 Z P 13 L P 12 TEMP P 11 TIMERUNITSLST P 10 TIMERUNITS P 9 UNTILDATE P 8 RESOURCENAME P 7 FORDURATION P 6 USINGBOX P 5 USINGTIMER P 4 EXPANSION P 3 OLDTIMER P 2 EXPIREDFORM P 1 SETUPFORM P 0 BODY I 0 FORM)   @o    o    `    HOOXOd3@&l@
        "OO
    _O_Oig    _NOo    @
    NO$Oo    @
    O	    _Oh_O0O)o    .	    _Og    g    OhOO%o    @
    OO_o    o    _O g    o    o    g    Jg    hIh\O3Og    'g    o    o    LhOh\o    _OM[o    HOKOhL    \Og    OLh`    ^@Xg    hg        g    '	        KOo    
    ;dOg    
    O O _ 
LO _ d3@O OOO 
     (514 /RPLACA 460 GETPROP 439 ERROR 418 EVAL 407 GETDEF 364 SUBPAIR 211 ERROR 167 \CanonicalizeTimerUnits 135 CONSTANTEXPRESSIONP 126 ERROR 105 ERROR 65 \CLISPKEYWORDPROCESS 53 ERRORX 47 SETERRORN)
(455 CLISPWORD 423 FIXP 412 NEW 402 NOERROR 396 RESOURCES 386 LCASEFLG 373 WITH-RESOURCES 304 LAMBDA 296 QUOTE 269 BODY 263 until 248 LAMBDA 186 QUOTE 178 MILLISECONDS 85 \ForDurationOfBox 18 DURATIONCLISPWORDS)
( 434 "is not a timer RESOURCE" 347 (BODY FORDURATION OLDTIMER TIMERUNITSLST) 333 (\TimerUnit) 314 (DECLARE (LOCALVARS \TimerUnit))
 309 (\TimerUnit) 258 (DECLARE (LOCALVARS \DurationLimit)) 253 (\DurationLimit) 232 ((QUOTE SECONDS)) 226
 (SETUPTIMER.DATE FORDURATION OLDTIMER) 205 "Both 'untilDate' and 'forDuration' specified" 159 "No duration interval"
 120 "Can't specify timerUnits for 'untilDate'" 99 "Both 'usingTimer' and 'resourceName' specified" 10
 (TIMEREXPIRED? \DurationLimit . TIMERUNITSLST) 5 (SETUPTIMER FORDURATION OLDTIMER . TIMERUNITSLST))
\CLISPKEYWORDPROCESS :D8
(P 1 TMP P 0 X I 1 WORDLST I 0 FORM)  N  @ddAA@
    @@AHH@YHXIAI
    @I
    I
    @ (73 \NCONC2 65 LDIFF 58 SET 19 SET)
NIL
()
(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 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)) (DECLARE%: 
EVAL@COMPILE DONTCOPY (MACROS DWIMUNDOCATCH)) (* BLOCKS (FORBLOCK (ENTRIES CLISPFOR) CLISPFORVARS 
CLISPFOR0 CLISPFOR2 CLISPFORINITVAR CLISPDSUBST \CLISPKEYWORDPROCESS CLISPFORF/L CLISPFOR4 
CLISPFORVARS1 CLISPFOR3 CLISPFOR1 CLISPFOR0A CLISPFOR \DURATIONTRAN (SPECVARS 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))) (BLOCKS (
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 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 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 CLISPTRANFLG CLISPIFWORDSPLST 
LPARKEY DWIMUSERFORMS DWIMKEYLST SPELLINGS3 SPELLINGS1 CLISPARRAY CLISPFLG CLISPCHARS 
CLISPISNOISEWORDS CLISPLASTSUB CLISPISWORDSPLST CLISPCHARRAY CLISPINFIXSPLST OKREEVALST WTFIXCHCONLST1
 WTFIXCHCONLST RPARKEY 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)
NIL
