; P@QU*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading LET 98   pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPLET98VERSIONU*UjuPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xLET.gensym-tempvars?xSYMBOLU*U*ULISTCARLET.do-1-atomCDRLET.match-varsLET.step&decompose*NCONCLET.decomposePSUBR,84B.Z0 0B`*-,3-,@`aA7 -,-,1`[!+-B`6 +`! * (ACaas "b#`[@6 +C`- * (aAs "b#`[,821  ( %[g~ "9 *Zg~D1 Dg~ J``C ( %Zg~ "5B% *[g~ Dg~ J` g3 & $ `PCb#+, [g~ "b' g`Zg~ "b' $ @`X`[ ",xH ,8,8si @ 0an`s*-, $ -,7-,0H 13-,7 -,+: "@ ,8,84F_ `ADZ0B`  Hg+I QC!` ( % g} "A@a+I "4B_1B " g}2Bg~+S g `-,@@` Bg2Bg~+S `3` g~-,3-,7 @0-,13-,7 -, g`-, Bg+_3 g~3b'  g Bg7@`+b g `-,0 ] Bg g/,x0/LET.dcmp-tempvarsU*@LET.do-a-subformERRORGENSYM,8,8 ("  % "4B-,3-,A!73`++DЀ+` ,r,8,8Ko-`Z`` ,-,1XC`@+-,+Z([Z(+ Bgd `-,1 g-,7 -,0 g $ g~a),X-,,@C`%+ ( /3 " Bg5B `3Bg+ ,8) 3",o-`% `-,1 g-,@`7 -, g g~a) ,X-,/,x%jU 18(dLET.matchpLET.directionLET.listallvarsLET.anyvarsp-, 0k1*`3+0(4B6  Z0B+%7DaA+Q3`A-,`k+$D -, B7 "`k! $+5 +.19N+@`3`@`2 `3+-``3@`3 `k119N2@`3k``3`k``3 (i@`3`k "jU*U,x1DECLAREMACROEXPANDBad variable list in LETw:U*U 79p;;x; xLET.optimize*DELQNRECONCLENGTHLET.make-listNCONCPD LET-EXPANDER-1-,+[Z ",8 `-,1+,8[A6 `[[0D`[-,0 1Z D`6@`` ` "-,0@ B`,8gz7@`+[`3@@g|33+3+ @AZ0B` `!+As6 +XAs@ Z4DX@@gy`as5Da3@[@A`5 Bg{Z!+`[g{0D`@@g{`7@ Z0 0B`[gZg[ Dgz + !`3 %[gBDZg[4D р+s ( /[g " 3 Bg|-,+[ g[ @   an` ( %[g Z "[g[ g} Bg|-,0d Bg}Zg[-,1 $-,03-,3 g|-, + , Bg| g| $[ga) Bg{7g| "Zg[ Bgz3+ 3``@@gy3+ g~0 g{-,3 Bg~-,@07@g|+ g g| BgZ`` B``3`E37@`+!A[`Z`?[ Z0J+`CaZ` B`+ "K K,8`,8@,8gy",o-3 ` B`3`]3,8`7@`+.[`3a=Z`  D``S/3+ $0 g Bg? "p  $ u,83,8g,8gz@ @0KoA g-, -,3@`0-,,/,x".U ;7PROGNREVERSELET*-EXPANDER-1[aa6 `[`Z7 `@ ``Z`,8[6 0@+N[[0D+N[Z H`6@`+Q ` "-, B` `0C-, B`[g"7@`+\[`-,1 g-,1,X-,2@ -,Z` D``003`Z`Z-,Z` [-,+bZ`/jU*w"!(NREVERSEBad form to DESETQ G$I%pKKxu(bK xDESETQDESETQ-EXPANDER-1-,+-,D "-,1+ Z!+I@ Z!`asA[ Dg~`A4D97@ Z!` `+}0B+|@-,13-, ` -,3-, d +)` ( % g~!D "4B93+>Z0 "0B`-as3Dg}` ( / 3 " Bg~2Bg}+ g} Bg~B`K` g| Bg~!0Q+ ( %3 g}5B g}a3 Jg~`K+!++a!`?`;@(@ ,`? ( / g~d-,13-, -, g|-, Bg| J` `3 g~@Ca) g| Bg| ( % g~ 7@``g[`Z`4D2[ ZP  0J`]+4Z` B``Y "0@ gAsZ Bg3H +h-,1 $-, -,0@  g|-,@@g~`Q ( % g~!@(7@`+H[`z :w-,2@ -,3-,Z`AB D``+) g|# Bg|3 ` g Bg|+` C-,A+b3`[[`[Z [Q` Z g|,8g|[` -, 3+Z "-,13-,-,1 g Bg} g|` Bg|+ g} g|-, -,0D0+i ,8,8j-,1 g} -, $&-,",o- "I: +KhXCONS,8!A@ $' Bg}-,Z`Z4BZ`[Z[Z Dg~aa6 +w7 +z0 ,z,8,853",o-[g~asZg~[Bs[ Bg3 Fg~3Z [ (@ 0B(`71B+@6@`` ( ` %3+ ( @ %[`-, $#[`Z[Q3++Z` F`+   "7AsZZ`  0-,as-, Bg~-,13 0-, -,As-,XC`b`Z` B``+Z`c 0[ Dg-,,83 `Y`Z[2Bg~`M+* (` %`-, $ g~ B`5B-a@+" "/_Z` D`+Z`ZXC`+@++@dXZg} "+ ` ,< ,8 pq `+= ` "-, B` Np`mu*U,xkANDEQSYSPMAKE-LISTGETu*U.uO(Q)  S)xGETLFLUSH-MACROMEMOSAUTOLOADLISPDEFMAX*U+UW,+xU&UxDESETQ MACROW*@1MACRO&Y-xMACROFETCHMACROMEMO`[Z`,8` "3`M && $.1,xH}LET*U]UxLET* MACRO]/-x`[@Z`,8` "3`E ] $.`,xpUUxLET MACRO_-x`[4Z`,8` "3!  $p.,xx;