;"A(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading SETF 291pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPSETF291U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xFBOUNDPEVAL-ORDERED*U*UjWGETAUTOLOADLISPEVONCEFASLxFLUSH-MACROMEMOSDEFUPDATExU:U*UDEFUPDATE MACROMACROxMACROFETCHLENGTHWrong number args for macroERRORCDRFORMU*T+INTERNAL-PUSH-X&WHOLEDEFMACROMACROMEMOSUBR,85B ` 1N+ ,,8,8,8g",<2Z`[Z[*,8-, $H(-,-, $-,z Iio -,2@e $-,-,z QnLg-,d,X-, $-, & $ ` :U/,xHCONS+INTERNAL-SETF-X-1SETF-SIMPLEP-SCANU*U*Pconstant-p|GENTEMP:LOCAL-VARSETF-ACCESS-FORMSETF-INVERT-FORM*APPEND*NCONCLSUBR-00,8 1n+ Z(+ @ ",8 Z(,8Z([Z![-,~ ,8,8* $ ,8 g5B+ `[4B+ g-,0h@ Bg~ , & $ Bg g-, Bg~ `-, g-,0@ g|-, Bg}6@g|+1 `[`4B4 g} ` Bg}+A , & ` $ Bg} g}-, g},8 g 0,8 g|-,,X-,,X -, $-,,8 g}-,,X-, Bg} `[5BD g}+M`0 `[ g~,8 g|-,,X -, $-, `Z,8 g}@`],X-,/,x ARGSU:U*P !! xCAR+INTERNAL-DUP-P+INTERNAL-SETF-XPROG2+INTERNAL-POP-X-00,8 1n+R Z(+R ` ",81n+U Z(+V "",8 Z(,8Z([Z,8 ,8* $,87@g+_[gP+` ",87@g+c gZ-,~ g~[5Bg7@g}+ g~Z 4B , & $ B` `-,2@` $"-,-, Bg6@g|+s g~[5Bs g `-, $-,0-, Bg7@g}+{ g~Z4By0 g~Z5By $ g~[g g~-, Bg6@g|+ g~[5B `-, $ g Bg g~[,8@@7@g}+ g~[+ $,X,8 g-,,8 g-, gz-,0` $ g} g~-,,X-,2@ $-,,8 g}-, 2,X-,-,,X-, $-, g~Z (,8,87@g|+ g}P0Z+ $,X,X-,+A@b0 g~ Bg"4B, g-, g|-, Bg7@g}+%-,[g}-,0  g|# Bg g-, g{-,0`` $ g~-, g-, a $-, $#-,+A ,"` & $ B` `-,,8 g -, g{-, $ g},8`0 g-, g{-,-,,X @0-,,X-, $-,,8` g~-,,X-, Bg7@g}+A -,[g}-, g|#+A/0.]jp,x@ N $!$ x xSETF MACRO %x,8@@5BIZ`,8` Dg $ g# & U $,X/,xPBNREVERSE:WRONG-NUMBER-OF-ARGUMENTSU*U*USETF called with an odd number of arguments. U*U*U ~@   Extra reference = ~3G~S.~@  U*U*USupply a form to evaluate, store and return.w:T&''(())**++,,--..//00112233 p44x4 xCERROREQUAL,8,8-,,8-,} 6@g}+RZ`5BO[`+QP  `% $-,+ [g}Zg}[" Bg~ Dg~Zg}5F^ ,],8,8 ,8D,8 ,8,8 gy,< *p,8,8gy ,8gz",<4/ Bg~ g~ BgZg}Z5De6@g}+e[5Be g~"14Bh gZ g[55B gZ ( g[54Bl $ g ,"` & $ Bg g[,8 g-,0` $,X g,8 g~,8` g~-,,X-,,X-,  $-, gZ (,8 g~-, ` $*,X-, `-,@0 B`+ g~ g `-, B`@6@g}+ Zg}Z5D g[5B ` g~-, B`Zg}Z Bg}+L/0KU,x &4 0JMACROEXPANDside-effectsp| ,8,8[5BA gZ,8-,~ @ 6@g~+" g}-,,<B ..p,8 0 g~,<% $,X,\-,/0B g}-,,<C ..p,8 g@,<% $,X,\-,/ 1+@[g~5QCg~[g~5B?6@g~+4D`[g~64B4 g}-, ...,8 g}[ $,< $,X,\-,0B  g}-,,<C ..p $ -,0/ g}+@6@g~+7[g~@h@"5B? , & $ B` g0[g~-, g Bg `-, `QKg~ BgZg~ Bg~+/ g/0 U+@YLISTU*U*SETF-STRUCTSETF-XMACROEXPAND-1*carcdrp|+INTERNAL-CARCDR-SETFObscure format - SETFWRNG-TYPE-ARG,8,80,8 g(N{7 8+[ g@4NJ(N{ 8an+{ ,Z,8 g~ (-, $-,-,z :w-,2@2 $-,,8 g~-, $ P2-,6z =Df-,z KO 1-, $7J -,-,6z Q-, $-,0 ,8,8,8",<7+[g@  B`4B_(B{ `n+_+{ $8@( ` Bg4Be1B+e1B8+e g@ 1Cg+6@g+h `5Bt+i g P0B+t $ ` Bg4Bt `-,1C $8 ` Bg4Bq gCg + &8 $8 ` +{ g8 Bg 04Bw[+ `9 Bg4B{ gD9+ ,~,8,8,8g~,8",<A@D% Bg+E/,x ::8DU*U ARPLACARPLACDCRPAIRVALUE,8,8[ P1F;7% "<,81F;7% " (Zg [,8 "-,Z [ (,8,8A7@g+ g0B<+ "(+*-,0@ $(-,,8 ,$,8*-,2J  $-,z =$f-, $7-,0 d-,z Pw-, $-,H(,8*g}-, $-,==z KIq-,2@e $7-,-,==z $W~Iq-, ` $-,,8,8*-, %,8",<7/,x;"P LEXPR-FUNCALL,8,8 ,,,8[,8,8g~,8*g}Z,8",<>/,xh&@,8 ,3,8Z,8,8g*g~Z,8AA:u",<>/,x`-LEXPRF>>>>xU( MAKHUNKSETF-CLASS**SELF-EVAL**-0,8 1n+8(0 Z(+8 ",8 Z(!,8Z(,8Z(,8Z(,8 "?? @XJ (@QH,8 ...,8 g}`-, $,X-,,8`,<a ..p $ g},< $,X,\-,0/,8`,<a ..p g~-,0 *,X-,/,8`,<b  ..p g-,*,X-, /,8`,<b ..p g~-,@`*,X-,/,8`,<c .@0.p g}-,*,X-,/0@,X/,xj]*Ux 4EXTSTRLOADA AAxSI:DEFVST-BARE-INITCONS-A-SETFCOMPUTEU*U*USETF-COMPUTEI-COMPUTESETF-I-COMPUTESIDE-EFFECTSSETF-SIDE-EFFECTSRET-OKSETF-RET-OKACCESSSETF-ACCESSU*U*UINVERTSETF-INVERTGENVALSSETF-GENVALSGENSYMSSETF-GENSYMSUSER-SLOTSETF-USER-SLOTFUNCTIONW+UjSETF-FUNCTIONB @BCCDDEEFFGGHHIIJJKKLLM!x 7$M xforget-macromemos|NxCXR SETF-X-ACCESS,8[@*,8-,,X-, $-,0*/,x h cRPLACXCXR SETF-X-INVERT[ " 2-, $ -, $-, $Ou.-,,x x(iCXRCXR SETF-XPP8x,8-,0[Z[Z [ (,8,8,8 ` ,y,8,8z,8{,8*-, $ -,,8,8g|",<7/} ,xNO nNxNTH SETF-X-ACCESS,8[*`,8-,,X-, $-,u /,x  {NTHCDRNTH SETF-X-INVERT[ " ,8 @0-, $-, $Q-,*` @0-,,X-, $;-,,x]+@ (NTHNTH SETF-XRS8x,8-,[Z[Z [ (,8,8,8 ,,8,8`,8,8*-, $ -,``",8,8g|",<7/,xQR_( 0NxNTHCDR SETF-X-ACCESS,8[*,8-,`0,X-, $-,/,x](2 8 1-NTHCDR SETF-X-INVERT[ ",8-, $T 2-,*-, $ -, $Q 2-,*`-,,X-, $<u`-,,x H(NTHCDR SETF-XQU8x,8-,[Z[Z [ (,8,8,8 ,0D 0,8,81,82,8*-, $ 00-,,8,8g|",<7/,x".]*uST P%SETF-PROGNP UxPROGN SETF-X-ACCESSSETF-X-ACCESSVVxLISTIFY-0,8 1n+8 ./,<AB@ "pW/+9 ",8 Z(,8Z[Z,8,86@g~+B 1 $U g4BB*+F "0-, $ g~ g-,/0.U`0,x ` 2PROGN SETF-X-INVERTSETF-X-INVERTWXx-0,8 1n+M ./,< "pW/0P`+M ",8 Z(,8Z( ,8Z[Z,8,86@g~+X $UD1 g4BX g~*+\ g~ "0-, $ g~ g-,ujP/,x x GPROGN SETF-XX8xREVERSESQUID,8`[Z,8Y[Z,8%,8 ` ,f,8,8,8,8,8",<7!@C $,8 g $,8,8g,< ..p g},<-, $,X ,\-,/,8g,< ..p0 gZ gZ,< $,X,\@-,/,8g,< ..p g[ g[,< $,X,\-,0/,8g,< ..p g[ 0,X-,/ g/,x*@ UV0xX0x ]ARRAYCALLARRAYCALL SETF-X-ACCESSpZZVx-0,8 1n+ ./ ,< "pW/+ ",8 0Z(,8Z(,8Z g*g-,0H g-, $Z-,/kT",x ( ARRAYCALL SETF-X-INVERTZ[XxNILCOM;SETF 291_1 , & $ @ U,8 ,X/,x 8 VSTORE-0,8 1n+! ./,<AB@ "pW/+" ",8 Z(,8Z(,8Z(,8 $[ g~,2@h\z P,xZV0xZX0x  P=NxGET SETF-X-ACCESS,8 0[*,8-,,X-, $A:-,/,x X KGET SETF-X-INVERT,8,8`,8,8[ "-, $ -, P1 $-,77 \;z01\i $;\zcf/&]8` `(QGET SETF-X^8x,8-,[Z[Z [ (,8,8,8 ,d,8,8e,8f@,8f*-, $ -,,8,8g|A@D%",<7/,x]^ hYu0NxPLIST SETF-X-ACCESS,8[*,8-,,XA:P-,/,x pgSETPLISTPLIST SETF-X-INVERT[d "-, $-, $_-,j\0,x  kPLISTPLIST SETF-X`a8x,8-,[Z[,8,8 ,x,8,8y,8z,8z*-,,8,8g}",<7/j,x_` oNxSYMEVAL SETF-X-ACCESS,8[@*,8-,,X-,/j@0,x {SETSYMEVAL SETF-X-INVERT[ "-, $ U-, $b-,,x ( SYMEVALSYMEVAL SETF-Xp@cc8x,8-,[Z[,8,8"0 , ,8,8 ,8,8*-,,8 ",8g}",<7/,xab _( 8NxARG SETF-X-ACCESS,8[*,8-, U,X-,/,x @SETARGARG SETF-X-INVERT@ [ "-, $-, $d-,0.U`,x P ARGARG SETF-Xef8x,8-,[Z[,8,8 , ,8,8!,8"@,8"*-,,8,8g}",<7/0 >P,xde `NxARGS SETF-X-ACCESS,8 0[*,8-,,X-,/0.@0,x h#ARGS SETF-X-INVERT[ "-, $ W-, $ -,,x p 'ARGS SETF-X g8x,8-,[Z[,8,8 ,4D 0,8,85,86,8*-,,8 %,8g}",<7/,xfg x+u0NxSFA-GET SETF-X-ACCESS,8[*,8-,,X -, $-,/,x  6U`SFA-STORESFA-GET SETF-X-INVERT[ "-, $ -,`] $-, $h-,,x (<SFA-GETW SFA-GET SETF-Xij8x,8-,[Z[Z [ (,8,8,8 ,L,8,8M,8N,8N`*-, $ -,,8,8g|",D_<7/,xhi ANxPFIXNUM-IDENTITY SETF-X-ACCESS,8[*,8-,,X-,0*/,x (OFIXNUM-IDENTITYFIXNUM-IDENTITY SETF-X-INVERT[ " -, $k-,-, $-,2@d $ -,-, $k-,k@,x 8 SFIXNUM-IDENTITY SETF-Xkl8x,8-,[Z [,8,8 ,c,8,8d,8e,8e*00-,,8,8g}",<7/,x"unPjk @ZFLONUM-IDENTITY lk88xNxLDB SETF-X-ACCESS,8 0[*,8-,,X-, $A:U-,/,x P fDPBSI:LDB-DPB-STFXLDB SETF-X-INVERTP ,8,8,8,8[m zP;@* & gw*p,X/*n h(kLDBLDB SETF-Xoo8x,8-,[Z[Z [ (,8,8@",8 ,},8,8~,8~,8*-,0@ $ -,,8,8g|",<7/0j,xmn xqNxLOAD-BYTE SETF-X-ACCESS,8[@*,8-, $-,,X-,0@`] $ -,/,x(DEPOSIT-BYTEP(LOAD-BYTE SETF-X-INVERT,8,8,8,8,8[pzP=Z#"*G:W,X g/*n0LOAD-BYTELOAD-BYTE SETF-Xqr8x,8-,[Z[Z [(Z([,8,8,8,8 ,,8,8,8 0,8*-, $-, $ 00-,,8,8g|",<7/,x"/Tpq  Nx*LDB SETF-X-ACCESS,8[*,8 0-,,X-, $-,/0.T,x( *DPB*LDB SETF-X-INVERT,8,8,8,8A1[s zP4Q@* & g,X/*n]+@8(!*LDB*LDB SETF-Xtt8x,8-,[Z[Z [ (,8,8,8 ,2,8,83`,84,8*-, $ -,``",8,8g|",<7/,xrs_(H'Nx*LOAD-BYTE SETF-X-ACCESS,8[*,8-,` $-,,X-, $ -,u /,xP(4*DEPOSIT-BYTE*LOAD-BYTE SETF-X-INVERT,8,8,8 ,8,8[uzPo;#*,X g/j\0*n`0;*LOAD-BYTE*LOAD-BYTE SETF-Xvw8x,8-,[Z[Z [(Z([,8,8,8@",8 ,O,8,8P,8P,8*-,0@ $-, $ -,,8,8g|A@DX",<7/,xuvpA,8,8,8,8,8[(Z(,8 g~-,0h*g},8 $,8-,} D6@g|+[+r g}Z5B_ g{65B_D gz64Br g{5Bi , & ` $ Bg g-, Bg g{-,0[g * Bg Dg{ J` gz5BrQ0 , & $ Bg~ g~-,@@ Bg~ gz-,[g~ * Bg~ Dgz J`@ g},87@g|+y-, gy-,0@ g{-, g|-,+~ g{ 0-, gz-, gz-, ` -, g|-, $ g},8@6@g+ g|[4B g|[ g~  $ g},8 g-,,X-,2@ $-, g|Z ( g~*,8` $ g},X-,+ `~/,x `0Q;