;"A(U*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading LET 98pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPLET98VERSIONU*UjuPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xLET.gensym-tempvars?xSYMBOLU*U*ULISTCARLET.do-1-atomCDRLET.match-varsLET.step&decompose*NCONCLET.decomposePSUBR,8,8,84B.7@ "(B{Z0 ,80B+ *-, g~-,2@a  $-,-,+-0B+-B[g~(B{6 + + * (Zg~ 0[g~ " +-Zg~(B{6 +C+ * ([g~Zg~ " +-,821  ( &[g~ "5B *Zg~ Dg~ J`+! ( &Zg~ "5B% *[g~ Dg~ J` g g~ & $ `PC +, ( g~[g~ " g g~`Zg~,8 " $,X/ @`X+- "//,xH ,8,8,8,8,84D94D4(D{ @ 0an+9*-, $ -,-,0H  g~-, $-,+: "@ ,8,8,84F_7@ &(F{DZ,80B+A ( " Hg+I QC0B+H ( & g} "6@g @0 "6@g "+I "/4B_ g|1B7c " Bg| g}2Bg~+S g `-,@@` Bg g~2Bg~+S *` Jg~7@g+Z g~-, g|-, @0-, g}-, $-, g -, Bg+_ g~ g~ g} g|  g Bg Bg7@`+b g `-,0 ] Bg g/,x0/LET.dcmp-tempvarsU*@LET.do-a-subformERRORGENSYM,8,8,8,8 ("  & "4B g-, g~-,0 A,87@g+n g0B+7D+D6B+r ,r,8,8",<+vZ``5Dv,8 ,-,XC`/@ -, Z([Z( D Bgd `-, g-, $-,0 g $,8 g~,X-,,0P(@!+0B+ ( & g~ "D  Bg5B +4B3Bg+ , ,8,8 ,8g}",<+ `-, g-,2@ $-, g g,8 g~ ,X-,//,x%jU 18(dLET.matchpLET.directionLET.listallvarsLET.anyvarsp-,`k*+0(,84B6  7@ "(B{Z,80B+%7Da +2Dg+ g-,+50D+$D  g-, B7 "+50B $+5 0B+. 9N+Zg[g@`2 +-[gZg +5  19N2Zg5B5[g+5[g (5B4Zg+5 "//jU*U,xDECLAREMACROEXPANDBad variable list in LETw:U*Upx xLET.optimize*DELQNRECONCLENGTHLET.make-listNCONCPD LET-EXPANDER-1,8-,[Z ",8 `-, B,8?,8,8[(D{A6 +C[[0D+C[-,0 Z Bg D`6@`+F ` "-,0@ B`-,{ ,8gz7@`+[`@@g{@@g|@@g|,87@gy+5BM@@gy+7@ @A "(B{Z,80B+R g Jgz + 0B+ Zg(D{6 +XZg@ Z4DX@@gy+ [g5Da@@gzZg[  Bg{7@ "(B{Z0B+`[g{0D+ @@g{+ 7@ $(D{Z0 ,80B+g[gZg[ Dgz Fgz + 0B+ g{ &[g " Bg{BDZg[4D 6F+s ( &[g "  g| Bg|-, Bg|+[ g[ @ 4Hv(H{  an+ ( &[g Z "5B[g[ g} Bg|-,0d Bg}Zg[-, $-,0 g}-, g| Bg} g|-, Bg| + , Bg| g| $[g Bg{6@7g| "Zg[ Bgz Dgz+ @@gx`/+ @@gy/7@gy+ g~0 g{-, g~ Bg~ g{-, Bg~@07@g|+ g g| Bg/Z`A@ B`+G/7@gz+",8g}7@`+! [`Z`4D[ Z0J+ "+!aZ` B`+ "/4B% ,%,8`,8@,8gy",< g} ` B`7@g~+.,8g~,8`7@`+.[` g|Z`  Bg| D`+)/ g}  $ 0 Bg} g Bg g},< "p  $ g Bg ,:,8,8gz,8g,8gz@ @0",< g-, $ -, g@`0-,,//,x".U 7PROGNREVERSELET*-EXPANDER-1,8[(B{06 +E[`Z(B{7 +F@ `+bZ`,8,8[(D{6 0@+N[[0D+N[Z Fg H`6@`+Q ` "-, B` ` 0 "!-, B`[g",87@`+\[`-,,8 g-,,X-,2@ $ -,Z` Bg D`+T/007@g+aZ`Z g-,Z` [-,+bZ`//jU*w"!(@NREVERSEBad form to DESETQ#$$%p%%xu(b% xDESETQDESETQ-EXPANDER-1,8-,-,D,8 "-, B-,{ 7Bg{ " (B{Z0B+IZg{7@ "(B{ Z0B+b[g{Zg{[ Dg~ Fg}` 4D97@ $(D{Z,80B+u `+}0B+|*-, g}-, ` $-, g{-, Bg{/ d +)/+b/ ( & g~!D "4B97@g}+>7Bg} "(B{Z0 ",80B+[g}3Dg}+ ( &  g} " Bg~2Bg}+ g} Bg~ BgB/+%7D+ g| Bg~4B/0Q+ ( & g} g}5B g}B@@g Jg~/+%+0B++ /+b/ g|5B7D+@(@ , Bg|+ ( & g~ Bg~d g}-, g~-, $-, g|-, g~ Bg| J` ` g~ g~ @! g| Bg| ( & g~ "  Bg,87@`+3[`Z`4D2[ ZP  0J+. "+4Z` B`+, "/0@5Bb g gZg{Z Bg Dg{H +h g}-, $-, $-,0@  g|-,@@g~+( ( & g~!@( ",8 Bg}7@`+H[`z :w-,2@ $-, g{-,Z` Bg{AB D`+A/+) g|# Bg|6@g| +O g Bg|6D+O $!-,A+b7@g|+^[[0D+Y[Z [2Fg|+Y-, 5BYZ g|,8g|[` -, Hg{/+Z "-,  g|-,-, g Bg} g|` Bg|  g} g|-, $ -,0D0+i ,h,8,8j g|-, g} -, $&-,,8",< "I:/+%hcXCONS,8,8!A@ $'-,} Bg}-,,8Z`Z Bg}4BZ`[Z[Z Dg~B0 Fg~(D{6 +w(F{7 +z0 ,z,8,85,8g{",<[g~[g~Zg~[Z g~[ Bg Dg Fg~ Hg~Z [ (@ 0B(+1B+Zg},86@`+ ( ` & g| g~6@g "+ ( @ &[`-, $ g~5B[`(Z[2Dg~+ "+Z` F`+   "/4BZg~ZZ`-,  0-,[g~-, Bg~-, g 0-, $-,Zg}-,XC` b+nZ` B`+n/,8Z`4B1 0[ Dg g|-,,8,87@g +,[gZ[2Bg~+& "+* ( @ &[g-, $ g~ B`5B-aZg Bg+" "/4B/Z` D`+Z`ZXC`+/Z B@dXZg} "/+`j,< ,8 p5N8 `+=/. ` ",<-,,\ B` Np+6/u*U/,x5ANDEQSYSPMAKE-LISTGETu*U.u'(()  ))xGETLFLUSH-MACROMEMOSAUTOLOADLISPDEFMAX**+*+,+x*&*xDESETQ MACROW*@1MACRO&,-xMACROFETCHMACROMEMO,8-5BDZ`,8`  " Dg& && $,X./kU`,xH>LET**.*xLET* MACRO./-x,8-5BK@Z`,8` " Dg" &. $,X.}./,xpE* *xLET MACRO /-x,8-45BRZ`,8` " Dg! & $,Xp./,xxL;