; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading SETF 293   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPSETF293U*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+U.WLEXPRF57;xEVONCE57xGENTEMPMACAID=5==7xDEFUPDATE?xꪪDEFUPDATE MACRO? )xCDRFORM+INTERNAL-PUSH-X&WHOLEDEFMACRO 5B- `+3`? ?,8,8.,8g@",o-Z`[Z[@,8-,2@d1 $-,-,1 $-,@`eA!z Iio -, C-,-,1"!z QnLg @2-,,X-, E-, ? ] $ `a/,xCONSU*U*U+INTERNAL-SETF-X-1SETF-SIMPLEP-SCANconstant-p|:LOCAL-VARSETF-ACCESS-FORMSETF-INVERT-FORM*APPEND*NCONCLSUBR -0 @Z(@ g1n`i@+5 "#asA[`C-,~,8@`G $$  g`I5BD `[4BD g-,0h@1 ,g= &% $ Bga g-,1 Bg~ ``K-,1 g-,0@3-,7 Bg}6@g|` `[`4BM g} `&` ,g= &% ` $ a-,13 0&-,1,X-,,X -, $-,-,1,X-, `[5B]+f`0 `[ g~aM g|-,1,X -, $-, `Z g}@`]',X-, ,x O]ARGSU:U*P(CQ)xCAR+INTERNAL-DUP-P+INTERNAL-SETF-XPROG2+INTERNAL-POP-X-00@ @Z( g@(1n+m@`S;+pZ(@`A[gZg,8*`G!@ $$3+x``G` "007@g`3Z$ g~[5B3`iZi ,g="` &% $ B`a `-,1 S-,-,13+ [5B H3 `-, $-,-,13+Z# g~Z# 00 $ g~$as&-,1@03`3[3 `-,1 $@aM g~[7@g}`; g~P[+ $'-,1@ g-,13-,7 $ g}@ &3-,,X-, $-,0`` g}`K-,1,X-, @0-,1,X-, $-, g~ Z (3`c3Z+2 $@ ',X-,+Z g~`K Bg@ 0*4BE g-,1 g|-,7`3`{-,1as-,3aU@ g-,13-,7 $ g~d&-,13-, $-,  4 $+-,+Z ,g= &% $ B`@0a `-,1-,1 g|-,7 $& g-,1 0 g{-,7-,1,X-,,X -, $-,-,10,X-,3+Z-,1as`1 -,3aU+Z/,x\OgW:\(WQ,x xSETF MACRO Y)xZ`@,8`3 $aU & $a/u*U,xH[NREVERSE:WRONG-NUMBER-OF-ARGUMENTSSETF called witU*U*Uh an odd number of arguments.  ~@   ExtrU*U*Ua reference = ~3G~S.~@  Supply a form tU*U.wo evaluate, store and return. .]/_0a1c2e3g4i5k6m7o8q9s:u;pwwxw xU`CERROREQUAL,8-,@ 3`Z`5Bh[`+j `- -,`I`As[ Bg~3Aa5Fw ,v,8K,8,8&M,8'0+ *p,8gy,8gz",<<` g~`G BgAsZ@ 16@g}`[* g@ gaay3 g@ gaay `4 4B $ g$ ,g= &% $ a g[ g-,1 $aM3&-,1d,X-,,X-, $-,` gZ ( g~-,1 $@aM`,X-, `-, B``E3@  g& `-, B`6@g}`EAs@ZE g[E `-, B`@Z+e/,x "u [w ( MACROEXPANDside-effectsp|,8[`5BK@3`c g~-XB(-QB( "(`1`=0 B``Io6@g}+811 `*4B8+I6@g}+A ``{4BA` ` $aM * XJ 4 $ $` ,g= &% $ Bg a g~ `-,3 Bg~ g-,0 g2@`W/:U/+ @ OYLISTSETF-XU*T0MACROEXPAND-1*carcdrp|+INTERNAL-CARCDR-SETFObscure format - SETFWRNG-TYPE-ARG,8,80  g7 8` g4NS" 8an` ,c,8-,  P2 $-,-,1z :w-, $d-, g~-, $-,( d>z =Df-,z KO 1-, }-, @0-,1>z Q-, $-,,8 ,8",o%+[g B` `n`` $? `a51B`1B?` gp+1A3` `+r0B` 1 $ `a5 `-,C  $? `a54Bz gp+ &? 0 $? `a` g`4B[01`G+ `@ ga+ ,,8,8g~,8 Ko- Bg+NKU,x A8ARPLACAARPLACDCRPAIRVALUE,8[1FB[ ( "C1FB7.A (Zg[ "-,Z [ (,87@g+0 g+ "(+@-,1 $( 2-, Y,8*-,1 $ @0-,z =$f-, }-,-,2AH1z Pw-, $-,*g} P2-,1 $-,Dz KIq-, }J -,-,1Dz $W~Iq-, $-,0@,8*-,1",Ko%,xS ,8 ,5,8`3,8@@AA0",</,x` ] w,8@,8g@@K<0.U*,xX6MAKHUNKSETF-CLASS**SELF-EVAL**-0 @Z(@ Z( g~1n`@+E "!H "E` FXJ QH g-,00 ` $*gaM `0@-, `QB(@-, `0*g~-, `0@-, `A:W0/,xOyEXTSTRLOAD5G7GxU*U*USI:DEFVST-BARE-INITCONS-A-SETFCOMPUTESETF-COMPUTEI-COMPUTESETF-I-COMPUTESIDE-EFFECTSSETF-SIDE-EFFECTSU*U*URET-OKSETF-RET-OKACCESSSETF-ACCESSINVERTSETF-INVERTGENVALSSETF-GENVALSGENSYMSU*UjuSETF-GENSYMSUSER-SLOTSETF-USER-SLOTFUNCTIONSETF-FUNCTIONH FIJKLMNOPQRS Qx(%,xforget-macromemos|u0TxCXR SETF-X-ACCESS`@,8-,,X` -,7 $-,,x H WU`RPLACXCXR SETF-X-INVERT` "-, $ -,7`] $-,7 $U-,,x XCXRW CXR SETF-XV?x-,[Z[Z [ (,8,8 ,m,8,8n,80@@-,1 $ -,3A@D_Ko%/,x hTxPNTH SETF-X-ACCESS`@,8-,,X-,0@`]7 $-,,x p oNTHCDRP`NTH SETF-X-INVERT` " ,8-, $-,7 ` -,*`-,,X-, *p -,,x NTHNTH SETF-XY?x-,[Z[Z [ (,8,8@" ,8,8 ,8@-,0@1 $ -,3Ko%/0j,xWX |TxNTHCDR SETF-X-ACCESS`@@,8-,,X-,7 $-,0*,x 1-NTHCDR SETF-X-INVERT` "`,8-, $Z-,*-,` $ -, -,*`-,`],X-, $C-,,x ((NTHCDR SETF-Xp@[?x-,[Z[Z [ ( ,8,8 ,$,8,8%K,8`@-,1 $ -,3KKWo%/,x 01SETF-PROGNP xU:@`PROGN SETF-X-ACCESSSETF-X-ACCESS\xLISTIFY-0 @;`[  "p(]+. "@[@1Z,86@g+6 a54B6D@`K+: "`K-,1 $ g@`]aM3-,,xO&PROGN SETF-X-INVERTW@SETF-X-INVERT^x-0 @Z( g1n` ./g "p(]+D " g@[@1Z,86@g` a5 3@&+Q3 "&-,1 `0 $ gaM3-,/,x]:TO;PROGN SETF-X?xREVERSESQUID[Z,8_[Z,8- ,[,84,8l,8",o% $$P`0 g`G $$3-,0Z `ZaMXB(`[ `[aMQB(,X[ `@U]QD/,x50x5^0x hRARRAYCALLW@ARRAYCALL SETF-X-ACCESS`x-0 @Z( g1n+u ./g "p(]` " g@,Xd*`-,,X-, $`-,ujw/,xOARRAYCALL SETF-X-INVERT`a^xIndex pbbxub xNILCOM;SETF 293_1 ,~,8,8Ko=.T,xbOVSTORE-0 0@Z(@;0a+  "p]` " , A,8cz "-, $ -,7 $-,7}K</,xBcxcf-k@}}cBx1\i X(4GET SETF-X5f?x-,[Z[Z [ (,8,8 ,8@ 0,8L@-,1 $ -, "3Ko%/,xe _( `?TxPLIST SETF-X-ACCESS`*,8-, U,X-,,x hMSETPLISTPLIST SETF-X-INVERT@ ` "-, $-,7 $g-,0.U`,x xPLISTPLIST SETF-Xh?x-,[Z[,8 ,8,8`@@-,1,8g}Ko%0 >P,x TxSYMEVAL SETF-X-ACCESS 0`*,8-,,X-,0.T,xaSETSYMEVAL SETF-X-INVERT` "-,`] $-,7 -,,x SYMEVALW SYMEVAL SETF-Xk?x-,[Z[,8@" ,8,8t@-,1``",8g}Ko%,xij%z@ 0TxARG SETF-X-ACCESS`*,8-,0@`],X-,,x8uSETARGP 2ARG SETF-X-INVERT` "-, $-,7 $lu.-,,xHARGARG SETF-Xm?x-,[Z[,8  ,8,8@-,1,8g}Ko%Ku,x XTxARGS SETF-X-ACCESS``*,8-,,X-,t,x` ARGS SETF-X-INVERT` "-,`] $-,7 $(-,,xhARGS SETF-Xp@(o?x-,[Z[,8 ` 5,87,8,8@-,1``",8g}Ko%,xn_(p#TxSFA-GET SETF-X-ACCESS`@,8-,`0,X-,7 $-,,x](x9SFA-STORESFA-GET SETF-X-INVERT` "-, $ -,d 7 $-,7 $p-,,x("U8`SFA-GETSFA-GET SETF-Xq?x-,[Z[Z [ (,8,8 e,8g,84@i@-,1 $ -,30`DKKo%/,x 'u0TxFIXNUM-IDENTITY SETF-X-ACCESS`*,8-,,XA:P-,,x 5FIXNUM-IDENTITYFIXNUM-IDENTITY SETF-X-INVERT``0 "-, -,-,1 $  -,7 $ -,-,1 -,0.\0,x0sFIXNUM-IDENTITY SETF-X?x-,[Z[,8 ,8,8K@-,1,8g}Ko%.u,xrs 8FLONUM-IDENTITYt5??xTxLDB SETF-X-ACCESS``@,8-,,X-,7 U $-,,xH LDPBSI:LDB-DPB-STFXPLDB SETF-X-INVERT,8,8`u zP;@* &G:W3j`LDBLDB SETF-Xw?x-,[Z[Z [ (,80,8 ,c,8,8d,8@`-,1 $ -,3Ko% >P/,xvpTxLOAD-BYTE SETF-X-ACCESS 0`*,8-, $-,7,X` -,7 $ -,,xx(eDEPOSIT-BYTELOAD-BYTE SETF-X-INVERT,8,8`xzPE ;U*/jLOAD-BYTELOAD-BYTE SETF-Xp@y?x-,[Z[Z [(Z([,8,8 ,8`,8,8@-,1 $-, $ -,3Ko%`,x,8,8`[(Z( g~-,@,8`G  $$3`+#@bZ5B`{5B gz`{4B#@h@`I3 ,g= &% $ Bga g` -,1 Bg-,[g * b"3 J` gz`I5B# ,g= &% $ @  Bg~a g~-,1 Bg~ gz-,1[g~ *  Dgz J``K7@g|``S-,13-, g{-,7 3-,`] g{-,3-,0@7 gz-,7 `-,3-,0` $ g}&6@g+3[4B@[ g~aM $ g}'d-,1,X-, $-,0Z (3@aM $ g}' ,X-,` `,xXx;