;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading VECTOR 72pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPVECTOR72U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xGETEXTENDU+U*WLOADLISPFASL xANDFBOUNDPSPECIALVECTOR-CLASSxU+U*WFLUSH-MACROMEMOSAUTOLOADDEFMAXxBOUNDPLOOP-PATH-KEYWORD-ALISTforget-macromemos|LOOPxU*U*UCONSVECTOR-ELEMENTSI:LOOP-SEQUENCE-ELEMENTS-PATHOFFROMTOBELOWABOVEDOWNTOU*U*uINBYVREFVECTOR-LENGTHNOTYPEDELQASSQ xVECTOR-ELEMENTSu*F@    xPTR-TYPEPVECTORPSUBR 0B g " ,x]*U*U!FEATURECOMPLRDEFCOMPLRMACEVALDEFMACROVNLISTW*U*USI:XREF"" ##$$%%&$%x*RSET*:ARNSI:CHECK-SUBSEQUENCERSI:CHECK-MULTIPLICITIESU!*:AR2*:AR3,8,87F&+,8 *' J( , ,8,8,8,8g~,8,8,8,8@@",<(,8 (0.+ ")) *'` J( * *,Xg~/ H` ..` " g-,/,x' "/T X!xVREF SETF-X-ACCESS,8[*,8 0-,,X-, $-,/0.T,x0! VSETVREF SETF-X-INVERT[ "-,d $ -, $-, $+-,j] ,x@!(VREF SETF-XSETF-X,-xSETF-STRUCT,8-,[Z[Z [ (*,8-,D $ -,,X* & $, "+/1nU`*-H!"VALSI:XSET""+ ##$+$%.%.$%.x,8,8,8E7H&+;,8@ *' J( ,5,8,8,8D",8g~,8A,8A,8B,8B",<(,8 (Ph"0.+8 ")) *' J( * *,Xg~0/ Hg ..g,X-, $`2 g-, g/+'"*W  8! +MAKE-VECTORLIST*SI:MAKE-EXTEND""/ ##$/%/0%xU*@!"SI:MAX-EXTEND-SIZEPSI:CHECK-TYPERMAKHUNK**SELF-EVAL**,87D&+F &/ $01 B` `..,< "p1 XJ @`] (2QH//,xp!C&RESTW(  SI:EXTEND"" ##$ 2/3xLSUBR-0,87D&+P & !@ $01 B` `..,< "p1  0XJ (2QH/,8,< p@2/g+^.. p.0.Z@ "`-,* `-,:p+V/0A:u,X/,x@3LSI:EXTEND-LENGTH"" ##$$%4$xHUNKSIZE0,87D&+c & $!1 B`,X4*/.-, ,x`!`SET-VECTOR-LENGTH,<!,<,8,87F&+v,8 *' J( ,p,8,8,8g,8,8,8,8,8@@",<(,8 (0.+s ")) *'` J( * *,Xg~/ F` g4 /. 0.`Z Nw *w Pp (p,8,8,8 g2o`+ g g~ g-,0A@+}/ g-,/D"/,x' 5 5] P!f&restv-ify|,<,8 p5. ./np + * J`..,< "p1 XJ @ (2QH/,87@g+ .+ /p..,8,<,< w@2.w+.. w.p.Z@ "`-,* `-,:w+/0@`],X//,x`!*READU*U.wLASTNot a proper list for #(78899p::x: xU(ERRORLENGTH#-MACRO-(,86,86@g+(4B$ 0(B{6 +( `7Z Bg4B-"(B{7 +- ,-,8,8= g-,0@ g~-,,8",<: `;d..,< "p1 XJ (2QH/0@`,8,<,87@g+:[g ..p $ B` g-,:pZgA@` Bg+4//,X/.]jW,x:8!#-MACRO-DATALIST""<x<<xMACRO < =; <xU:]*UDOVECTORMACROEXPANDED=>xDOVECTOR MACRO=>=xMACROFETCHWrong number args for macroGENTEMP:LOCAL-VARU*U*P1+=FIXNUMDECLARE*NCONCDOLETMACROMEMO,8@`?5B `;0.+D ,D,8,8 ,8g",<:Z`Z[[Z [(Z([,8,8,8,85FM ,@"`4 &@ $ Bg ,@ &@ $ ,8  ,@ &@ $ ,8 g}-,0@` g-,-,,8 g~-,2@d $A-,-, $'-, g~-,,8 g~-,,8 g~ -, $-,-, g~-,0`-,,X-,,X-,@ ,8 g-, g}-, $A-,0`-,*g-, g}-,  @0 $B-,-, $B-,,8@ 7@g}+v g}4Np(N{ 8an+vd g}-, g~-, $-, @0-, g}-, $-,-,0P0+w " g|C,X-, g @0-,,X-, $C-,-,0H,X-, $D-,/ ``% &= $ `D/,x?h!=W(0MACAID@@@ExVECTOR-POSASSQ,8,8 "-,,8@4/.,<,<,8 w3Np +.. g-, B`7@ " (B{ Z0B%+[`2Dg~+ w-,0@( +:w+ "//.T+X!EQUALSI:COMPONENT-EQUAL,8,84/.  `,<4/.,<2Nw+$,< p2Nw+ " +#.. g-,` ..p,8 g-,,XF4B#P :p+ "/+% "/u*/,xh!CLASS-OFSUBSTSI:SUBST-INTO-EXTEND,8,8@,84/.,<..,< "p1,8A0 g~GXC` "2QC`,X/,<0,8 p2Nw+3 `+;.. 0`.p g~,< -, & g g`G $ `,\-,:p+0/0*/,x ! &EQUAL->VECTOR-CLASS+INTERNAL-LOSSAGE g!5BA g $H "!I+D `!4BD W ` gF/,x 3 =ADD-METHODIFHxPc_SUBST->VECTOR-CLASS,X,X g/&H 3 (EIGJxW:].WVECTOR-PRINLENGTH""JxJJxSI:PRINLEVEL-EXCESS""Kx#KKKxSI:PRINLENGTH-EXCESS""LxW*U*U...LLLxSI:NORMALIZE-STREAMPRINLEVELTYOPRINLENGTHPRINT-OBJECTP`:PRINT-SELF->VECTOR-CLASS,=g g~4/.:p g,<M( Bg p5NNbr " +q7DM+T wD3.+T ,T,8,8K,8",<+q bs,<,8 p3Nw+m7@`@  +\ ,[,8,8s,8g}",<N+] *  J`7BJ+_ 3np+b7DO+e D2np+e ,e,8,8L,8g}",<+m ,l,8 ..p g}-,,8 *w,8,8g~,8g|",<O:p+V// ,q,8,8t,8g~",<N/0%/,x#()#(NP 3@0GW*T:PRINT-SELFIQPxFLATSIZE-OBJECTFLATSIZE->VECTOR-CLASS,< g~4/.-, ,87@g+{ g.. Np( "p Bg `5N} "Q+7@g+7BM(+ g3.+ "'+7@g~+ ,,8 g}Z,8,8g},8g},8g}",<RB ..-, + `/.,<,<@  p5. w-, +/.,< ,`,8 ..w g}-,,8,8g},8g} ,8g}",<R w...,\ Nw Pp + /-,//.]*U,x (3@0tFLATSIZEISRxTO-LISTGRCHRCTSPRINT1SPRINT->VECTOR-CLASS@"A g~4/.5N`& " +% ,!,8 0,8g~",<S`& Bg~T ` $ g~ WT/,x#()# P3 (SPRINTIUUxU`GFLATSIZEGFLATSIZE->VECTOR-CLASS g4/.-, ,<7,<0 ,8 p2O`+/ `5N. "Q+/ .w-, +6.. 0.p g,<` -,V .nw,\ Np+*@ u//,x h3`'IVVxSQUIDU) SXHASHSI:HASH-Q-EXTENDSXHASH->VECTOR-CLASSW 0z g/$X 3`8u*U*UIWXxSI:DESCRIBE-MAX-LEVEL~%~vTThe vector ~S has ~D elements.w:TYZZ[[\\p]]x] xFORMATDESCRIBE->VECTOR-CLASS `2oY+E g~D!4BE ,D,8,8g,8F,8g~,8g| g|4/.,< *p,8",<]/ @KW+E "/,x] `3 (:DESCRIBEI^^xW<SSTATUS _ %!!!!x;