; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading SETF 292   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPSETF292U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xANDFEATUREU*]*uCOMPLR*LEXPREVAL-ORDERED*SETF-STRUCT!#%xFLUSH-MACROMEMOSSTATIC-AREAP'xSTATIC-AREAP MACROW*U*UMACRO')xMACROFETCHLENGTHWrong number args for macroERRORPUREPMACROMEMOSUBRD5B `+1N` ,8`2,8 ,8g",o-Z`[-,1 $00-, ' $ `a/,x@STATIC-COPY1xSTATIC-COPY MACRO1)xPURCOPY / `+1N+ ,,81,8g@d",o-Z`[-,1 3-,0`K 1 $ `a/,xU*UjuFBOUNDPGETAUTOLOADLISPFASL57xWRITEABLEP95997xLEXPR-FUNCALLW+UjuLEXPRF57;xEVONCE57xDEFUPDATE=xDEFUPDATE MACRO=)xCDR1FORM+INTERNAL-PUSH-X&WHOLEDEFMACRO5B- `+D3`? ?,8,8.,8g",o-Z` [Z[@,8-,1 $-,0e-,1 $-,? z Iio -,  P0 A-,-,1! z QnLg-,,Xd@-, C-, = $ `a/*U,xpCONS+INTERNAL-SETF-X-1SETF-SIMPLEP-SCANconstant-p|U*U*GENTEMP:LOCAL-VARSETF-ACCESS-FORMSETF-INVERT-FORM*APPEND*NCONCLSUBR-0 `  1n`e @+3 "" Z(@[Z[4-,~,8@`E $#D g`G5BD `[4BD g-,1 Bg~ ,$ I $ Bga g-,0``1 `%-,1 g-, g|-,73` `[4BM "3 `aK Bg}` ,$ I $ 0 Bg}a g}-,1 g}aK@ g|-,1,X-,,X-,2@0 $-, g}-,1,X-, Bg} `[5B] g}+f ` [&-,1,X-,@` $-, `ZaM U,X-,/,x']ARGSW*U*OA(QxCAR+INTERNAL-DUP-P+INTERNAL-SETF-XPROG2+INTERNAL-POP-X-0 `  ;+k Z(`?  1n` @+o ") Z(@[Z,840*`E $#3```E +y "7@g+|3Z# g~[3+5Z4B5Q0 ,$ I $ B`a `-,1   $)-,-,13`@d[3 `-, $-,-,13`)Z4B g~PZ5B $ g~#asaK-,0 13+[5B `-,0`1 $& g~[7@g}(+ g~[`= $aM`-,1 g-,13-,7 ` $ g}aK3-,,X-, 00 $-, g}%-,1,X@ -,-,1,X-, $-,0 g~Z (3+23Z ``e $aM,X-,` g~ % Bg`S g-,1 g|-,0 `73+>-,1as-,@`3* g-,13-,7 2 $ g~aK-,13-, $ -, U-,` ,$ I ` $ B`a `-,1-,0@1 g{-,7 $aK g -,1 g{-,7-,1,X-,0H,X-, $-, -,1,X-,3`-,0@11as-,3*` ,x0'gO+(Wx xSETF MACRO ,)x 5BbZ`,8`3 $* & $AA:Ua/,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. [.]/_0a1c2e3g4i5k6m7o8q9s:upw*@0;;x; xCERROREQUAL,8-, 3+kZ`[`` `B`Y -,+%`As[ Bg~a3A ,8,8&,8M@`,8'O+ *p,8gy,8gzA@",ow g~`E BgAs1Z5D~6@g}+~[5B~`S4B g@ ga<5B g@ gE0a< $ g# ,$ I  $ a g[ g-,1  $&3aK 2-,1,X-,,X-, $0-, gZ ( g~-,1 $@ 0@&,X-, `-, B``+#3 gaK `-, B`6@g} +#AsZ5D# g[5B# `-, B`@Z`/ :P,x -;  cMACROEXPANDside-effectsp|0,8[5B[@3B`w-, ..p@`Y $-,/ -,,<] ..p g~`a`Y $-,/`1``y0 B``G6@g}+B11 ``S4BB+Y6@g}+Q `=4BQ-, ... g|` $@& $-,/-,0@ ..p $ -,/1D#` ,$ I $ Bga@ g~ `-,3 Bg~ g-,0 g2@+,/@]/+ 0(YU*U*LISTSETF-XMACROEXPAND-1*carcdrp|+INTERNAL-CARCDR-SETFObscure format - SETFWRNG-TYPE-ARG,80,8 g7 8+u g@ 8an+ ,8 (-, $-,-,1z :w-,2@2 $-, g~-, $ P2-,{z =Df-,z KO 1-, $>J -,-,1{z Q-, $-,0 5,8",o%`3[g@  B`4By `n+y+ }@( `a54BB+0}+g@ 1p`33+ `5B` P0B+ $ `a54B `-,1C } `a5 gp `3 } } `a+ g? 0#[`E`3 ``4B g@`3 1,8,8,8g~7Ko-`DK Bg`,x A(^U*U ARPLACARPLACDCRPAIRVALUE,8[ P17?1? (Zg [ "-,Z [ (,8A7@g`Q g0BC`S "(`W@-,0@1 $(-, ,>,8*-,2J 1 $-,z =$f-, $>-,0 d-,1z Pw-, $-,H(*g}-,1 $-,Dz KIq-,2@e $>-,-,1Dz $W~Iq-, ` $-,,8*-,1K",o%,xB),8 ,8`3,8@``X@",</,xX@ ,M,8@,8g@@K*U<,xPMAKHUNKSETF-CLASS**SELF-EVAL**0-0 1n+R @ ` " Z(@2Z(@EXJ (F0QH ...-, $ -,/,8`,<{ ..p $@& $-,/@,8` ..p g~-,A@-,/,8`,<| ..p g`0-,A-,/,8`` ..p-,A-,0/,8`,<} ..p g}-,0 A-,//0],x ('NEXTSTRW*U*ULOAD5G7xSI: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-FUNCTION HIJKLMNOPQR (xu:@O%WSxforget-macromemos|xCXR SETF-X-ACCESS`@,8-,0@,X-,7 $-,j@0,x @RPLACXCXR SETF-X-INVERT` "-, $  @0-,7 $-,7 -,,x]+@ P(CXRCXR SETF-XV}x-,[Z[Z [ (,8,8 ',8)`,8,8@-,1 $ -,``"3Ko%/,xTU_( `xNTH SETF-X-ACCESS`@,8-,`0,X-,7 $-,,x](0 h+NTHCDRNTH SETF-X-INVERT` " ,8-, $ 0-,7 $W-,*`-,,X U-, $B-,,x x(NTHNTH SETF-Xp@X}x-,[Z[Z [ ( ,8,8 ,.,8,8/_,8`@-,1 $ -,3KKuo%/,x ExNTHCDR SETF-X-ACCESS``@,8-,,X-,7 U $-,,x  01-NTHCDR SETF-X-INVERT @0` ",8-, -,* @0-, $ -, $W-,*` @0-,,X-, -,,x]8` kNTHCDR SETF-XW}x-,[Z[Z [ (,8,8 ,8,8L 0,8@-,1 $ -,K3Ko%/,xYZ (?W*] 0SETF-PROGNP [xPROGN SETF-X-ACCESSSETF-X-ACCESS\xLISTIFY-0 ;` / "p`0P`+S " @@[Z,83+\ $[a5 004B\@%+` "%-,1 $0 &3-,,x 8'PROGN SETF-X-INVERTSETF-X-INVERT]x-0 1n+g ./ "p`` " Z(@@[@1Z,86@g~+r $[a54Br 3@aK`3 "aK-,1 `0 $ g~&3-,/,x]:T P'aPROGN SETF-X^}xREVERSESQUID[Z,8`[Z,8`Y ,8?4,8 ,8",o% $#P` g`E $#3A ..p@3-, $-,/ 3,<! ..p gZ3 0Z& $-,/03C ..p g[3[@& $-,/@3,<" ..p3[-,/ (/,x5\0x50xu. `ARRAYCALLARRAYCALL SETF-X-ACCESS`\x-0 1n`Q ./ "p`+) " Z(@@ g@-,3-,2@`] -,/,x 'EARRAYCALL SETF-X-INVERTxIndex apx xNILCOM;SETF 292_1 g,8iA@KUK<$,x '1VSTORE-0 ;+; /AB@ "p``w " @Z(@ $b,0 4 ,8z -,z -,-,1 $>-,0``]K</,x '5ARRAYCALL SETF-Xu }xSTRUCT-,Z[Z,8 ,_,8,8e,8f,8",o% -,d ..p3-,/b d,,x5\0x*} 50x  8xGET SETF-X-ACCESS`@`,8-,,X-,7 $-,t,x H gGET SETF-X-INVERT,8,8@ ` ,8 "-, $ -,0@7 $-,7,8wK</07.,xxcf>>x1\i PGET SETF-X5}x-,0[Z[Z [ (,8,8"0 ,,8,8 ,8@-,1 $ 00-,3Ko%/,x"} e XxPLIST SETF-X-ACCESS`*`0,8-,,X-,,x]( `  SETPLISTPLIST SETF-X-INVERT` "-, $-,2A:W7 -,,x p  PLISTPLIST SETF-Xh}x-,[Z[,8 ,D ,8,81,8@-,1,8g}0`DKKo%,xfg u0xSYMEVAL SETF-X-ACCESS`*,8-,,XA:P-,,x 3SETSYMEVAL SETF-X-INVERT`d "-, $-,7 $i-,j\0,x SYMEVALSYMEVAL SETF-Xj}x-,[Z[,8 ,+,8,8,Y,8-@-,1,8g}Ko%j,x ("xARG SETF-X-ACCESS`@*,8-,,X-,j@0,x0 [SETARGARG SETF-X-INVERT` "-, $ U-,7 -,,x@ 2ARGARG SETF-Xp@m}x-,[Z[,8"0 ,?,8,8@,8A@-,1 ",8g}Ko%,xkl _(P6xARGS SETF-X-ACCESS`*,8-, P,X-,,xX ARGS SETF-X-INVERT`d "-, $-,7 O-,k@,x` FARGS SETF-XO}x-,[Z [,8 ,S,8,8T,8@-,1,8g}Ko%} ,xnhJxSFA-GET SETF-X-ACCESS`@`,8-,,X-,7 $-,u ,xp USFA-STORESFA-GET SETF-X-INVERT` "-,0@  $ -,7 $-,7 -,0.U`,xSFA-GETSFA-GET SETF-Xq}x-,[Z[Z [ (,8,8 ,kD ,8,8l,8m@-,1 $ -,03Ko%/,xo"/Tp xFIXNUM-IDENTITY SETF-X-ACCESS`*,8` -,,X-,,x UdFIXNUM-IDENTITYFIXNUM-IDENTITY SETF-X-INVERT` "-, $r-, @0-,1 $-,7 $ -,-,2A:p1 $r-,,x( rFIXNUM-IDENTITY SETF-Xrs}x-,[Z[,8 ,,8D`,8,8@-,1,8g}KD]o%,x 0yFLONUM-IDENTITYw(5r}}xxLDB SETF-X-ACCESS`@,8-,`0,X-,7 $-,,x]*@@ DPBSI:LDB-DPB-STFXLDB SETF-X-INVERT,8,8`; zP;@* &3*uX( U8`LDBLDB SETF-Xv}x-,[Z[Z [ (,8,8 7,89,8 0,8@-,1 $ -,K3Ko%/,xthu0xLOAD-BYTE SETF-X-ACCESS`*,8-, $ 0-,7,X-,7 $ -,0.T,xp;DEPOSIT-BYTELOAD-BYTE SETF-X-INVERT,8,8c`zPE*/*u]+@0$LOAD-BYTELOAD-BYTE SETF-Xy}x-,[Z[Z [(Z([,8,8 ` ,8,8,89s,8@-,1` $-, $ -,3KKo%,xwx*,8,8[(Z( g~-,00@,8`E $#3@+D`Z= gz@b"=`G5BR ,$ I $ @  Bga g-,1 Bg-,[g * 3 J` gz`G ,0$ I $ Bg~a g~-,1 Bg~ gz-,1[g~ *  Dgz J` `%7@g|+b-,13-,a g{-,73-,+g g{-,0@3-,7 gz-,7 `-,0@3-, $ g}aK6@g `[[ g~& $@` g}aM-,1,X-, $-,Z (3@& a $ g}aM,X-,+y `0/`,xP0:;