;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading BITS 45pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPBITS45U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xGETEXTENDU+U*ULOADLISPFASL xFEATURECOMPLR*LEXPRBITS-FILLBITS-REPLACEU*]*UFIXNUMNIBBLENOTYPENIBBLE-2CxANDBOUNDPLOOP-PATH-KEYWORD-ALISTforget-macromemos|W*U*ULOOPxCONSBITSI:LOOP-SEQUENCE-ELEMENTS-PATHOFFROMTOBELOWU*U*wABOVEDOWNTOINBYBITS-LENGTHDELQASSQ  x    xU:U*uSPECIALBITS-CLASS !xSI:DEFCLASS*-1LISTSEQUENCE-CLASSDSK:LSPSRC;BITS 45! !"" #xPROTECTED-BITSTRING-ARRAYSw*U.U #x##xFBOUNDPFLUSH-MACROMEMOSAUTOLOADDEFMAX$$$%$%%xTO-BITSUBSEQu*U*W$&&%&&%xBITSPDEFCOMPLRMACEVALDEFMACROLIST*EQPTR-TYPEP' '(('))"* xQP USUBR*0B g " ,xp**:TRUTHBITP@,8(B{ an+ `4N=NA:U7+ "/,x8*BIT1PI=W , '((,,)-",-x 0Ng " ,x@*U*U*P*RSET*:ARNSI:CHECK-SUBSEQUENCERSI:CHECK-MULTIPLICITIES*:AR2*:AR3,8(!,87F.+,8" *. J/ ,,8,8",8,8g~,8",8#,8#,8$",</,8B /0.+ "00 *. J/ 1 1,Xg~/ H` gZ `&. 0 `&0 0/(N@A.-, /0D_,x-   * xPBIT SETF-X-ACCESS,8[*,8-,,X-,0@`] $-,/,x * $RPLACBITP 0BIT SETF-X-INVERT[ "-, $ -, $ U-, $2-,,x0*(*BIT SETF-XSETF-Xu 34xSETF-STRUCT,8-,[Z[Z  0[ (*,8-, $ -,,Xc]* & $3 "2/*48*/FIXNUMPU@SI:CHECK-TYPERDEPOSIT-BYTE,<,8,8,87H.+K  ,8Y *. J/ ,B,8,8,8,8g~,8ZD,8Z,8[,8[",</,8 /0.+E!PD$ "00 *. J/ 1 1 &2 $5 g@ Hg~5,Xg~/ B` gZ g&. Np *p,8 (  g&0 g  &-,< $p,< "p,86 g ` * Q g~-,//KU,x- 2 (* 8MAKE-BITSSI:NON-NEG-FIXNUMPUBD*ARRAY**SELF-EVAL**,87D.+_ &6 $75 B` ..&.,<0.+c . Np ,g ,8,8,8l *p,8",<7 !@0*`-, &,X "8-,/0u*p,xh*\SEQSUBSTSI:XREF '((898898-x,8Q7D.+p & $'5 B`,X[,x_(p*lxBITS-LENGTH SETF-X-ACCESS,8[*,8-, U,X-,/,x *qSET-BITS-LENGTHBITS-LENGTH SETF-X-INVERT@ [ "-, $-, $:-,0.\0,x0* vBITS-LENGTH SETF-X;4x,8-,[`Z[*,8-,,X ( &"G0 $; ":/*48*z,8,87F.PB+,8 *. J/ , ,8,8,8g,8D 0,8,8,8,8",</,8 /0. "+ "00 *. J/ 1 1,Xg~/0  F` `-, gQB(*g/0D%+. : (*P SI:NIBBLE-COUNTP,8(B{ an+ `4.AA 1n+g " + "+ "/0, ,x@*,8,<,<BB,<,<,87H.+4 *. J/ ,+,8,8 *p,8 *w,8,8Q,8Q,8R,8R@@",</,8 /0.+. "00 *.  J/ 1 1 & $< Pw "w Np5  Nw,Xg p&.,\&0,XZ,4x,8-,[Z[Z [(Z([*,8 0-, $-, $ -,,Xc_* & $= "/*4x*,8,8(!,8,87J.+ *. J/ ,,8,8",8,8,8A,8A,8B,8B",</,8B /0.+ "00 *. J/ 1 10 Fg &= $5 g Hg~5 Bg,Xg~ g&. g&0 g~Z,=g,=`,8 ,<,8,<,<.g~1r+, * ./p g~/ 2/ Nw~ g(NH Jg Nw~ Pw w~/."0(P8 w ,< w(PHD gAp(PHG/0 ` w* Q7@g+> w/."0(P8 w.. ` (DAw~G0 w.0 `* Q g}-,/0D%/,x = P*( U*TBad repetition-count argumentWRNG-TYPE-ARGERRORLSUBR-0-,~,8 Z(,8Z(,8 g1n+IZ(+J ".,81n+LZ(+M  ".,81n+OZ(+P ",8!,81n+S ( Hg7D.+|-,H ,8 g-, (. H/,8 ,],8",8g|,8g|,8g~,8+,8+,8,,8g{",</(4,8 /0.+` "00 *. J/ 1 1 *. J/ Fg Hg} ,i,8,8g|,8g|D ,8g~,8,,8-,8-,8gz",</,8 /Ph"0.+l "00 *. J/ 1 1 Fg Hg}7@g}+v g~2Og~+s3N+v g~@2.+u7g~ " Bg~+z g~2.+x7g~ " * Bg~ Jg},Xg|,Xg|/-,~ g}[  Nw~/g~ g~[ Nw  Nw/g Np6@g+3nw+@ "w+ "p B`+ `(N{ 8@ an+ `4. 2nw+ 3np+ ,@ 4,8,8.,8g,8.",<A * B` Jg +| `0n+ ` g g~,<0 (p ` g~ g}= g}-,/0P0+( &A g g~,< (p &A g~ g}= `/. Nw| "w| g~.. Nw} *w} g.. Nw} (w} B` Hg Jg~ /+//-,@D"//,x  "*p @@HBCARGSB0C x-00 0,<,<,8 Z( ,8Z(,8 g1n+6Z(+6 ".@0,81n+9Z(+9 ",8,8P1n+< ( Hg7D.+N (. H/ ,D0,8,8g},8g~,8,8q,8r,8,8g|@@",</,8 /0.+G "00 *. D J/ 1 1 * Fg & $+ g~ Hg~@ Jg5 Bg~,Xg} g~1Ng". gb.0&0$0/g-,.,<,<@3q`+V ` Np p4N_ (w &p g@ g~= `/p Nw~ "w~ g.p Nw *w B` Jg `&.,=g,< p5Nh  `&. Pw4Pg (w~ &w $w g~= +g "+m (w~ &A $w g~= p/. 0.pw Np+a/ g~-,0 /,//uju,x @B/B0C x#-MACRO-DATALISTDDx"U:W#-BS-READER#-MACRO-" &D $C&EX*rMACRO F FE DxU*U*W^*TYI#" string does not end with " HHIIJJpw*U*UKKxK xLENGTHNREVERSEREPLACEDigit too big for #"W;U  MMNNOpOOxO xASCII#-#B-READER,8,<,< $ "0G,<G,8 ,8G  B` Nw1.+~0n +~"..nw+1. +0n=+".@ .nw+1.0+0n=+".+.nw+D1N+ , ,8,8!",<A ,,8@ gK,< "p6,8 g~L,8AB",<L/+ 3.p+ ,,8 @0,8"P,8",<A g-,,8@ `4N wA. g-, -, w(N `/0 Pw *w Bg J` Nw `0+/+y//,x".]*PKO *tSHARPM$EE%EQ%xPRINLENGTHSI:NORMALIZE-STREAM:PRINT-SELF->BITS-CLASS,<0  g~[,8,87DQ+,  $. 3p+, $. Np "p * `0 B` Jg g~R Bg~b<,< p@2/`+6 $p g} 5N4 g~j<+5 g~j=:p+./7@g+8@ d g~j= g~j>/ " //,x#B"01..." (B@0"U:T ADD-METHOD:PRINT-SELFSSR!xFirst OBJ not a BITS? - EQUAL->BITS-CLASSEQUAL->BITS-CLASS g*1B +D1 ,C,8,8],8g~",<A+\ `*  0B g " 4B\ g[ `[ (,<((,< p3Nw+L "+\ . Nw,<0( p3.w+P " +[..3nw+S w/p Nw &w $p g &w $p  `,<,\2N+[ ..np+N   "///,xT]:T HB >EQUALSUT!x!$j)@SXHASH->BITS-CLASS,<,<" g[,8q,8r,8r,8 g~3/`+d@ g+p..3o`+h `/g~ Nw "w Bg g g~ g} g(0F-,0 g~.. Np *p Bg Jg~+b/0D]/,x.AU `B`^SXHASHu*@SVV!xPURCOPYPURCOPY->OBJECT-CLASSPURCOPY->BITS-CLASS gZ #-, ;u B# $W g/$W B`sSWX!xSI:DESCRIBE-MAX-LEVELU*U*W~%~vTThe BITString ~S has ~D elements.YYZZ[[\\pw*@!]]x] xFORMATDESCRIBE->BITS-CLASS `2oX+ g~* D0B + ,,8,8g,8,8g~,8g| g|b@0[,8",<]+ "/,x%kU*U] `B (wDESCRIBES^^!xARRAYDIMSLISTARRAYARRAYFILLARRAYSI:EXTENDUMACROEXPANDUSERATOMS-HOOK->BITS-CLASS g[ 4n gZ_@,8 , ,8 g~Z,8",<_[``Z`[*,8-,,X-, ` $-, $`-,*-,  2 $-,-, $-, $`B@-,/+ " g[ (* @2-, $(-, $!-, $a -,a-,/,x B`W<USERATOMS-HOOKSbb!x;