; P@QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading SETF 291   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPSETF291U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xFBOUNDPEVAL-ORDERED*U*UjWGETAUTOLOADLISPEVONCEFASL!!#!%#xFLUSH-MACROMEMOSDEFUPDATE''xU:U*UDEFUPDATE MACROMACRO)xMACROFETCHLENGTHWrong number args for macroERRORCDRFORMU*T+INTERNAL-PUSH-X&WHOLEDEFMACROMACROMEMOSUBR`+5B `3` ,8,8,8g",<2Z`[Z[@,8-,1 $H(-,-,1 $-,/z Iio -,2@e 1-,-,1z QnLg-,d,X-, 3-, & $ ` :U,x-5CONS+INTERNAL-SETF-X-1SETF-SIMPLEP-SCANU*U*Pconstant-p|GENTEMP:LOCAL-VARSETF-ACCESS-FORMSETF-INVERT-FORM*APPEND*NCONCLSUBR-0 1n`3 @+ @ " Z(@[ZC[-,~,8@`7 $  g`95B+ `[4B+ g-,0h@1 Bg~ , ; $ Bga g-,1 `-,1 g-,0@ g|-,73`c `[`4B43 `a= Bg}` , ; ` $ Bg}a g}-,1 g} 0a= g|-,1,X-,,X -, $-, g}-,1,X-, Bg} `[5BD g}+M`0 `[-,1,X -, $-, `Z@`]a?,X-,/,x +ARGSU:U*PA1!CxCAR+INTERNAL-DUP-P+INTERNAL-SETF-XPROG2+INTERNAL-POP-X-0 ;+R Z(` ` /1n` @+V "" Z(@[Z,8*`7 $3```7+` "7@g+c3Z g~[3+Z4B , ; $ B`a `-,@``1 $"-,-,13` [3 `-, $-,-,13`Z4By@0 g~Z5By $ g~asa=-,13+[5B `-,1 $ g~[@@7@g}+ g~[` $a?-,1 g-,13-,0`7 $ g}a=3-,,X-,2@ $-, g}-,1 2,X-,-,1,X-, $-, g~Z (3+3aZ`3 $a?,X-,`@b0 g~ Bg`EY g-,1 g|-,73+%-,1as-,0 3# g-,13-,0``7 $ g~a=-,13-,@a $-, G-,` ,"` ; $ B`a `-,1 -,1 g{-,7 $a=`0 g-,1 g{-,7-,1,X @0-,,X-, $-,`-,1,X-,3` -,1as-,3#` 0.]jp,x@ NA$!Ix' 'xSETF MACRO %x@@`+5BIZ`,8`3 $# & U $,x(5NREVERSE: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 M'O(Q)S*U+W,Y-[.]/_0a1c2e3gp44x4 xCERROREQUAL,8-,3+RZ`[``P  ``K -,+ `As[" Bg~3A ,8,8,8D,8 *p,8gy ,8gz",oi g~`7 BgAsZ5De6@g}+e[5Be`E14Bh g@ ga55B g@ ga5 $ g ,"` ; $ a g[ g-,0`1 $3a=`-,1,X-,,X-,  $-, gZ ( g~-,1 ` $@,X-, `-,@0 B`+ 3 ga= `-, B`@6@g}+ AsZ5D g[5B `-, B`@Z`/0KU,x &4 5JMACROEXPANDside-effectsp| ,8[5BA@@ 3`E-, ..p 0`K $-,/0B-,,<C ..p g@`K $-,/1```k0``95B?6@g~`iD``6i-, ... g}` $ $-,0B /-, ..p $ -,0/`6@g~+7`@h@`E5B? , ; $ B`a g0`-,3 Bg `-, `2@+//0 U+ 5YLISTU*U*SETF-STRUCTSETF-XMACROEXPAND-1*carcdrp|+INTERNAL-CARCDR-SETFObscure format - SETFWRNG-TYPE-ARG,80,8 g7 8+[ g@ 8an+{ ,8 (-, $-,-,1z :w-,2@2 $-, g~-, $ P2-,mz =Df-,z KO 1-, $7J -,-,1mz Q-, $-,0 ,8",oo`[g@  B`4B_ `n+_+{ $8@( `4Be0#+e1B8+e g@ 1p`3+h `5Bt` P#+t # `4Bt `-,1p# $8 ` gp ` &8 $8 `a+{ g`q 0[`7` `94B{ gas` ,8,8,8g~K<`DK Bg`,x :u5DU*U ARPLACARPLACDCRPAIRVALUE,8[ P1F;7% "<1F;K/ (Zg [ "-,Z [ (,8A7@g` gy` "(`#@-,0@1 $(-, ,$,8*-,2J 1 $-,z =$f-, $7-,0 d-,1z Pw-, $-,H(*g}-,1 $-,={z KIq-,2@e $7-,-,1{=z $W~Iq-, ` $-,,8*-,1K",oo,xw"5P LEXPR-FUNCALL,8 Y,8`3,8 @@",<>/,x5&@ ,3,8@,8g@@AA:uK<>,x5[LEXPRF>>#>}#xMAKHUNKSETF-CLASS**SELF-EVAL**-0 1n+8(0 @`q " Z(C@Z(@ "?` @XJ QH ...`-, $-,/,8`,<a ..p $ $-,0/,8` ..p g~-,A-,/,8`,<b  ..p g-,A-,/ ,8` ..p-,@`A-,/,8`,<c .@0.p g}-,A-,/0@/,xj]*U x 4EXTSTRLOADAAxSI: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 @CDEFGHIJKLM !xAoIxforget-macromemos|NxCXR SETF-X-ACCESS`@@,8-,,X-,7 $-,0*,xt5RPLACXCXR SETF-X-INVERT` " 2-, $ -,7 $-,7 $Ou.-,,x|5(iCXRCXR SETF-XP8x-,0[Z[Z [ (,8,8 ` ,8,8{,8@-,1 $ -,3Koo/} ,x5nNxNTH SETF-X-ACCESS`@`,8-,,X-,7 $-,u ,x5NTHCDRNTH SETF-X-INVERT` " ,8 @0-, $-,7 -,*` @0-,,X-, w-,,x]+@5(NTHNTH SETF-XS8x-,[Z[Z [ (,8,8 ,,8,8`+,8@-,1 $ -,``"3Koo/,xQR_(5NxNTHCDR SETF-X-ACCESS`@,8-,`0,X-,7 $-,,x](25 1-NTHCDR SETF-X-INVERT` ",8-, $T 2-,*-, $ -,  2-,*`-,,X-, $<u`-,,x57NTHCDR SETF-XU8x-,[Z[Z [ (,8,8 aD 0,8c,82,8@-,1 $ 00-,3Koo/,x".]*u5%SETF-PROGNP xPROGN SETF-X-ACCESSSETF-X-ACCESSVxLISTIFY-0 ;`q /AB@ "pW+9 " @@[Z,83+B1 4BB@+F "0-,1 $3-,0.U`0,x ` ePROGN SETF-X-INVERTSETF-X-INVERTXx-0 1n+M ./ "pW0P`` " Z(@ @[Z,86@g~+X D14BX3@a=`3 "0a=-,1 $ g~3-,ujP/,x x GPROGN SETF-X8xREVERSESQUID`[Z,8Y[Z,8`K` ,8 ,8,8",oo!@C $ g`7 $3 ..p3-, $ -,/3,< ..p0 gZ3Z $@-,/3 ..p g[3[ $-,0/3,< ..p3[ 0-,//,x*@ U0xX0x5ARRAYCALLARRAYCALL SETF-X-ACCESSpZx-0 1n` ./  "pW+ " 0Z(@@ g@-,0H3-, $Z-,/kT",x ( ARRAYCALL SETF-X-INVERTZ[XxNILCOM;SETF 291_1 , ; $ @ Ua,x 8 VSTORE-0 ;`C /AB@ "pW+" " @Z(@ ,2@h\z P,xZ0xZX0x 5=NxGET SETF-X-ACCESS 0`@,8-,,X-,7 $A:-,,x5GET SETF-X-INVERT,8`,8` "-, $ -,7PPc $-,777\;z01\i $;\zcf/i!]8`5(QGET SETF-X8x-,[Z[Z [ (,8,8 ,8,8f@@-,1 $ -,30`DKKoo/,x^ 5Yu0NxPLIST SETF-X-ACCESS`*,8-,,XA:P-,,x5gSETPLISTPLIST SETF-X-INVERT`d "-, $-,7 -,j\0,x5PLISTPLIST SETF-Xa8x-,[Z[,8 ,8,8z@-,1,8g}Kooj,x_` 5NxSYMEVAL SETF-X-ACCESS`@*,8-,,X-,j@0,x 5{SETSYMEVAL SETF-X-INVERT` "-, $ U-,7 $b-,,x5SYMEVALSYMEVAL SETF-Xp@c8x-,[Z[,8"0 ,8,8@-,1 ",8g}Koo,x _(5NxARG SETF-X-ACCESS`*,8-, U,X-,,x 5SETARGARG SETF-X-INVERT@ ` "-, $-,7 -,0.U`,x(5'ARGARG SETF-Xf8x-,[Z[,8 A,8C,8"@E@-,1,8g}Koo0 >P,xde 05/NxARGS SETF-X-ACCESS 0`*,8-,,X-,0.@0,x45#ARGS SETF-X-INVERT` "-, $ W-,7 A-,,x85OARGS SETF-XA8x-,[Z[,8 iD 0,8k,86,8@-,1K,8g}Koo,xg<5Wu0NxSFA-GET SETF-X-ACCESS`@,8-,,X` -,7 $-,,x@5mU`SFA-STORESFA-GET SETF-X-INVERT` "-, $ -,7`] $-,7 -,,xH5(<SFA-GETW SFA-GET SETF-Xj8x-,[Z[Z [ (,8,8 ,8,8N`@-,1 $ -,3KD_oo/,xhi P5ANxPFIXNUM-IDENTITY SETF-X-ACCESS`*,8-,,X-,0*,xT5OFIXNUM-IDENTITYFIXNUM-IDENTITY SETF-X-INVERT` " -, $k-,-,1 $-,2@d7 $ -,-,1 $k-,k@,x\5FIXNUM-IDENTITY SETF-Xkl8x-,[Z [,8 ,8,8e@00-,1,8g}Koo,x"unP `5FLONUM-IDENTITYk88xNxLDB SETF-X-ACCESS 0`@,8-,,X-,7 $A:U-,,xh5 fDPBSI:LDB-DPB-STFXLDB SETF-X-INVERTP ,8,8` zP;@* &3w*p*nt5LDBLDB SETF-Xo8x-,[Z[Z [ (,8,8@" ,},8,8~,8@-,0@1 $ -,3Koo/0j,xm|5NxLOAD-BYTE SETF-X-ACCESS`@*,8-, $-,7,X-,0@`]7 $ -,,x5(DEPOSIT-BYTEP(LOAD-BYTE SETF-X-INVERT,8,8`zPE*G:W/*n5 LOAD-BYTELOAD-BYTE SETF-Xr8x-,[Z[Z [(Z([,8,8 3,85,8 0,8@-,1 $-, $ 00-,3Koo,x"/Tpq5Nx*LDB SETF-X-ACCESS`@,8 0-,,X-,7 $-,0.T,x57*DPB*LDB SETF-X-INVERT,8,8P@c`s zP4Q@* &3*n]+@5(!*LDB*LDB SETF-Xt8x-,[Z[Z [ (,8,8 e,8g`,84,8@-,1 $ -,``"3Koo/,x_(5'Nx*LOAD-BYTE SETF-X-ACCESS`*,8-,` $-,7,X-,7 $ -,u ,x5i*DEPOSIT-BYTE*LOAD-BYTE SETF-X-INVERT,8 ,8`zPo;#*/j\0*n50;*LOAD-BYTE*LOAD-BYTE SETF-Xw8x-,[Z[Z [(Z([,8@",8 ,O,8,8P,8@-,0@1 $-, $ -,3A@DXKoo,xuv5A,8,8[(Z( g~-,0h@,8`7 $13+[`Z6D gz6`95Bi , ; ` $ Bga g-,1 Bg-,1[g * 3 J` gz`9Q0 , ; $ Bg~a g~-,1@@ Bg~ gz-,1[g~ *  Dgz J`@7@g|+y-,13-,0@ g{-,73-,+~ g{ 0-,3-,7 gz-,7 ` -,3-, $ g}a=6@g`[[ g~  $ g}a?-,1,X-,2@ $-,Z (3@` $ g}a?,X-,+ `~,xp50Q;