; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading DEFVST 164   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071DEFVST164VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xFEATURECOMPLRU*U.U*EXPRdefvst-construction|defvst-construction-1|defvst-typchk|*LEXPRdefvst-initialize|!#%'xMAPCYU*U*WANDNOTBOUNDPSETSELECTOR-NAMESTRING-STYLECONSTRUCTOR-NAMESTRING-PREFIX-CONS-A-)+-)/1xU;]*uEFVSY 84  3px xDEFVSY84  5 5xSPECIALW+U*USI:STRUCT=INFO-VERSION!7x9xSI:EXTENDPSTRUCT=INFOGETSTRUCT-TYPEPSUBRD  Z` B` ` ; B`  `-,,xhU*U*USELECTOR&REST:WRONG-TYPE-ARGUMENT~%Restriction Violation while U*U*Ucreating a structure. The ~2G~S component ofU*U*U ~S is being set to ~1G~S, which is supposed U*]nUto be of type ~0G~S !C"E#G$I%K&M'O(Q)S*U+W,Y-[.]p//x/ xCERRORdefvst-typchk|0,87Bg " Za[(Z (0H` g-,+& ? `[AsZ[ @ 0D + .+C[8 8ˀ..  ;@-,[ I,8,8',8O,8(As4D!`333",o_0 " Bg+ + A%jU*U/~A is an unknown version of structuU*U*wre definition, current version = ~A a1c2e3g4i5k6m7pooxuo xSI:VERIFY-DEFVST-VERSION,8 W 9 J` ``a3O`e ,2,8,8,8,84i,8",o_+3 "/u*U,xAo QLISTIFYLISTLENGTHHUNKSIZEU*U*Wdefvst-initialize|STRUCT=INFO-CLSS+INTERNAL-LOSSAGECLASS:VARIABLECLASS-VAR-CLASS >}pw*U*U??x? xSYMBOLCONCEQUALERROR-OUTPUT~%;Warning! IncompaU*U*Utibly redefining the ~S~%; Methods will not U*U*Wbe preserved in the newly-created class. ABCD%KEFGHIJKpw*U*Ux xFORMATSI:DEFVST-BARE-INITMACROEXPANDEDFLUSH-MACROMEMOSMACROPUTPROPCONSTRUCTORU@defvst-selection-1|LSUBR-0 @Z(@Z( g~1n+=P @`{q;+@Z(` "@1n+C@` ";`  "p9+I "  g g}8,87@g~+O7Bg~ "  Zs` g~:+S * `0 g~ J`u/.,8,8  ; B`4B[`C $;w<+g y4B`  ` $=+g3+g {5Bg ,8,8g{c",o 3`+7@`` `[@2N` `Z2Bg|` `@@u/.-, p2N+ g|@ -,,< pk` "  `.. g-,7@g}+} .B.p-,`As3[` Dgb ,X@4B:p+u "0(` "/5B6@`++ ,8,82,8gzK<LD#ˀ-,#33+6@`@+ ),8,8g{3333303Ko ; B``@4 `@ Bg} M g|a &N $ g|a &O3 g|a g}u/. ,<,83Np`_ˀ@ ..-,Z[ B`] M@ a-, g{-,7 ? $Q0 `a &N `a@;+" "@D]/,x?0P5ARGSU:U*U;QxCONS-A-STRUCT=INFOCLSSSTRUCT=INFO-CLASSINISSTRUCT=INFO-INISU*U*USIZESTRUCT=INFO-SIZECNSNSTRUCT=INFO-CNSNNAMESTRUCT=INFO-NAMEVERSSTRUCT=INFO-VERSU:U.U**SELF-EVAL**VECTORZypFILEPINFILETRUENAME;;RYXWUVTSw 9[\xEFVSX 106w:UjU  ]px xDEFVSX106  ^ ^xDEFMAXLOADLISPw+UjU_`_x5`5xSETVSTxSETVST MACROaNxMACROFETCHWrong number args for macroERRORdefvst-xref|SI:XREF*:XREFSI:XSETMACROEXPAND-1* ~1G~S is not recognizable as a structure component selection -- ~S ~:[~% Last expansion resulted in ~S ~]MACROMEMO`  `:3+9 ,9,8,8g@",oZ`[Z[,80 g~6 8``D` B` an` ?@  ` BgZZAZ5FM+KAZ4FMAsZZ(``1Bc+Q0+Q0Bd+W-,1AsZ[-,As[ -, -,+de Bg"[3`{ ,c,8,8h,8D,8i,8g{,8j gzp " `2,8g{K o_ Bg~`y " $ `f,xb A"ujU edefvst-general-selector|Nx+COMPILER-STATETOPLEVELD `5B6-,|[g|+Zg|[Z[ Z [ Bg} Fg~4Fu@ an` ; g~@ (`n`-,1C g~-, & <ˀ ..@-,[3`Zg|[Z ?[Z [(0Z( Dg~ ; Bg g~ Fg}33+@-6@g+`-7@g`'3`#`-[g1B `'`-3`-P"`=0;+ ,,8,87,8Do,88q,8gy,89,8,8@ K o_ Bg|`3A g~87@g@ `I`-,13-, $g-,0(`M0Bh+0 g~-,1  $-, g|-,1 $-,0`-,1,X-,3-,a g}-, $c-,+3-,0H1 g}-, -, $  B` g|f/,x ".WA xdefvst-reference-by-name|xdefvst-reference-by-name| MACROiNxU*U*U*RSETSYMBOLPSI:CHECK-TYPERFIXNUMPInconsistent stre expansi1on request -- ~ lgmno}px x`@" `:3+@ ,@,8,8g",oZ`[Z[Z [(Z([ ,8,8` $j g0 a $k Bg `a B` ; g`=;` `[D`03.+W ,W,8,8,8,8!,8j,8g{Ko_` @ @00Bh+c g-,1 $-,`0 g~-,1 $-,-,1,X 2-, `-,3-, $c`-,+f `-,13-,@ -,/ $ `f :U,xbs:INCONSISTENT-ARGUMENTSThe structU*U*U selector  is being applied to ~S which isn'tW;@ a ~S qrUstuv px x,8,8 @ +o`=P` ..g-,@ a` ,8,8,8{ g| -,3-,7,8g},8g{30`DK",o_/,x p 0W(forget-macromemos|wxdefvst-xref| SETF-X-ACCESS`@,8-,` $ -,7 $-,7,X-,7 P $(-,,xx0|defvst-xref| SETF-X-INVERT@` g~-, g-,73-,2@`]7 -,/,xP8defvst-xref| SETF-XW(`SETF-XcyxSETF-STRUCT-,[Z[Z [(Z([ Z[,8-,0@1 $(-,3-, $ -,0CB & $xb/jU*U,x~S isrecognizable as a stre construW;@1ction zG{|g}o}p~~x~ x`U-,~CZg~[g~ Bg34B $O4B !@" ; B`M K,8W,8,8,Y,8-,8g{[Ko_ Bg~`3 3a# g $ g~f/`DDK,x A~  /U*U*UFIXNUMCURRENT-CONSTRUCTIONGETL Bad key word wcons' ~S sure.w:U*U UGIqpx xASSQCOMPILEMAKLAPSI:STRUCTS-OUTPUT-TO-FASLMEMQ-CLASSU*U*P:SOURCE-FILEPRATTSTACKSI:EXTSTR-AUTOLOAD-OUTPUT-TO-FASLEXTSTRSI:MAKE-EXTENDNRECONCLET*APPEND 2,8,<,< "-, ;  g`=5B8 g-,C3 & #=< `A8 `@ `[ (,<(@,CC*-,` #?<@d-,-,1 $,  -, Bg| g-,1 $@a4BmZ[ * D` Jg~7@`P+3+p `+yzP:w-,1  $-,-,1 $-,0`-,1,X-, `-, ` $0-,-,1 g|-,  -, B`4B7@g~` g-,0@ g}-, Bg}+3-,@@g~ Nw "w`0,8@7@`+ [` Bg}@ g|u/. p4... g|`A-,[2Dg}+ " `%>p+ " "3 ,,8,8`1,8v,8,8gz3Ko_+ 3 g}a Bg}4B3Z-,Z`Z B``,8)DH !zpXii(g1B+% ` E0 gza  y gz-,@`C $-,` $=@5B1 ,1,83,8w",o-,1 2 $-,Z (@-,1 $0-, gzu/.,80  pw `+B 0.p 0 -, `-,  B` Np`s-,1  $-, y`  `1-,1 $-,-,1  0-,,X-, ;-,73 2-,,X-,3-, b-, -, B1B 1` g~ `-, Bg~/Ѐ%"A` `z^ԩ-, B1B`A@B ``z^ԩ-, B` *   gzb-, B ,83",o @0-,1 $p-,7 -,@" 3+i6@g+i`-,1 $,0 -,1z g&>C $ g~H ,X-, -,-,1`0 $ -,//DDK,x A.W:]*USPLITFILE-HOOK!xxDEFVST MACRO NxNO-SELECTOR-MACROSBad name arg - U;]*UDEFVST  px xBad &REST item - DEFW;U*UVST !p##x# xPRIN1-MACRO-ARGKey name not a U;]*Wsymbol - D ') p++x+ xBad key-list - -pw*U*U//x/ x=:FLONUM BIGNUM09n= SYMBOLU*U.wFOOARRAYHUNKSMALL-FLONUMPAIRSTRING Vp==x= xU*U PRINTNREVERSETO-VECTOR*NCONCEVALEVAL-WHEN:0.@ +} ,},8,8H,8g",oZ`[D1Z,8/ -,a/,86 `As`b D`a33`` 8`n` ,8,8I,8g}",o %,8,8g~",oC: g} " a L B`E:X.npZ`[Z`Z[ Dg4B an`?@  E E,8,8J,8g|",o ;U ,',8K<? U,8,8g|",< [,8,8g|A",o g~ "Oa B`cZ[@@`i i,8/3",o,8 ,8,<P3,<@ 3`)6@g|`)`7  @`0B ` g{ ( Hg|AsC[3Dg{+D  " <`` 8`n` ,83",o@@g~+{` `n` ,8,8Q30a",o`Z7 `P@@g~+{ *V Jg@5B[`-,1C $-,31a   q HgZ[7 +c@ [-,1+d@[3 "a Bg~4Bk gˀ Np "p BgZg~[+p3+pV35s79z oTB3`a3;Z@=z i^@`aZ Bg~ g4Ns3-,0 Bg~ .$g:,\3N+{ ,8[g}",<86@gy`+-,13-,`#@"6B+`  ,83,8g~@0Ko B`6@g|+ g~-,3 -,3-,`#-,0@1 `-,3-, Bg| wCˀs`#  " <ˀ `0@+8// g}  -,1 7-,-,1 $-,2@ 2{z Zi*g}-, g{-, d-,-,1 $-,`@-,1 $-, ,&,8@  g~`?3-,K< -,2@# 1 $-,[4B,`1\-,1 $-,-,1  0-,,X-, $p-,7,X @0-,3-, $;-,@ 7@g~+< pˀ z 0y74u-,-, ` gz-,?z !a-,Zg~[-,2@a  -,-,1`y "*gz -,1 $-,-,1 $*gz@aA,X-,,X-, g}-,2AH!z Pz-, C-, @`",,xb "#oxd_xOc_ O|qG y'b@LGS.) %+/_yex@|Pb~LOxwc|P`.].Wx'a?0xSI:PRINLEVEL-EXCESS!7"x#""ExSI:PRINLENGTH-EXCESS!7#xW*U*U...##GxPRINLEVELCLASS-OFSI:PRINT-EXTEND-MAKNUMSI:LISTIFY-STRUCT-FOR-PRINTTYOPRINT-OBJECTU(!PRINLENGTH}:PRINT-SELF->STRUCT-CLASSs:p7B$` p3.@@` ,^,8,8",8g~",<+ g~`I[ ; g~ g}@0%` $A8 g~: ``3 g}aK,8,<7@``13+p ,p,8,8g|",oM ,u,8` 3,8g{",<'@O+~ p3.+~ ,8,8 ,8g|11",oM ,8,8#,8g|",<` pˀ3Z` D` Np+k/  ,8,8g}",oM/0 ",xs0 &".U.U&(P0ADD-METHOD:PRINT-SELFSTRUCT-CLASS)SQ*xMNU*U*UOUTFILESGRCHRCTGFLATSIZE*PRIN1*TYOLLINEGRINDFORMCODEUD INDENT-TOSPRINT->STRUCT-CLASS-,Up+`I[C 1 ;#W%+,0 &3aK `A g80,  ``Y p@b3n`9 g}-`W`-[`-Z` d U "&`[, B+Uˀ-,b!CUZ`-,.7B.+*]/!H$1_/7B.`I +0`I,!A@`0 "(`[/+s0 ]:U P ( SPRINT)1a*xSUPPRESSED-COMPONENT-NAMESconstant-p|*EVAL,8 ` c,< "@@u/.-,@-,k`s ``?+].. g-,0[Z[Z [ (,8,8@0A ?*Z[+C "@0 ` g~..-,3a 5JK7@``2  4BO`e `@ "  AZs+Vas0D+VAs[D `@ g~-, ` Bg~ -, Bg~/ˀ Np "p``K`m,xqX[UASI:COMPONENT-EQUALEQUAL->STRUCT-CLASS g2B`` " ``=@ `=3`p` "``0+i g g~3/,x_*@8P _)@g*xSI:SUBST-INTO-EXTENDSUBST->STRUCT-CLASS,X/kU* &4HP(SUBST)5i*xzSI:HASH-Q-EXTENDSXHASH->STRUCT-CLASS kujU/$6hP`mSXHASH)7m*xSI:DESCRIBE-MAX-LEVEL~%~vTThe nU*U*wamed structure has STRUCT-TYPEP ~S 8q9s:u;w< pyyxu*U*Uy x~%~vtThese component names areressed: ~Sw:U*U ={>}?,@ pAAxA xThe ~D. cont names and contentW;U*U: =BOCDpEExE x ~S: ~S ~:[~; [default]~W;U*U] =FGHpx x&REST part hasn't been De!scribed. =IJKLpx xDESCRIBE->STRUCT-CLASS `[o+<A`= ;4B;@@ u/.-,,< c1 gA g~8 ,83{,8g|,8g|",<L7@``  ,8@13,8>,8g|,8g~",<L ,83},8g| *p",<L ,8?,8K`i.. g~-,[Z[Z [ (@ ..g-, ?Z[@4BZ[8 8+..1 gz-,5J4B( g24B!@b g`e `@5B(7Bg " Z2s+)[g0D+)Zg[ `P@4B) *  a,8,8gz3 ..g|-,[33A@",<Lˀ@@` Np "pA@+ / g@4B: ,:,8@3,8@,8g|K<L`"/`y "/,xyA".xEqPP (oDESCRIBE)M*x;