; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*U.WQUOTE;Loading DEFMACRO 166   pSETQxU+U*UDEFPROPT+INTERNAL-STRING-MARKER  xALPHALESSPLISPV2071PUTPROPDEFMACROU*U*u166VERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS   xGETU*].WDEFMAXLOADLISPFASL!#%xMACAID!#%xCNVD!'#'%xU*UjWANDFEATURECOMPLRSPECIAL&r-l|)+xBOUNDPLISTIFY-xW:]jw&restv-ify|)+/x-//xSI:SELF-BIND-CONS)+x-xDEFUN&-CHECK-ARGS)+1x-11x;DEFUNPDEFUNP MACROMACRO 3xDEFUN&-AUX|SUBR i5U9:UDEFUN&DEFUN& MACRO 7x $i5@LISTBad code-body for definitionERRORU*U*DECLARESTRINGP*:AR3*:AR2*:ARNdef-decl-comment?|,8 AZ09+ , ,8``,83,8",o;,8[gAAZ9+[g[0D+`[gZ g F` Hg,8as+7@d Z9++!as4D@1 an`7 $ `a!4B! b+ $=a!4B!``=4B!`@As B`3`Z @9`Qas[0D`QaBsa 33++-,1`W "@ 3`]-,1+/ " B?!  * A-,/,x]*T&REST&RESTL&RESTV&kwp|-,,8  ,87@g+@[g B`0C`{1B"A`{0E`{}[(Z (0H+;@@0 g`Zg Bg`k ",x]*U*U0 gDEFUN&-ERRORSUPPLIEDP-VARSEXPRFEXPRCan't DEFUU*UnuN& for FEXPR or MACRO M'O(Q)Sp**x * xLASTU*U*USI:CHECK-MULTIPLICITIESREVERSERETURNNREVERSEPROG*APPEND&complrp|&specvars|&AUXU+]jU&OPTIONALLexprVar 0ap11x 1 xGENTEMP:LOCAL-VARARGU*U*U*NCONCLENGTHMEMQ&o-l|NRECONCBUT-TAIL&a-l|Reqd-w:U*U 7apoox o 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-ARGSEVALARGLISTCOMMENTNCONCDEFUN!ARGSCOMPILE-,~,81{AD",8>}-,I%/Z[Z [ (ZZ Fg},8KA`[Zg B` Dg+X `1B+R D00B&+X ,X,8,8? g~-, $  -, 7-,",o; `aI4B^ `6 8` ``U Z4D^`I,8` GA3!(4A0.+d " + GA?,8 g Hg}7@gw+q " `WH[-,1 $,-,As-,1P @0`Y $-, $--,-,0&01`=)zpXii(g,8 "``Z7@`+[`a6 `[`+`Z`1@` $a[+~ "`U `Z` D``/b%-,p.]/_z ?\ gz# Bg~4B; [1D/+; ,8Koc &2`  ,8gz,82Bg}+@ `+ˀ-,  0 e-,-,1as-,-,0 1 `3As B`3`/0@1 Bg}g Nw "w $ g~#4B 0@3 "+&Zg~gZg~ "/4g,\s; Bgx Jgz GAA[g~Zg~ Dg~_+.3D g~ai`aB3 g~BA `g "5+ GA?7@``0+83 `33/ g}ak Bg}`7@g~+G[g~0B/+G g~P@ gz6 GA BgzZg~`mAPh" ` "5+ GA? Hg|3@ gzg Np "p-, Bgx,8gz@"07@`+R[` `n ``Z` B`+K ",8 "`,8gy7@``[`D` an` `@ 4 +d ,^,8,8@Koc &2 @ -,1 `-, g{-,0  Bg{-,1Z` 0 D``/ Bgz`7B%`,8 "`,8%7@```[`[-,1Z` D`` /33,80@ "`,8%7@`` [`Z 8@`-,-,13-,   $8-,z yz`[-,  2 -,-,1,X-, $@`-,-,1Z`` D``/ gy3 Bgy,8 "`,8g|7@``![`[-,1Z` D```/7@g}`) g~`- 0 g~aq $aq Bg7@``?[`4BZ`4D[ Z0J+ ``IZ` B``17@g}+M gD 09-,sp:u,83 ,83``Z4BB[ Bg~7 +-`[3Bg~+B+0[g~0B; B`5BB6@g|+6 g~`4N4 8an+63 g~4 (5BB g~`w5BB  g}`[ Jgaq Bg}`Z[-,1as[ 0-, $<-, g{-,Xs Bg{`7@```Z`yQC`@@`@`K/A07@`+L3 "=,03+O7@g}+V3 g}3@` g|`Y33,X-, {-,0-,1 Bgy7@gw+3+6@gxd+Z4N-,1 $-,H g}-,1 $-,-,1`,X-, $>-,I-,2@`1 $-,-,1,X-,   9-,,8,83`` gv-, g|-,  e $8-,}z ~-,?z 15-,  $-,2Ogv`-,0H g|-, -,-,1   $@-,` gv-, g|-,2@0 -, gv-,3 -, $8-,-,1,X-,@` -, Bg+ 3` }zP>d-, g|-, $8-,P Bg+ gv4N ?zP+z gv-,@` g|-, -, BgAz {_+8d-,,X-, ;-, -,1 -,-,1,X-,0 `0 gyzZu-,-,1,X -, $-,-,1 BgyI @2-,1 -, $B-,  -, gy-,,@ ,",833,8gxK<C3 @0-, gz-, -,7@g~`i gzS 8an`i` gz-,1 $-, gx-,0P`25B. "D3-,7-,1 $@ -,-,1,X-, -,0!-,1 B`+6/`w@@` `5-, $/a[Ez ?_z E &#5B>as L 0D/`}`I `C+A `0B"A@@A+C "`E/ B`/+G) /!/H /%HzPod W/ g-, `-,0@ 27+U g-,3-,7 $8`-, g-,3-,7  0 $I-,-,13-,7-,0H1,X-, $-, Bg@ 14BZ[0D/`Z`m+Z`I@ 0as4D_ g-,as-,3a -,3`-,/,x`(6P@$Bad variable-list syntax -- DEFUN& ,8,8dI",o;,x_:U*UH6!6H 6%Hxw!wH w'%HxDEFMACRO-FOR-COMPILINGSQUIDMAKUNBOUNDMACROSDEFMACRO-CHECK-ARGSFOOU*U*UGETL*EVALDEFMACRO-DISPLACE-CALL-MACROARGSYMBOLCONC&WHOLE&BODYAPPENDBad arg pattern in use of DEFMACROU*]nUDEFMACROWrong number args for macroMacArgL Spx  xCDRCARU*U*U1+NTHCDRNo args allowed for this macro+INTERNAL-LOSSAGEDEFMACRO-DISPLACEDISPLACEMACROFETCHMACROMEMOMACROEXPANDEDU*@`FLUSH-MACROMEMOSDEFMAX-COUNTER-VARIABLESEVAL-WHENdefmacro-1|,8-,0 [JZZ1F` JSB+m)zpXii(g,8L,8 6 m asA[Z  GA,8 g}` "(,8!A0.+x " B"+ GA?,8 8an+3 H`+`@ " B`  `n`   F`3Lz Y4M Bg4B Z[` BgzNz wX#aM BgZ[` BgyJz zA;`M Bg5B ``- (2Z[`' Bg|-,1 $J`-, `-, 9,8 ,,8,8g,8 7",<OKoc &2   g|7 8+# g| -,1 C-,+- g|`UZ@YA g|6Zg~-,1` C-,[g~-, $3@+- g| $44BQZ6 `mZ[/_CPzPw0W@4J8[(Z (0H+4  Jg}+OA@ `6AsZ3 B`y3@D`[4BO `n`@d[Z9+L g @[aq Bg g~-,1As[d-, $<-,-,1+O   Jg}+O@[ Bg~6@g}+Q 0,83 "/4 Bg|4Br $@6Zg| D`4D][ Z0J/ `C+W $ `a[ $ "/= B`,8`@7@`+p[`7 +g ` P(0_`0C`0BP` 3-,`Z`[-,1[`-,2@ $<-, g~-,3 Bg~A@[`aqZ` Bg~ D```C g`Y Bg g}_4b g}C45Bx g} "P4 B`@4BE $ g}6 Bg}g Nw "w Bgu7@`+Z`[ Dg~4D4D  an` Z`Z  Jgz  `As34D [ Z_+ CC Jgz+3C43 "P4@ B`4B $6Z`[ Dg~@ 4D4D an`/Z`Z 01  Jgz+g.gu,8 "`37@``}[`D`4B#4B# an+&3  "-, `+;  Jg}Z`BS6 `kZ`Zm6 `kZ`Z[a 0an`k gzZ`Z[-,@Z`ZZ Bgzm  Hgx gz[`` aq3 Bgz `-, "0-,1Z` D`+0@/ ,D,833 3Ko Bg}` g}g Np "p-, Bgu g| g}aq7@`+R[`Z`[ Z0J+M Z` B``7@gz`d ,8 o gr-, -,",o;,87@gt+} gu3+}2Ogu`-,1 0 g-,ˀ-,-,d1,X-, -, B`+}H-,1 g-,ˀ 2-,-,1,X-, H-,-,1 $@-, B` gu@ @03+}-,1 g-, gu@`ˀ-,-,1,X-,  @0 $8-,-,1 $@-, BgyD 26@`+z`-,1 `-, $2-, B`7@`+ `-,1 $@e-, gz-,1Rz #-,  2 ;-,-,1,X-, $``-,-,1 B`,83`6@g~`3+J ,,8,8 8Koc B`,8 "`37@``#[`0% `+Z` D``@ 7@``o[` g~-,1 $T-,0d-,1 g~-, -,3+2`ZgZ4D$z yz @0ZgZ[-, -,-,0P 1`I "-,1 -,00-,1 $3 g}-, @[-,1-,1,X-,2@` $-,-,1,X-,   $<-,-,1`e ",X-,00`UZ` D``+/Z`Yd gt} gz-,1 $T-,H+D gt-, $U-, @0-,1,X-, -,-,0H1 `-, -,3-,0` g{ `-, Bg{ gw`a,87 8+l3`@ 6@g+l3+l6@g{+l6@g~+l3+_7@gs`3`+j-,@`e1 $T-, gy-,1Vz Za:V -, ;-,-,1,X-,2B $-,+jp``C-,13-, & CaH "(-,1 $T-,-,1` $(-, -, gv-,0d Bgv+~-,1 -, `0 $B-, -,-,1 B``0-,1 $T-,-,13 -,3-, ,8,8g}` 3K<C,X-, {-,0-,1 $ g3 Bgv7@gr+  gr0BW` gv-,-,1@`a3-, -,-,1` %`-,1 $X-, gvd-, gx-,1 $-, 2-,1,X-, gy-, @ -,-,1,X-, -,-,1 Bgv-,1 1,8,8gv,8gv,8g~3",<C,X-,0H3-, $-, Bgv gyd!-,1 $-,2BY+ !AAA "Y+ ) E0BW` G "+ )0+ &E"2 Z45B 'zYM.,F+ )-, $@ -,-,1,X-, -,0( Bgr a6@gu` a-,Ez |= g-,2@0 -, Bgr gv-,1 gre@a-,7Ez ?