;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*U.WQUOTE;Loading DEFMACRO 166pSETQxU+U*UDEFPROPT+INTERNAL-STRING-MARKER  xALPHALESSPLISPV2071PUTPROPDEFMACROU*U*u166VERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS          xGETU*].WDEFMAXLOADLISPFASL xMACAID xCNVD xU*UjWANDFEATURECOMPLRSPECIAL&r-l|xBOUNDPLISTIFYxW:]jw&restv-ify|xxSI:SELF-BIND-CONSxxDEFUN&-CHECK-ARGSxxU+U$DEFUNPDEFUNP MACROMACRO xDEFUN&-AUX|SUBR $ $U9:UDEFUN&DEFUN& MACRO x $$@LISTBad code-body for definitionERRORU*U*DECLARESTRINGP*:AR3*:AR2*:ARNdef-decl-comment?|,8,8 A7@ " (B{Z1B+ , ,8``,83,8",<,8[g7@ "  (B{Z0B+[g[0D+`[gZ g F` Hg,8[g~4D7@ H $ (D{Z0B++![g~4D@(D{ an+ $ [g~4B! b+ $ "4B![g~4B![g~@Zg~ B` Dg~[g~7@ " (B{Z @0B+([g~[0D+([g~Z g~ Fga Hg~7@g++ g-,++ ",8@ 7@g+. g-,+/ " B,X!  * J g~-,/,x]*T&REST&RESTL&RESTV&kwp|-,,8,8  ,87@g+@[g B`1B!+=1B" +=1B"+= g4J>[(Z (0H+;@@0 g+@Zg Bg+5 "/,x]*U*U03DEFUN&-ERRORSUPPLIEDP-VARSEXPRFEXPRCan't DEFUU*UnuN& for FEXPR or MACRO&''(())p**x * xLASTU*U*USI:CHECK-MULTIPLICITIESREVERSERETURNNREVERSEPROG*APPEND&complrp|&specvars|&AUXU+]jU&OPTIONALLexprVar00p11x 1 xGENTEMP:LOCAL-VARARGU*U*U*NCONCLENGTHMEMQ&o-l|NRECONCBUT-TAIL&a-l|Reqd-w:U*U70p77x 7 x>FLATTEN-SYMSSI:ALL-LOCALS?BOUND-VARSBAD-VARSALL-LOCALSU*U*USI:SELF-BINDCertify-no-var-dependency|DESETQMACROEXPAND*DELQLETCONSToo many arguments supplied Too few arguments supplied U*U*U=NOT<WRNG-NO-ARGSEVALARGLISTCOMMENTNCONCDEFUNU( ARGSCOMPILE-,~,8,8,8,8=AD",8>,8>-,$%Z[Z [ (ZZ,8 Fg},8,80J% +O[Zg B` Dg+X `1B+R D00B&+X ,X,8,8? g~-, $  -, $-,,8",< `@a B$4B^ `(N{6 8+] `*L Z4D^$,8` *# J g{ g~!(4,8  0.+d " + *# J ,8 ,8 g Hg}-,| 7@gw+q " +H Bgy[-, $,-,Zgy-,1P @0, $-, $--,-,0&0 Bgy+zpXii(,8,8 "`,8[gzZ,87@`+[`,8(B{6 +}[`0B+}Z` Bg}4B}!E` $-+~ "/XCg g* `Z` Bg D`+u/ g/J-,p..//z ?\ gz# Bg~4B; [1D/+; , ,8,8?",<1 &2 ` $ Bg} ,8gz,8 g2Bg}+@ `+ gw.. Nw~ "w~ Bgw-,  0 $2-,-,[g-,-,0  `3Zg B` Dg+/@@ Bg}3 Nw "w Bgw $ g~#4B @`@ "+&Zg~3Zg~ "/,<43,\/.gw Pw "w g} Bgx Jgz (#A H [g~Zg~ Bg Dg~0B/+. g} gxD g~4+0* g} gx g~,8B  0.+3 "5+ *# J ,87@``0+8 g{ `3 Bg{ g/ g}5 Bg}+i7@g~+G[g~0B/+G g~P@ gz6 *# J BgzZg~6,8  Ph"0.+D "5+ *# J  Hg|,Xg|@ gz3 Np "p Bgw-, Bgx,8gz@"07@`+R[`4BP4BP(B{ `n +P " +RZ` B`+K "/4Bi,8 "`,8,8gy7@`+g[`D`,84BZ4BZ(B{ an+[ `@ 4 +d ,^,8,8@",<1 &2 $ Bg}@ g}-, `-, g{-,0  Bg{ g}/-,XCgZ` 0 Bg D`+U/ g/ BgzA@7B%+ ,8 "`,8,8%7@`+q@[`[-,XCgZ` Bg D`+l / g/ g~3 Bg~,80@ "`,8,8%7@`+[`Z 8@`/.,8-, -, g{-,   $8-, z /QrzH,8[g[-,  2 $-,-,,X-, $@`-,/-,XCgZ` BgA@ D`+v/ g/ gy3 Bgy,8 "`,8,8g|7@`+[`[-,XCgZ` Bg D`+ /0@ g/,87@g}+ g~+ 0 g~ gy8 $,X8 Bg,87@`+[`4BZ`4D[ Z0J+ `$Z` B`+/7@g}+M gD 09-,9p::,8,8g| ,87@g+H[gZ4BB[ Bg~ (B{7 +-[g[3Bg~+B+0[g~0B;g " B`5BB6@g|+6 g~@4N4(N{ 8an+6 gx g~4 (5BB g~;5BB * g}[g[ Jg8 Bg}[gZ[-,[g[ 0-, $<-, g{-,Zag@  Bg{+F7@`+F[gZ,8 g}<QC`/@@`Zg Bg+%/A07@`+L g| "= Bg|/,06@g~+O7@g}+V g~ g}3,8@` g|, gx3,X-, $=-,0-, Bgy7@gw+7@g}+6@gxd+Z gw4N gy-, $-,H,8 g}-, $-,-,`,X-, $>-,,8 $-,2@` $-,-,,X-,   $-,,8,8,87@gv`+ gv4N gv-, g|-,  e $8-,>z "Z~f-,?z "V1-,  $-, Bg gv2Ogv+v gv-,0H g|-, $?-,-,   $@-,+ gv-, g|-,2@0 $@-,,8 gv-, g{ -, $8-,-,,X-,2@  $-, Bg+ 7@gv+>zPI{i}Md gv-, g|-, $8-,P Bg Jg+ gv4N ?zP -uDk gv-,` g|-, $@-, Bg JgAz {_+8d,X-,,X-, $-, -, $A-,-,,X-,0 `0 gy,8 zZu-,-,,X -, $-,-, Bgy $ @2-, $?-, $B-, $B -, gy-,/,@ Bgy ,",8,8g{,8g{,8gx",<C gz @0-, gz-, $C-, Bgy@ 7@g~+4 gz4N)(N{ 8an+4` gz-, $-,,8 gx-,0P`25B. "D gw-,-, $@ -,-,,X-, $D-,0!-, B`+67D+;@@` `5 gy-, $ -Ez ?/z E &#5B>[g~ L 0D/+>$ `0B!+A +D0B" @ +C "+D0B"g " B`0B+G) GH HHzPod W J g5NJ g-, `-,0@ 2+U g-, g-, $8`-,,8 g-, g~-,  0 $I-,-, g-,-,0H,X-, $-, BgZg~ 14BZ[0D/+YZ6+Z$ Bg@ 0[g~4D_ g-,[g~-, g -,+_-,/,x`(6P@$Bad variable-list syntax -- DEFUN& ,c,8,8d,8$",<,xI_:U*UH`G66H 6HxG;;H ;HxDEFMACRO-FOR-COMPILINGSQUIDMAKUNBOUNDMACROSDEFMACRO-CHECK-ARGSFOOU*U*UGETL*EVALDEFMACRO-DISPLACE-CALL-MACROARGSYMBOLCONC&WHOLE&BODYAPPENDBad arg pattern in use of DEFMACROU*]nUDEFMACROWrong number args for macroMacArgLRSpSSx S xCDRCARU*U*U1+NTHCDRNo args allowed for this macro+INTERNAL-LOSSAGEDEFMACRO-DISPLACEDISPLACEMACROFETCHMACROMEMOMACROEXPANDEDU*@`FLUSH-MACROMEMOSDEFMAX-COUNTER-VARIABLESEVAL-WHENdefmacro-1|-,~,8,8-,0 ,8[JZZ1F+j J L$B+mzpXii(4Bl7K " ,8L,8 6,8 6 [g~Zg~[Z  &# F ,8 g},8` "(,8,8!,8  0.+x " D+ *# J ,8,8-,~ g{4N}(N{ 8an+ g{ H`+[g{@ " B`4B(B{ `n+ ( &L F` HgLz jdi> g{M Bg4B Z[M BgzNz wX#a g{M Bg4B Z[M BgyJz zA;` g{M Bg5B `+ (2Z[M4B " Bg|-, $J -, `-, Bg{ ,,8 ,,8,8g,8 7",<O,8",<1 &2  $ ,8 g|(N{7 8+# g| -, $!-,+- g|*Z@ Bg~4D,* g|6,8Zg~-, ` $!-,[g~-, $,X3@+- g|-,~ ,8 $ "O4 Bg| 4BQZ(D{6 +6Z[//!POzPw0W@4J8[(Z (0H+4 * Jg}+O*@ `6Zg|Z3 B`5B<@@gwZg|D`[4BO4BM(B{ `n+MZg|d[7@ " (B{Z0B+L g Zg|[8 Bg g~-,Zg|[ -, $<-,-, Bg+O  * Jg}+OZg|[ Bg~6@g}+Q * 0 Jg~,8 g "/4 Bg|4Br $@ g6Zg| Bg D`4D][ Z0J/ `C+W $ `- $ "/= B`,8`@7@`+p[`,8(B{7 +g ` P(1B/+d1B!+d0BP+e * Jg{ g}-,+mZ`[-,[`-,2@ $<-, g~-, g} Bg~A@[`8/Z` Bg~ D`+]/0 `! g, Bg-,} g} "/4b5Bx g} "!45Bx g} "P4 B`@ Bgy4BE $ g}6 Bg}3 Nw "w Bgu7@`+Z`[ Dg~4D4D(D{  an+Z`Z4D * Jgz  +@Zgy Dg~4D [ Z0J/+ * A! Jgz+ g~ "!45B g~ "P4@ B`4B $ g~6Z`[ Bg~ Dg~@ 4D4D(D{ an+Z`Z 04D * Jgz+ g~3.gu Nw "w Bgu,8 "`,8,8g}7@`+>[`D`,84B#4B#(B{ an+& g}  "-, Bg} `+; * Jg}Z`B4B)(B{6 +5Z`Z4B6(B{6 +5Z`Z[4B0(B{ 0an+5 gzZ`Z[-,@Z`ZZ Bgz4D6 ( Hgx gz[`` 8 g} Bgz `-, Bg} "/0-,XCgZ` Bg D`+/0@ g/ Bg~ ,D,8,8g|,8g} ,8g|",<P Bg}+H g}3 Np "p Bgu-, Bgu g| g}8,87@`+R[`4BPZ`4DP[ Z0J+M  * JgyZ` B`+J/7@gz+Xd ,X,8,8 7 gr-, $Q-, ,8",<,87@gt+} gt5N\ gu1N+} gt2Ogu+e gz-, 0 $3-, gt..,8-, -,0H,X-, $?-, B`+}H4Nn gz-, $3-, gt.. 2,8-, -,,X-, $@H-,-, $@-, B` gu@ @01N+} gz-, $3-, gu@`..,8-, -,,X-,  @0 $8-,-, $@-, BgyD 26@`+z+|-, `-, $2-, B`7@`+ `-, $@e-,,8 gz-,Rz YwnO-,  2 $-,-,,X-, $@-,-, B`,87@g}+ @"6@g~+ @@g~+J , ,8,8 8",<1 B`,8 "`,8,8g}7@`+[`04B `+Z` D`+/,8@ 7@`+7[`,8 g~-, $T-,0d-, g~-, $-, ,87@g+2[g,8ZgZ4D$ z /QrzH @0ZgZ[-, $-,-,0P +$ ",8 g|-, $T-,00-, $,X3 g}-, ,8Zg~[-,-,,X-,2@` $-,-,,X-,   $<-,-,+2 ",X-,00/XCg g*Z` Bg D``+/ g/ Bg~Z,d Bg~ gt5N> gz-, $T-,H+D gt-, $U-,,8 gy @0-,,X-, $U-,-,0H `-, $-, g~-,0` g{ Bg~ `-, Bg{ gw Jgva,8 g{(N{7 8+l7@g{+O@ 6@g+l6@gz+l6@g{+l6@g~+l6@g{+_7@gs+U7@g~+V gy+j gy-,2@2 $T-,,8 gy-,Vz Za:V -, $-,-,,X-,2B $-,+j g{3Bg|+d g| !-, g{-, & $Q "!VH g{ "(-, $T-,-,` $(-, $-, Jgy gv-,0d Bgv+~ gu-, $?-, `0 $B-, $B-,-, B``0 gy-, $T-,-, g{ -, gz-,,8 ,y,8,8g}` ,8gy,8",<C,X-, $=-,00-, $ g3 Bgv7@gr+  gr0BW+  gv "-,-,`0 gy-, $W-,-,+ ` gy-, $X-, gv,8 "d-,,8 gx-, $-, 2-,,X-, gy-, $X@ -,-,,X-, $-,0-, Bgv gy-,,8 , ,8,8gv,8gv,8g~,8gs",<C,X-,0H gt-, $-, Bgv gy -, $-,,8 gq2BY+ ! EA "Y+ )4B "0BW+ # "+ )1BY+ &E"2 Z45B 'YzYM.,F+ ) gq-, $@ -,-,,X-, $Y-,0( Bgr4B 06@gu+ 0-,AEz |= g-,2@0 $Z-, Bgr gv-, gr @0-,Ez ?MACRO MACRO \x,8Z@[Z`Z,8,8[JZZ1F0H*1+ G J+ IzpXii(4B I7K "  ,8,8 g(N{6 8+ RJz zA;`@ gM[g Bg Dg4B RZ[M  B`7@`+ Uz zUtS g-,-, @  + Wz zUtS g-, g~- $C-,0p/,x H @;