;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading SETF 293pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPSETF293U*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+U.WLEXPRFxEVONCExGENTEMPMACAIDxDEFUPDATExW*U*DEFUPDATE MACRO xCDRFORM+INTERNAL-PUSH-X&WHOLEDEFMACRO,8 5B- `1N+ ,,8,8.,8g@",<Z`[Z[*,8-,2@d $-,-, $-,(`2 !z Iio -, $!-,-,"!z QnLg @2-,,X-, $"-, & ] $ `/,xCONSU*U*U+INTERNAL-SETF-X-1SETF-SIMPLEP-SCANconstant-p|:LOCAL-VARSETF-ACCESS-FORMSETF-INVERT-FORM*APPEND*NCONCLSUBR -0,8 Z(,8Z(,8@ g1n+4Z(+5 "#[gZg[!-,~ ,8,8,8*# $$ ,8 g$5BD `[4BD g-,0h@ Bg} , &% $ Bg g-, Bg~ `%-, g-,0@ g~-, Bg}6@g|+J `[`4BM g} `& Bg|+Z , &% ` $ Bg| g|-, g|,8 g 0&,8 g{-,,X-,,X -, $-,,8 g|-,,X-, Bg| `[5B] g|+f`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 Z(,8Z(,8 g@(1n+mZ(+m "),81n+pZ( +p " [gZg,8,8,8*#!@ $$,87@g+x[g#+x "00,87@g+{ gZ$-,~ g~@ [5B7@g}+4 g~Z4B4 ,"` &% $ B` `-, $)-,0-, Bg6@g{+ g~[5B H g `-, $-,-, Bg7@g}+ g~Z4B g~Z5B 00 $ g~$[g g~&-, Bg@06@g{+ g~[5B `-, $@ g& Bg g~[,87@g}+ g~P[+ $,X',8 g-,@,8 g-, g{-, $ g}@ & g~-,,X-, $-,0``,8 g}%-,,X-, @0-,,X-, $-, g~ Z (,8,87@g|+1 g}Z+2 $@ ,X',X-,+Z g~% Bg@ 0*4BE g-, g|-, BgA@7@g}+=-,[g}-, g{*@ Bg g-, g|-, $ g~d&-, g-, $-,  4 $+-,+Z , &% $ B`@0 `-,,8 g-, g|-, $ g}&,8 g-, 0 g{-,-,,X-,,X -, $-,,8 g~-,0,X-, Bg7@g}+Z-,[g}b-, g{*+Z/,x8'gW:\(+(, x xSETF MACRO ,x,85BaZ`@,8` Dg $ g* & $,Xu*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...//00112233445566778899::; p;;x; xU`CERROREQUAL,8,8-,,8-,} @ 6@g}+jZ`5Bh[`+j `- $-,+$[g}Zg}[ Bg~ Dg~Zg}@ a5Fw ,v,8,8%,8,8&,8&,8'@ gy,< *p,8,8gy,8gz",<</ Bg~ g~# BgZg}Z5D}@ 16@g}+}[5B} g~*4B gZ  g[<5B gZ g[< `4 4B $ g$ , &% $ Bg g[,8 g-, $,X& g,8 g~&,8 g~-,d,X-,,X-, $-,` gZ (,8 g~-, $*&`,X-, `-, B`+" g~@  g& `-, B`6@g}+"Zg}@Z5D" g[5B" ` g~-, B`Zg}Z Bg}+e/,x "u -; (bMACROEXPANDside-effectsp|,8,8[`5BK gZ,8-,} 6@g}+1 g~- g|XB( g~- g|QB( "(+J 1[g} Bg=QCg} B`$5B76@g}+8D  `*4B8+I6@g}+A `=4BA` g|[ $& g|XB( g| * XJ 4 $ g|$+J , &% $ Bg  g~ `-, g~ Bg~ g-,0 gQKg} Bg~Zg} Bg}++/ :U g/+@'YLISTSETF-XU*T0MACROEXPAND-1*carcdrp|+INTERNAL-CARCDR-SETFObscure format - SETFWRNG-TYPE-ARG,8,8,80  g(N{7 8+c g4NS(N{" 8an+ ,c,8 g~-,  P2 $-,-,z :w-, $d-,,8 g~-, $-,( d>z =Df-,z KO 1-, $>-, @0-,>z Q-, $-,,8,8 ,8",<+[g B`4Bg(B{ `n+g+ $? `P( Bg4Bm1B+m1B?+m gCg+@b 6@g+p `5B|+r g0B+| 1 $ ` Bg4B| `-,C  $? ` Bg4Bz gCg+ &? 0 $? ` + g? Bg4B[@`#+ `@ Bg4B g@+ ,,8,8 ,8g~,8 ",< Bg+NKU/,x AA8LARPLACAU*@ RPLACDCRPAIRVALUE,8,8[1FB7- ( "C,81FB7. " (Zg[,8 "-,Z [ (,8,87@g+0 g0BC+ "(+*-, $( 2-,,8 ,,,8*-, $ @0-,z =$f-, $>-,-,2AHz Pw-, $-,,8*g} P2-, $-,DDz KIq-, $>J -,-,DDz $W~Iq-, $-,0@,8,8*-,,8",K</,xB) ,8,8 ,5,8[,8,8g~,8*g}Z,8AA0",</,x`.,8 ,;,8Z,8,8g*g~Z,8",</0.U*,xX6MAKHUNKSETF-CLASS**SELF-EVAL**-0,8 Z(,8Z(,8Z(,8 Z(,8 g~1n+DZ(+E ",8!H "EE FXJ (FQH,8 g-,00 `XB $*g& `QB(*g~-, `QB(*g}-, `XB(0*g~-, `QB(*g-, `A:WQB(,X/,x('<EXTSTRLOADG GGxU*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 FHIIJJKKLLMMNNOOPPQQRRS(x(,S xforget-macromemos|u0TxCXR SETF-X-ACCESS,8[*,8-,,X -, $-,/,x H WU`RPLACXCXR SETF-X-INVERT[ "-, $ -,`] $-, $U-,,x X(\CXRW CXR SETF-XVV?x,8-,[Z[Z [ (,8,8,8 ,m,8,8n,8n,80@*-, $ -,,8,8g|A@D_",</,xTU haTxPNTH SETF-X-ACCESS,8[*,8-,,X-,0@`] $-,/,x p oNTHCDRP`NTH SETF-X-INVERT[ " ,8-, $-, ` $W-,*`-,,X-, *p $B-,,x (tNTHNTH SETF-XXY?x,8-,[Z[Z [ (,8,8@",8 ,,8,8,8 ,8*-,0@ $ -,,8,8g|",</0j,xWX |TxNTHCDR SETF-X-ACCESS,8[@*,8-,,X-, $-,0*/,x   1-NTHCDR SETF-X-INVERT[ "`,8-, $Z-,*-,` $ -, $W-,*`-,`],X-, $C-,,x ((NTHCDR SETF-Xp@W[?x,8-,[Z[Z [ ( ,8,8,8 ,$,8,8%,8%,8`*-, $ -,,8,8g|",KW</,xYZ 0SETF-PROGNP [xU:@`PROGN SETF-X-ACCESSSETF-X-ACCESS\\xLISTIFY-0,8 Z(,8 g1n+- ./g,< "p(]/+. ",8 gZ[@Z,8,86@g+6 $[ g4B6D*%+: "%-, $ g@`]& g-,/,x @'&PROGN SETF-X-INVERTW@SETF-X-INVERT]^x-0,8 Z(,8Z(,8 g1n+C ./g,< "p(]/+D ",8 gZ[@Z,8,86@g+L $[ g4BL  g~*&+Q g~ "&-, `0 $ g& g-,/,x]:T X';PROGN SETF-X^?xREVERSESQUID,8[Z,8_[Z,8-,8 ,[,8,8k4,8l,8,8",< $$,8P`0 g# $$ g~,8-, g0XB( gZ `Z& gXB( g`[ `[& gQB(,X[ `@U]QD,X/,x\0x^0x hRARRAYCALLW@ARRAYCALL SETF-X-ACCESS``\x-0,8 Z(,8Z(,8 g1n+u ./g,< "p(]/+u ",8 gZ,Xd*`-,,X-, $`-,ujw/,x 'lARRAYCALL SETF-X-INVERT`a^xIndexapbbxub xNILCOM;SETF 293_1 ,~,8,8",</.T,xb ('{VSTORE-0,8 0Z(,8Z(,8Z(,8 g~1n00+ ./g~,< "p]/+   ",8 $b,,8 , ,8cz -,( dcz -, -, $>-,,8",</0.] ,x 'ARRAYCALL SETF-X`d?xSTRUCT,8-,Z[Z,8,8 ,),8,8-,8-`b,8.,8",<-,d gXJ * d,/,x`\0x`^0x _( @!TxGET SETF-X-ACCESS,8[*,8-,`0,X-, $-,/,x] P .GET SETF-X-INVERT,8,8,8,8[ ,=,8@,8> "-, $ -, $-,0,8,8>",</,xBcxcf-k@>> cBx1\i X(4GET SETF-Xf?x,8-,[Z[Z [ (,8,8,8 ,J,8,8K@ 0,8L,8L*-, $ -,,8 ",8g|",</,xee _( `?TxPLIST SETF-X-ACCESS,8[*,8-, U,X-,/,x hMSETPLISTPLIST SETF-X-INVERT@ [ "-, $-, $g-,0.U`,x x QPLISTPLIST SETF-Xhh?x,8-,[Z[,8,8 ,^,8,8_,8`@,8`*-,,8,8g}",</0 >P,xfg UTxSYMEVAL SETF-X-ACCESS,8 0[*,8-,,X-,/0.T,x aSETSYMEVAL SETF-X-INVERT[ "-,`] $-, $i-,,x  eSYMEVALW SYMEVAL SETF-Xjk?x,8-,[Z[,8@",8 ,r,8,8s,8t,8t*-,``",8,8g}",</,xij%z@ 0iTxARG SETF-X-ACCESS,8[*,8-,0@`],X-,/,x 8uSETARGP 2ARG SETF-X-INVERT[ "-, $-, $lu.-,,x H yARGARG SETF-Xmm?x,8-,0[Z[,8,8 ,,8,8@ ,8,8*-,,8,8g}",<Ku/,xkl X}TxARGS SETF-X-ACCESS`,8[*,8-,,X-,t/,x ` ARGS SETF-X-INVERT[ "-,`] $-, $(-,,x h  ARGS SETF-Xp@(o?x,8-,[Z[,8,8 ` ,,8,8,8,8*-,``",8,8g}",</,xnn_( pTxSFA-GET SETF-X-ACCESS,8[*,8-,`0,X-, $-,/,x]( x SFA-STORESFA-GET SETF-X-INVERT[ "-, $ -,0H $-, $p-,,x("U8`SFA-GETSFA-GET SETF-Xqq?x,8-,[Z[Z [ (,8,8,8 ,2,8,83,84@,84*-, $ -,,8,8g|A@D%",</,xop 'u0TxFIXNUM-IDENTITY SETF-X-ACCESS,8[*,8-,,XA:P-,/,x 5FIXNUM-IDENTITYFIXNUM-IDENTITY SETF-X-INVERT[`0 "-, $r-,-, $  -, $ -,-, $r-,0.\0,x0 9FIXNUM-IDENTITY SETF-Xrs?x,8-,[Z[,8,8 ,I,8,8J,8K,8K*-,,8,8g}",</.u,xrs 8@FLONUM-IDENTITY tr??xTxLDB SETF-X-ACCESS`,8[*,8-,,X-, U $-,/,xH LDPBSI:LDB-DPB-STFXPLDB SETF-X-INVERT,8,8,8,8[u zP;@* &G:W g,X/*u`(QLDBLDB SETF-Xvw?x,8-,[Z[Z [ (,80,8,8 ,c,8,8d,8d,8* -, $ -,,8,8g|",< >P/,xtvpWTxLOAD-BYTE SETF-X-ACCESS,8 0[*,8-, $-,,X -, $ -,/,xx(eUDEPOSIT-BYTELOAD-BYTE SETF-X-INVERT,8,8,8,8,8[xzP=Z#" ;U*,X g/*u0kLOAD-BYTELOAD-BYTE SETF-Xp@yy?x,8-,[Z[Z [(Z([,8,8,8,8 ,,8,8`,8,8*-, $-, $ -,,8,8g|",</`,xwxq,8,8,8,8,8`[(Z(,8 g~-,*g},8#  $,8$-,} 6@g|+ +# g}@bZ5B g{=5B gz=4B# g{@h@$5B , &% $ Bg g` -, Bg g{-,[g * Bgb" Dg{ J` gz$5B# , &% $ @  Bg~ g~-, Bg~ gz-,[g~ * Bg~ Dgz J` g}%,87@g|`+)-, gy-, g{-,  g|-,+. g{-, gz-,0@ gz-, `-, g|-,0` $ g}&,86@g+3 g|[4B@ g|[ g~& $ g}',8d g-,,X-, $-,0 g|Z ( g~*,8& $ g}' ,X-,+@ `/,xX0x;