;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading VECTOR 74pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071VECTOR74VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xGETEXTENDU+U*ULOADLISPFASL xFEATURECOMPLRSPECIALVECTOR-CLASS*LEXPRW*U.UMAKE-VECTORxFBOUNDPFLUSH-MACROMEMOSAUTOLOADDEFMAXxANDBOUNDPU+U*ULOOP-PATH-KEYWORD-ALISTforget-macromemos|LOOPxCONSVECTOR-ELEMENTSI:LOOP-SEQUENCE-ELEMENTS-PATHOFFROMU*U*UTOBELOWABOVEDOWNTOINBYVREFVECTOR-LENGTHNOTYPEU:]*UDELQASSQ !!xVECTOR-ELEMENTS" !!"xLENGTHSI:MAKE-EXTENDVSETSI:XREFU*U*PSI:XSETSI:EXTENDSI:EXTEND-LENGTH*:AR2*:ARNSI:VECTOR-SRCTRNSSUBR,800 ,8[0D+ "0N+z =FH Z`[-, $#-, * B`P( Jg+1D+ 0D#+1D7 "$ Z`-, * B` Jg+0D +H Z "-, $%-, * B`P @2 Jg+0D +Z "%-, * H  B` Jg g J& (& H',X-,*U/,x$x(YMAPCMEMQSOURCE-TRANSW*FPUTPROP())'(**'(* #xCLASS-OFVECTORP+[0B g " jU*P,x8(*RSETSI:CHECK-SUBSEQUENCERSI:CHECK-MULTIPLICITIES*:AR3,8(!,87F,+0,83 *, J' ,),8,8",8,8g~,83,84,84,85",<-,8B '0.+, "-. *, J' & .,Xg~/ H` ..` g-,D%/,x&  x( u0xVREF SETF-X-ACCESS,8[*,8-,,X -, $-,/,xp( 5P 0VREF SETF-X-INVERT[ "-, $ -, $ U-, $#-,,xx((;VREF SETF-XSETF-Xu 00xSETF-STRUCT,8-,[Z[Z  0[ (*,8-, $ -,,XcX* & $/ "//*1(@,8"B,8,87H,+Y,8^ *, J' ,S,8",8,8,8g~,8_,8_,8`,8`",<-(4,8 '0.+V "-. *, J' &@ .,Xg~/ Hg ..g,X-,0 0 $ g-, g/+2KU&  8( ISI:MAX-EXTEND-SIZEPSI:CHECK-TYPERU( 0MAKHUNK**SELF-EVAL**LSUBR-0,8 Z( ,8 g1n+fZ(+f ",87D, 0+j & $1 g2 Bg,< gd..,< "p2 XJ (3QH/0",87@g+z,8| `3/g~+t+z@0.. g-, $ g-, `.. Np "p B`+r/,X/0 :p/,x,P3aARGS4&- x-00(C,87D,+ & $12 B` `d..,< "p2 XJ (3QH/0@,8,< p2/g+.. p.0.Z@ "-,* ` `-,:p+/,X/h!,x83}HUNKSIZE,87D,+ & $+2 `] B`,X4/.-, ,x(SET-VECTOR-LENGTHP ,<,<,8,87F,+'  ,84 *, J' , ,8,8,8g,8,85D,85,86,86",<-,8 '0.+#!PD  "-. *, J' & .,Xg~/  F` g4/. 0.`Z7 Nw *w Pp (p,8,8,8 g2o`+1 gB g~ g-,+-/ g-,0 "//,x, 5"t0 5P(&restv-ify|,<,8 p(5.; ./np+< * J`..,< "p2 XJ (3QH/,87@g +C .+D /p..,8,<0,< w2.w+M.. w.p.0 Z@ "-,* `-,A@:w+F/,X//jU*U,x`(7*READLASTNot a proper list for #(w:T78899p::x: xERROR#-MACRO-(,86,86@g@ +X4BT(B{6 +X `7Z@  Bg4B](B{7 +] ,],8,8m` g-, g~-,,8",<:@2 `"..,< "p2 XJ (3`0QH/,8,<,87@g+k[g ..p $ B` g-, `0:pZg Bg+d//,X.u/,x:0(P#-MACRO-DATALIST;x;;x82U*U*WNULLASSOCREADTABLELISTCDRSHARPMMACRO( < (; <==; >=; (>? ? @; xU:]*UDOVECTORMACROEXPANDED@AxDOVECTOR MACRO@A@xMACROFETCHWrong number args for macroGENTEMP:LOCAL-VARU*U*P1+=FIXNUMDECLARE*NCONCDOLETMACROMEMO,8@`B5B1 `"0.+t ,t,8,82 ,8g",<:Z`Z[[Z [(Z([,8,8,8,85F~ ,C"`4 &C $ Bg* ,C &C $ ,8 * ,C &C $ ,8* g}-,0@` g-,-,,8 g~-,2@d $D-,-, $,-, g~-,,8 g~-,,8 g~ -, $ -,-, g~-,0`-,,X-,,X-,@ ,8 g-, g}-, $D-,0`-,*g-, g}-,  @0 $E-,-, $E-,,8@ 7@g}+' g}4N (N{ 8an+'d g}-, g~-, $-, @0-, g}-, $-,-,0P0+' " g|F,X-, g @0-,,X-, $F-,-,0H,X-, $G-,/ ``% &@ $ `G/,xB(nW(0MACAIDCCCHxVECTOR-POSASSQ,8,8 "-,,8@4/.,<,<,8 w3Np +B.. g-, B`7@ " (B{ Z0B>+A[`2Dg~+A w-,0@( +C:w+8 "//.T+ (3EQUALSI:COMPONENT-EQUAL,8,84/.  `,<4/.,<2Nw+U,< p2Nw+M " +T.. g-,` ..p,8 g-,,XI4BSP :p+J "/+U "/u /,x (DSUBSTSI:SUBST-INTO-EXTEND,8,8,84/.,<..,< "p2,8 g~+XC` "3QC`,X/,< ,8 p2Nw+c `+l.. 0.p  g~,< -, & g gJ  $ `,\-,:p+a/u /,x (( WEQUAL->VECTOR-CLASS+INTERNAL-LOSSAGE g+5Bqb g $K "+K+t `+4Bt `AA:u gI/,x 03 mADD-METHODLIKxSUBST->VECTOR-CLASS ;u,X,X g/&J H3 (uLJLxVECTOR-PRINLENGTHw+UjuMxMMxSI:PRINLEVEL-EXCESSMx#MMNxSI:PRINLENGTH-EXCESSNx...u*U*UNNOxSI:NORMALIZE-STREAMPRINLEVELTYOPRINLENGTHPRINT-OBJECT:PRINT-SELF->VECTOR-CLASS ,=g g~4/.:p g,<O BgE! p5Nb# " +!7DP+ w3.@@+ ,,8,8M,8",<+!b#@,<,8 p3Nw+7@`+ 1 , ,8,8$,8g}",<Q+ * J`@!7BM+ 3np+7DQ+ 2np@@+ ,,8,8N,8g}",<+ ,`,8 ..p g}-,,8 *w,8`0,8g~,8g|",<R:p+//0@  ,!,8,8$,8g~",<Q/D]/,x#()#(PR 03@0x:PRINT-SELFu*@`LSSxFLATSIZE-OBJECTFLATSIZE->VECTOR-CLASS,< g~4/.-, ,87@g++ g.. Np "p Bg `5N- "T+J7@g+27BP+2 g3.+2 "&+J7@g~+: ,8,8 g}Z,8,8g},8g},8g}",<T . .-, +J `/.,<K,< pB5.> w-, +I/.,< ,E,8 ..w g}-,,8,8g},8g},8g}@",<T w...,\ Nw Pp+<@`0/-,//,xkU*P P3@0%FLATSIZELUUxTO-LISTGRCHRCTSPRINT1SPRINT->VECTOR-CLASS g~(4/.5NO`V " +U ,R,8,8g~D",<V`W Bg~V ` $ g~W:u/,x#()# x3 (LSPRINTLXWxGFLATSIZEP aGFLATSIZE->VECTOR-CLASS g4/.-, ,<h,< ,8 p2O`+` `5N^ "T+_.w-, +f.. 0.p g,<  -,X .nw,\ Np+[/0>U/,x 3`WLXYxSQUIDSXHASHUc_SI:HASH-Q-EXTENDSXHASH->VECTOR-CLASSZ 0z g/$Z 03`hLZ[xU*U*WSI:DESCRIBE-MAX-LEVEL~%~vTThe vector ~S has ~D elements.\\]]^^_pw*@!__x_ xFORMATDESCRIBE->VECTOR-CLASS `2o[+u g~+@4Bu ,t,8,8g,8w,8g~,8g| g|400/.,< *p,8",<`/+v  :u "/,x_ 3 (jDESCRIBELa`xSSTATUSw@ a >+( ((x;