; P@QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading LET 98   pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPLET98VERSIONU*UjuPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xLET.gensym-tempvars?xPTR-TYPEPU*U*USYMBOLPAIRVECTORVECTOR-SCARLET.do-1-atomCDRLET.match-varsU*U*ULET.step&decompose*NCONCEXTENDHUNKSIZENREVERSEVREFNRECONCLET.decomposeSUBR&,8!+ g @0-,3-,7 -,-,0A1+S0B`g`1B+@a0#+1B+5B1 gAas% +S@A1B+0#+1B+aC5B gaAs' D1+S,8 ( &[g~ "b)5B# D %Zg~ Dg~ J`+( ( &Zg~ "Pb)W '[g~ Dg~ J` g3 &C $ ` `e [g~%0 gZg~' $a+aAAA+S0#`m1B`m0B`@ -/.,8,8,< 13.p+=+Q..&-, B`4BP!+I @0-,3-,7 /-,-,0H13-, -, g-,0A  Bg`1B+K#`  3 g Bg`A@a @;+://+S "0,x ,8,8D`4D_4DZ an+_* -, $ -,7-,13-,2B@07 -,` ",8,80  @!+f AAA Jg`1B+i0#+i0B+o" ( & g} "b)a` " 0% 7 % g}2Bg~` g `-,0@@` Bg2Bg~` 3@+ g~-,3-,7-,1`3-,7 -, g-,@ Bg` 3 g~3 g 0a+ Bg7@`` g `-, Bg :U g/,x'0FIXNUMLET.dcmp-tempvarsLET.do-a-subformU("ERRORGENSYM,8,8 ( &!D2 "b)4B@Z3@ `+-,3-,7 /-,0@ 0`/-,3-,7A!!3`7+/+/6B`? ,,8,8AK<`GZGA@ ,g7-,1XC` -,1  Z([Z( D Bg `-,0H1 g-,7 -, g $`a g~a1,X-,,`@C+4 ( &3 "b) Bg5B9@"`kk3Bg+9 q,83",@ 2<` `-,1 g-,7 -, g g~a1,X-,K/,x55PU*@bLET.matchpLET.directionLET.listallvarsLET.anyvarsp-,9;AV*+H(B4Bv H !`9`Q3+L-, @``;-,;7 P 0 "`#+e-/. 3 p+W 0,<,8IA90; "` ..p0A g-, B`90`H0 `` .np;+X/A!`0B+u9+n 9Nk01@`+m`@1;` 9Nr@` 1 ``@` "0*U,x`DECLAREMACROEXPANDLISTBad vU*]nUariable list in LET  A!C"pEExE xLET.optimize*DELQU*@LENGTHMAKE-LISTNCONCLET-EXPANDER-1-,[ !Z ",8-,1 B,8 [6 `[[=``[-,1Z D`6@`` @ ` "-, B`,8gz7@`+[[`3@@g|33+Q3+Q!+` @a0B+PAs6 `-AsZ-@@gy`as?3@[d Bg{Z?`=[g{0A0D`@@g{`*!+% [gZg[ Dgz+O1B+(0# +(0B`3 &[gb)BDZg[4DOр`e ( &[g " b)3 Bg|-,+H[gdZ?`[ g[ sD  an` ( &[gZ!D "b)[g[ g} Bg|-, @0 Bg}Zg[-,1 %-,3`-,3 g|-,+O@ ,g7 Bg| g| $[ga1 Bg{7g| "Zg[ Bgz3+O30@ `@@gy3+Y g~ g{-,3 Bg~-,7@g|`+Y g g|a+ BgZ` B``3`37@`+d[`@Z`[ Z0J+_`Z` B`+] " ,8,80,8gy",<3 `# B`3` 3,8`7@`+q[`3aGZ`A@# D``/3 a+ $@ g Bg$ "p`I $@  ,83,8g,8gzKH<% g-, -,3-,0 ,/,x%j@EXwREVERSELET*-EXPANDER-1[6 a`[`Z7 ` ``KaZ`,8[6 + [[=+[Z H`6@` + ` "-, B` `-,0` B`[g&7@`+[`-,0 21 g-,1,X-, 0-,Z` D``/3``IZ`Z-,Z`[-,;+%Z`/hKhU*U.wCONSTANTPROG2Bad form to DESETQ (Q)Sp**x* xU 0DESETQDESETQ-EXPANDER-1-,-, @` "-,1 B Z?`9@ZA?+6asA[ Dg~A*0B`o`!+> g} @0-,13-, -,3 -,`0B'+@0A`#` g}1B` E!+E`#`-/. g}0a-/.,\3n+L/+6 a`/+6`D1+6 ( & g~ "b)@`A3`#!+has3Dg}D0+\ ( &3 "b) Bg~2Bg}`  g} Bg~+y+a g|ABD Bg~4Bb` ( &3 g}b) g}3 Jg~+y` E0B``0B'``#0A@+65Bs+q ,g7+s ( & g~b) @0-,13-, -, g|`-, Bg| J` `3 g~a1A g| Bg| ( & g~b)7@`+[`Z` [ Z0J +`Z` B`+ "05B6 ga+AsZ Bg3++d-,1 $-, O-,D g|-,@@g~+| ( & g~b)7@``7[`z :w-, ` -,3-,Z` D`0+` g| Bg|3+#0!@a g# Bg|6D+# -,`k@3+2[[+-[Z[ABQ+- 5B-Z g|,8g|[`-,0B@0 3`[ "-,13@-,-,1 g Bg} g|# Bg| d  g}a+ g|-, -,@ `y ,<,8{-,1 g}-,2@  U-,",< " 0 +*0MXCONS,8 $`aW Bg}-,Z`Z@Z`[Z[Z Dg~6 `7 ` @,83",<[g~asZg~[Bs[ Bg3 Fg~3Z [ (0B("+o1B`@6@`+\ ( & A"3b)` ( &1[`-, $b)5Be[`Z [Q3``Z` F`` "04BoAsZZ` -,0@as-, Bg~-,13-,@` -,As-,XC`+B Z` B`+B,8Z`4B[` Dg-,,83+A"`Z[2Bg~+z` ( &0`-, $ g~b) B`@` "/4BZ` D`` bZ`ZXC``Z BZg} Kx "+ #0>;