;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading BITS 46pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071BITS46VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-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 46! !"" #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+A@ "w+-, B`+ `(N{ 80an+ `4. 2nw+ 3np+ ,,8,8.,8g,8.",<A * B`@ Jg+| `0n+ ` g g~0,< (p ` g~ g}= g}-,/+( &A g g~,< (p ` &A g~ g}= `/. Nw| "w| g~.. Nw} *w} g.. Nw} (w} B` Hg `0 Jg~/+//-,0 "//,x  " :W  @@HBCARGSB0C x@`-0,<,<,8 Z(,8Z(,8 g1n+6Z(+6  ".,81n+9Z(+9 ",8!!,81n+< ( Hg7D.+N (. H/ ,D,8,8g},8g~,8,8q,8r,8 !,8g|",</,8 /0.+G "00!H *. J/ 1 1 * Fg & $+ g~ Hg~ Jg5 Bg~,Xg} g~1Ng". g.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~P @=+g "+m (w~ &A $w g~=0 p/. 0.pw Np+a/ g~@`0-,/,//0.W,x @B/B0C x#-MACRO-DATALIST Dxu*HC]DDx"#-BS-READER#-MACRO-" &D $C&EX*rYU*U*W82NULLASSOCREADTABLECDRSHARPMMACROF F FD GGHD "HD FHI I JE xU*U*W^*TYI#" string does not end with " KLLMMNpw*U*UNNxN xLENGTHNREVERSEREPLACEDigit too big for #"W;U  PQQRRpSSxS xASCII#-#B-READER,8,<,< $ "0J,<K,8 ,8K  B` Nw1.+~0n +~"..nw+1. +0n=+".@ .nw+1.0+0n=+".+.nw+D1N+ , ,8,8!",<A ,,8@ gO,< "p6,8 g~O,8AB",<P/+ 3.p+ ,,8 @0,8"S,8",<A g-,,8@ `4N wA. g-, -, w(N `/0 Pw *w Bg J` Nw `0+/+y//,x"/U*NS @*t$EE%EI%xPRINLENGTHSI:NORMALIZE-STREAM:PRINT-SELF->BITS-CLASS,<@! g~[,8,87DT+, $. 3p+, $. Np "p * B`  Jg g~U Bg~b<,< p2/``+6 $p g} 5N4 g~j<+5@ ` g~j=:p+./7@g+8 g~ @0j= g~j>/ " //0],x#B"01..." XB@0"ADD-METHODW*@4:PRINT-SELFVVU!xFirst OBJ not a BITS? - EQUAL->BITS-CLASSEQUAL->BITS-CLASS g*1B +D ,C@,8,8],8g~",<A+\ `*0B g " 4B\ g[ `[ (,<(,< p3Nw+L "+\ . Nw,< p3.w+P " +[..3nw+S w0/p Nw &w $p g &w $p `@ ,<,\2N+[ ..np+N "@`%///,xW xB >W*@`0EQUALVXW!x!$j)@SXHASH->BITS-CLASS,<,< gD [,8q,8r,8r,8 g~3/`+d g +p..3o`+h `/g~ Nw "w Bg` g g~ g} g(0F-,  g~.. Np *p Bg Jg~+b/KW/,x.AX B`^SXHASHVYY!xU( 1PURCOPYPURCOPY->OBJECT-CLASSPURCOPY->BITS-CLASS gZ #-, B# G>U $Z g/$Z 0B`sVZ[!xSI:DESCRIBE-MAX-LEVEL~%~vTU*U*wThe BITString ~S has ~D elements.\\]]^^__p``xu(` xFORMATDESCRIBE->BITS-CLASS `2o[+ g~*0B @+ ,,8,8g,8,8g~,8g| g|[ (,8",<`+ "/,x`]:U*U B (wDESCRIBEVaa!xARRAYDIMSLISTARRAYARRAYFILLARRAYSI:EXTENDMACROEXPANDPUSERATOMS-HOOK->BITS-CLASS g[ 4n gZb,8 , ,8 g~Z,8",<b[`Z` 2[*,8-,,X-, $ 2-, $c-,*-, $@ -,-, $-, $c-,0(/+ " g[ (*-,0H  $(-, $!-, $d-,1A@`]d-,/,x PB`USERATOMS-HOOKw@Vee!x;