;"A(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading LET 98pSETQxDEFPROPTW*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,8,84BS,80B+ g @0-, g~-, $-,-,0P 0 +S0B+3[g~,81B+ P @01B+1B+g "/5B1 g gZg~[g~ " +SZg~A,81B+1B+1B+g "!/5B g g[g~Zg~ " +S,8 ( &[g~ "5B# D *Zg~ Dg~ J`+( ( &Zg~ "P5B+ *[g~ Dg~ J` g g~ & (! $ ` +2 ( g~[g~ "0 g g~Zg~,8 " $,XA /+S1B+61B+60B+R@  g~/.,8,8,< 1,< w3.p+= g+Q.. g}&-, B`4BP,80B+I "w @0-, g}-, $-,-,0H g-, $-, g-,0A  Bg+O1B+K0B+O ( g}  g "w g Bg+O/A@a :w+://+S "/0/,x ,8,8,8,8D`,84D_4DZ(D{ an+_* -, $ -,-, g~-,2B@0 $-,+_ ",8,80 ,84F*,80B+f * A " Jg+o1B+i1B+i0B+o" ( & g} "6@g "6@ag "+o "/4B g|1B 7 " Bg| g}2Bg~+y g `-,0@@` Bg g~2Bg~+y * Jg~7@g@+ g~-, g|-,-,` g}-, $-, g-,@ Bg+ g~ g~ g} g| g Bg 0 Bg7@`+ g `-, Bg :U g/,x00TFIXNUMLET.dcmp-tempvarsLET.do-a-subformU("ERRORGENSYM,8,8,8,8 ( &!D2 "4B@7Bg~ "(B{Z0B@ + g~-, g-, $-,0@ 0+ g-, g~-,,8A!7@g+ g0B+/7D+/6B+ ,,8,8A",<+#Z5D#,8A@ ,-,XC`/ -,1  Z([Z( D Bg `-,0H g-, $-, g $ `0,8 g~,X-,,+? QC0B+4 ( & g~ " Bg5B9@"+54B53Bg+9 ,8,8,8A,8g}",@ 2<+? `-, g-, $-, g g,8 g~,X-,0 %//,xP( U*@bLET.matchpLET.directionLET.listallvarsLET.anyvarsp-,AV*+H(B,84Bv,8 H 0B+P7D+J2Dg+L g-, @+u0D+O  g-, B7 P 0 "+u0B+e g/.,< 9NV p/. +W 0,<,8IA w5N[ 1B7 "+c ..p` g-, B`4Ba 1B+aH0 `+c .np>w+X//0P$A+u0B+u 0B+n 9Nk@bZg[g+m[gZgH 1 +u 9NrZg5Bu[g 1 +u[g5BtZg+u "/0*U/,x`EDECLAREMACROEXPANDLISTBad vU*]nUariable list in LET !!"p""x" xLET.optimize*DELQU*@LENGTHMAKE-LISTNCONCLET-EXPANDER-1,8-,[ !Z ",8-, B,8,8 ,8[(D{6 +[[0D@+[-,Z Bg D`6@`+@ ` "-, B`-,{ ,8gz7@`+[[`@@g{@@g|@@g|,87@gy+Q5B L@@gy+Q,80B+ g Jgz+P @a0B+PZg(D{6 +ZgZ4D@@gy+P[g5D@@gzZg[d Bg{7@ "(B{Z0B+[g{ @ 0 0D+P@@g{+P*,80B+% [gZg[ Dgz Fgz+O1B+(1B +(0B+N g{ &[g " Bg{BDZg[4DO6F+2 ( &[g "  g| Bg|-, Bg|+H[g7@ H "(B{Z0B+F[ g[ 4H9D(H{  an+F ( &[gZ!D "5BF[g[ g} Bg|-, @0 Bg}Zg[-, $-, g}-, g| Bg} g|-, Bg|+O@ , Bg| g| $[g Bg{6@7g| "Zg[ Bgz Dgz+O@@gx/0@ +P@@gy/7@gy+Y g~ g{-, g~ Bg~ g{-, Bg~7@g|`+Y g g| Bg/Z` B`+/7@gz+e,8g}7@`+d[`@Z`4Db[ Z0J+_ "+dZ`P  B`+] "/4Bh ,h,8,8 0,8gy",< g} `# B`7@g~+q ,8g~,8`7@`+q[` g|#Z` Bg|A@# D`+l/ g}  $ Bg}@ g Bg g}$,< "p$ $@ g Bg ,},8,8gz,8g,8gz",H<% g-, $ -, g-,0 ,//,x%j@"XwREVERSELET*-EXPANDER-1,8[(B{6 a+[`Z(B{7 + `+%0Z`,8,8[(D{6 + [[0D+[Z Fg H`6@` + ` "-, B` ` "-,0` B`[g&,87@`+[`-,0 2,8 g-,,X-, $ 0-,Z` Bg D`+/7@g`+$Z`Z g-,Z`[-,0@ +%Z`//"%hU*U.wCONSTANTPROG2Bad form to DESETQ(())p**x* xU 0DESETQDESETQ-EXPANDER-1,8-,-,,8 @` "-, B-,{ 7Bg{ "(B{ Z0B+Zg{7@ "(B{Z20B+6[g{Zg{[ Dg~ Fg}4D A*,80B+7+O0B+> g} @0-, g}-, $-, g{ -, Bg{/+|0B'+@/0P 0 + 0B+N g},81B+D E0B+E+M0B+L g|/. g}@0,</.,\3n+L/+6 a+M/+6/+O/+6/ ( & g~ "4B @`A7@g}+ g},80B+h[g}3Dg} 0+\ ( & g} " Bg~2Bg}+^  g} Bg~ Bg/+y7D+a g|ABD Bg~4Bb/+s ( & g} g}@5Bg g}@@g Jg~/+y+l E0B+i+l0B'+k/+/0A@+6/ g|5Bs7D+q , Bg|+s ( & g~ Bg~ g} @0-, g~-, $-, g|-, g~ Bg| J` ` g~ g~A g| Bg| ( & g~ " Bg,87@`+[`Z`4D[ Z0J + "+Z` B`+ "/`5B6 g gZg{Z Bg Dg{++d g}-, $-, $'-,D g|-,@@g~+| ( & g~ ",8 Bg}7@`+[`z :w-, ` $-, g{-,Z` Bg{ D` 0+/+| g| Bg|6@g|+#@B@0 g# Bg|6D+# $-,+5@7@g|+2[[0D+-[Z[AB2Fg|+--, 5B-Z g|,8g|[`-,0B@0 Hg{/+- "-, g|@-,-, g Bg} g|# Bg| d  g} g|-, $ -,@ +< ,<,8,8= g|-, g}-,2@  $*-,,8",< "/0 +*0&XCONS,8,8 $`+-,} Bg}-,,8Z`Z@ Bg}4BpZ`[Z[Z Dg~ Fg~ (D{6 +J(F{7 +M ,M@,8,8,8g{",<[g~[g~Zg~[Z g~[ Bg Dg Fg~ Hg~Z [ (0B("+o1B+fZg},86@`+\ ( & A" g| g~6@g "+e ( &1[`-, $ g~5Be[`Z [2Dg~+c "+eZ` F`+V "0/4BoZg~ZZ`-, -,0@[g~-, Bg~-, g-,2@ $-,Zg}-,XC`+B Z` B`+B/,8Z`4B[@ Dg g|-,,8,87@g+A"[gZ[2Bg~+z "+} ( &0[g-, $ g~ B`5BZgP  Bg+u "/4BZ` D`+q bZ`ZXC`+q/Z BZg} Kx "/+#0>;