;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading SETF 292pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPSETF292U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xANDFEATUREU*]*uCOMPLR*LEXPREVAL-ORDERED*SETF-STRUCTxFLUSH-MACROMEMOSSTATIC-AREAPxSTATIC-AREAP MACROW*U*UMACROxMACROFETCHLENGTHWrong number args for macroERRORPUREPMACROMEMOSUBRD,85B `1N+ ,,8`2,8 ,8g",<Z`[-, $00-, & $ `/,x%kUj@STATIC-COPYxSTATIC-COPY MACROxPURCOPY,8 5B `1N+ ,,8,8,8g@d",<Z`[-, $-, ``% & $ `/,x U*UjuFBOUNDPGETAUTOLOADLISPFASLxWRITEABLEPxLEXPR-FUNCALLW+UjuLEXPRFxEVONCExDEFUPDATExDEFUPDATE MACROxCDRU*@1FORM+INTERNAL-PUSH-X&WHOLEDEFMACRO,85B- `D1N+ ,,8,8.,8g",<Z` [Z[*,8-, $-,0e-, $-, z Iio -,  P0 $ -,-,! z QnLg-,,X @-, $!-, & $ `*U/,xpCONS+INTERNAL-SETF-X-1SETF-SIMPLEP-SCANconstant-p|U*U*GENTEMP:LOCAL-VARSETF-ACCESS-FORMSETF-INVERT-FORM*APPEND*NCONCLSUBR-0 ` ,8 1n+2 Z(+3 "",8 Z(,8Z([Z[4-,~ ,8,8*" $#,8D g#5BD `[4BD g-,  Bg~ ,$ &$ $ Bg g-,0`` Bg~ `%-, g-, g|-, Bg}6@g|+J `[4BM " g} `% Bg}+Z ,$ &$ $ @  Bg} g}-, g},8 g%@,8 g|-,,X-,,X-,2@0 $-,,8 g}-,,X-, Bg} `[5B] g}+f ` [ g~&,8 g|-,,X-,2@ $-, `Z,8 g}& U,X-,/,x'.ARGSW*U*' (( xCAR+INTERNAL-DUP-P+INTERNAL-SETF-XPROG2+INTERNAL-POP-X-0 ` ,8 1n+k Z(+k "  ,81n+n Z(+o "),8 Z(,8Z([Z,8,8P`*" $#,87@g+x[g" +y ",87@g+| gZ#-,~0  g~[5B7@g}+5 g~Z4B5Q0 ,$ &$ $ B` `-,   $)-,-, Bg6@g|+ g~@d[5B g `-, $-,-, Bg7@g}+ g~Z4B g~PZ5B $ g~#[g g~%-,0  Bg6@g|+ g~[5B `-,0` $ g& Bg g~[,87@g}(+ g~[+ $,X&,8 g`-,,8 g-, gz-, ` $ g}% g~-,,X-, 00 $-,,8 g}%-,,X@ -,-,,X-, $-,0 g~Z (,8,87@g|+2 g}Z `+2 $,X&,X-,+Z g~ % Bg)4BE g-, g|-,0 ` Bg7@g}+>-,[g}-,@` g|* Bg g-, g{-, 2 $ g~%-, g-, $ -, $*-,+Z ,$ &$ ` $ B` `-,,8 g-,0@ g{-, $ g}%,8 g -, g{-,-,,X-,0H,X-, $-,,8 g~ -,,X-, Bg7@g}+Z-,0@1[g}-, g|*+Z/k].,x0'g'+(+ x xSETF MACRO ,x,8 5BbZ`,8` Dg $ g* & $AA:U,X/,x@[NREVERSE:WRONG-NUMBER-OF-ARGUMENTSSETF U*U*Ucalled with an odd number of arguments.  ~@ U*U*U  Extra reference = ~3G~S.~@  SupplU*U*Wy a form to evaluate, store and return.-..//00112233445566778899:: pw*@0;;x; xCERROREQUAL,8,8-,,8 -,} 6@g}+kZ`5Bh[`+j `B, $-,+%[g}Zg}[ Bg~ 0 Dg~Zg}5Fw ,v,8,8&,8,8&@`,8',8' gy,< *p,8,8gy,8gzA@",<;/ Bg~ g~" BgZg}@ Z5D~6@g}+~[5B~ g~)4B gZ g[<5B gZ gE0[<4B $ g# ,$ &$  $ Bg g[,8 g-,  $,X& g,8 g~%,8 g~ 2-,,X-,,X-, $0-, gZ (,8 g~-, $@ 0*&,X-, `-, B``+# g~ g% `-, B`6@g} +#Zg}Z5D# g[5B# ` g~-, B`Zg}Z Bg}+e/ :P,x -;  cMACROEXPANDside-effectsp|,80,8[5B[ gZ,8-,} 6@g}B+; g|-,,<\ ..p,8 g}@,<, $,X,\-,/ g|-,,<] ..p,8 g~,<`0, $,X,\-,/+Z 1[g} BgJ -,-,=z Q-, $-,0 ,8,8,8",<+[g@  B`4By(B{ `n+y+ $>@( ` Bg4B1B+1B>+ g@ 1Cg+6@g+ `5B+ g P0B+ $ ` Bg4B `-,1C $> ` Bg4B gCg + &> $> ` + g? Bg 04B["+ `? Bg4B gD@+ ,,8,8,8g~,8",<A@D% Bg+_/,x @A(^U*U ARPLACARPLACDCRPAIRVALUE,8,8[ P1FA7? "B,81FA7? " (Zg [,8 "-,Z [ (,8,8A7@g+( g0BC+) "(++*-,0@ $(-,,8 ,>,8*-,2J  $-,z =$f-, $>-,0 d-,z Pw-, $-,H(,8*g}-, $-,CDz KIq-,2@e $>-,-,DCz $W~Iq-, ` $-,,8,8*-, %,8",</,xB),8,8 ,F,8[,8,8g~,8*g}``XZ,8",</,xX@,8 ,M,8Z,8,8g*g~Z,8",*U</,xPGMAKHUNKSETF-CLASS**SELF-EVAL**0-0,8 1n+R Z( +R ",8 Z(,8Z(,82Z(,8Z(,8 "DE EXJ (F0QH,8 ...,8 g}-, $ ,X-,,8`,<{ ..p $ g}@,<& $,X,\-,/@,8`,<{ ..p g~-,*,X@-,/,8`,<| ..p g`0-,*,X-,/,8``,<| ..p g~-,*,X-,0/,8`,<} ..p g}-,0 *,X-,/,X/0],x('NEXTSTRW*U*ULOADF GFxSI:DEFVST-BARE-INITCONS-A-SETFCOMPUTESETF-COMPUTEI-COMPUTESETF-I-COMPUTEU*U*USIDE-EFFECTSSETF-SIDE-EFFECTSRET-OKSETF-RET-OKACCESSSETF-ACCESSINVERTSETF-INVERTGENVALSU*U*uSETF-GENVALSGENSYMSSETF-GENSYMSUSER-SLOTSETF-USER-SLOTFUNCTIONSETF-FUNCTIONG EHHIIJJKKLLMMNNOOPPQQRR(xu:@'+S xforget-macromemos|SxCXR SETF-X-ACCESS,8[*,8-,0@,X-, $-,/j@0,x @ }RPLACXCXR SETF-X-INVERT[ "-, $  @0-, $-, $T-,,x]+@ P(CXRCXR SETF-XUV>x,8-,[Z[Z [ (,8,8,8 ,,8,8`,8,8*-, $ -,``",8,8g|",</,xTU_( `SxNTH SETF-X-ACCESS,8[*,8-,`0,X-, $-,/,x](0 h NTHCDRNTH SETF-X-INVERT[ " ,8-, $ 0-, $W-,*`-,,X U-, $B-,,x x(NTHNTH SETF-Xp@XX>x,8-,[Z[Z [ ( ,8,8,8 ,.,8,8/,8/,8`*-, $ -,,8,8g|",Ku</,xVW "SxNTHCDR SETF-X-ACCESS`,8[*,8-,,X-, U $-,/,x  01-NTHCDR SETF-X-INVERT @0[ ",8-, $Y-,* @0-, $ -, $W-,*` @0-,,X-, $B-,,x]8` (5NTHCDR SETF-XWZ>x,8-,[Z[Z [ (,8,8,8 ,J,8,8K,8L 0,8*-, $ -,,8 %,8g|",</,xYZ (?W*] 0SETF-PROGNP [xPROGN SETF-X-ACCESSSETF-X-ACCESS[\xLISTIFY-0,8 1n+R ./,< "p\/0P`+S ",8 Z(,8Z[Z,8,86@g~+\ $[ g 004B\*%+` "%-, $@  g~& g-,/,x 8'LU8 PROGN SETF-X-INVERTSETF-X-INVERT]]x-0,8 1n+g ./,< "p\/+g ",8 Z(,8Z(,8Z[@Z,8,86@g~+r $[ g4Br  g~*%+v g~ "%-, `0 $ g~& g-,/,x]:T P'aPROGN SETF-X^>xREVERSESQUID,8[Z,8^[Z,8,,8 ,,8,84,8 ,8,8",< $#,8P` g" $#,8,8g,< ..p@ g},<-, $,X,\-, /,8g,<! ..p gZ g 0Z,<& $,X,\-,/0,8g,<! ..p g[ g[@,<& $,X,\-,/@,8g,<" ..p g[,X-, (/ g/,x\0x]0xu. `wARRAYCALLARRAYCALL SETF-X-ACCESS_`\x-0 ,8 1n+( ./,< "p\/+) ",8 Z(,8Z(,8Z g*g-, g-,2@`] $_-,/,x '"ARRAYCALL SETF-X-INVERTu;]!_`]xIndexapaaxa xNILCOM;SETF 292_1 ,3,8,84A@KU",<$/,xa '1VSTORE-0,8 1n+; ./,<AB@ "p\/+; ",8 Z(,8Z(,8Z(,8 $b g~,0 4,8 ,V,8bz -,bz -,-, $>-,0``],8",</,x '5ARRAYCALL SETF-Xu _c>xSTRUCT,8-,Z[Z,8@",8 ,_,8,8e,8e,8f,8",< -,d,<f ..p g-, / d,/,x_\0x*} _]0x  8WSxGET SETF-X-ACCESS,8[*`,8-,,X-, $-,t/,x H gGET SETF-X-INVERT,8,8,8,8@ [ ,u,8,8v "-, $ -,0@ $-,,8,8w",</07.,xAbxcf>> bAx1\i P(lGET SETF-Xe>x,8-,0[Z[Z [ (,8,8,8"0 ,,8,8,8,8*-, $ 00-,,8,8g|",</,x"} de XwSxPLIST SETF-X-ACCESS,8[*`0,8-,,X-,/,x]( `SETPLISTPLIST SETF-X-INVERT[ "-, $-,2A:W $f-,,x p  PLISTPLIST SETF-Xgh>x,8-,[Z[,8,8 ,D ,8,8,8,8*-,,8,8g}A@D%",</,xfg u0SxSYMEVAL SETF-X-ACCESS,8[*,8-,,XA:P-,/,x SETSYMEVAL SETF-X-INVERT[d "-, $-, $i-,j\0,x  SYMEVALSYMEVAL SETF-Xjj>x,8-,[Z[,8,8 ,+,8,8,,8,,8-*-,,8,8g}",</j,xhi ("SxARG SETF-X-ACCESS,8[@*,8-,,X-,/j@0,x 0-SETARGARG SETF-X-INVERT[ "-, $ U-, $k-,,x @ 2ARGARG SETF-Xp@lm>x,8-,[Z[,8,8"0 ,?,8,8@,8@,8A*-,,8 ",8g}",</,xkl _( P6SxARGS SETF-X-ACCESS,8[*,8-, P,X-,/,x XAARGS SETF-X-INVERT[d "-, $-, $'-,k@,x ` FARGS SETF-X'n>x,8-,[Z [,8,8 ,S,8,8T,8T,8*-,,8,8g}",</} ,xmn hJSxSFA-GET SETF-X-ACCESS,8[*`,8-,,X-, $-,u /,x p USFA-STORESFA-GET SETF-X-INVERT[ "-,0@  $ -, $-, $o-,0.U`,x(ZSFA-GETSFA-GET SETF-Xpq>x,8-,[Z[Z [ (,8,8,8 ,kD ,8,8l,8l,8m*-, $ -,0,8,8g|",</,xo"/Tp _SxFIXNUM-IDENTITY SETF-X-ACCESS,8[*,8 -,,X-,/,xmUdFIXNUM-IDENTITYFIXNUM-IDENTITY SETF-X-INVERT[ "-, $r-, @0-, $-, $ -,-,2A:p $r-,,x( rFIXNUM-IDENTITY SETF-Xrs>x,8-,[Z[,8,8 ,,8D`,8,8,8*-,,8,8g}",D]</,xqr 0yFLONUM-IDENTITYw( sr>>xSxLDB SETF-X-ACCESS,8[*,8-,`0,X-, $-,/,x]*@@ DPBSI:LDB-DPB-STFXLDB SETF-X-INVERT,8,8,8,8[(t zP;@* & g,X/*uX( U8`LDBLDB SETF-Xvv>x,8-,[Z[Z [ (,8,8,8 ,,8,8,8 0,8*-, $ -,,8 %,8g|",</,xtuhu0SxLOAD-BYTE SETF-X-ACCESS,8[*,8-, $ 0-,,X-, $ -,/0.T,xp(DEPOSIT-BYTELOAD-BYTE SETF-X-INVERT,8,8,8,81,8[wzP=Z#"*,X g/*u]+@0$LOAD-BYTELOAD-BYTE SETF-Xxy>x,8-,[Z[Z [(Z([,8,8,8,8 ` ,8,8,89,89,8*-,` $-, $ -,,8,8g|",K</,xwx*,8,8,8,8,8[(Z(,8 g~-, 00*g},8" $,8#-,} 6@g|@+D+[ g}Z5BH g{=5BH gz@b"=4B[ g{#5BR ,$ &$ $ @  Bg g-, Bg g{-,[g * Bg Dg{ J` gz#5B[ ,0$ &$ $ Bg~ g~-, Bg~ gz-,[g~ * Bg~ Dgz J` g} `%,87@g|+b-, gy-,a g{-, g|-,+g g{-,0@ gz-, gz-, `-,0@ g|-, $ g}%,86@g +k g|[4Bx g|[ g~& $@` g}&,8 g-,,X-,  $-, g|Z ( g~*,8& a $ g}&,X-,+y `/0/`,xP0:;