; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading BITS 45   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071BITS45VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xGETEXTENDU+U*ULOADLISPFASL!#!xFEATURECOMPLR*LEXPRBITS-FILLBITS-REPLACEU*]*UFIXNUMNIBBLENOTYPENIBBLE-2C%')+-xANDBOUNDPLOOP-PATH-KEYWORD-ALISTforget-macromemos|W*U*ULOOP/1xCONSBITSI:LOOP-SEQUENCE-ELEMENTS-PATHOFFROMTOBELOWU*U*wABOVEDOWNTOINBYBITS-LENGTHDELQASSQ3579;=? x3579;=? xU:U*uSPECIALBITS-CLASS%A!xSI:DEFCLASS*-1LISTSEQUENCE-CLASSDSK:LSPSRC;BITS 45C!"E#xPROTECTED-BITSTRING-ARRAYSw*U.U%AGx/GGxFBOUNDPFLUSH-MACROMEMOSAUTOLOADDEFMAX$II%I#K%xTO-BITSUBSEQu*U*W$&&%&#M%xBITSPDEFCOMPLRMACEVALDEFMACROLIST*EQPTR-TYPEP%' O(Q')S"*xQP USUBR* " ,x8U*:TRUTHBITP` an+ ` =NA:U7+ ",x\UBIT1PI= %, O(Q,Y)-"Y[x  " ,x`U U*U*P*RSET*:ARNSI:CHECK-SUBSEQUENCERSI:CHECK-MULTIPLICITIES*:AR2*:AR3(!,87F.+,8" ] J/ ),8",83E,8#G,8$Ko_B /0.`/ "0`a ] J/ 1c3 H`@ `&.0 `&0 0 (N@+-,/0D_,x[ U 1xPBIT SETF-X-ACCESS`@,8-,,X-,0@`]7 $-,,xUIRPLACBITP 0BIT SETF-X-INVERT` "-, $ -,7 $ U-,7 e-,,xU(*BIT SETF-XSETF-Xu g4xSETF-STRUCT-,[Z[Z  0[ (@,8-,1 $ -,c]B & $3 "2jiU/FIXNUMP`!SI:CHECK-TYPERDEPOSIT-BYTE,<,87H.`B ] J/ ,8,83,8Z,8[Ko_ /0.`!PD$ "0`a ] J/ 1c e $5 g@ 3ak,Xg~ B` g@&. Np *p ( g&03  [ $p "p6 ` DD g~-,KU,x[e UqMAKE-BITSSI:NON-NEG-FIXNUMPUBD*ARRAY**SELF-EVAL**7D.` m $7ak B` ˀ#&. `  Np  ,8,8,8l *pKoo !@0*`-, &,X "8-,50u*p,xU\SEQSUBSTSI:XREF% O(Qq9qqsq[xQ7D.+p & $'ak B``,x_(U1xBITS-LENGTH SETF-X-ACCESS`*,8-, U,X-,,xU SET-BITS-LENGTHBITS-LENGTH SETF-X-INVERT@ ` "-, $-,7 u-,0.\0,xU vBITS-LENGTH SETF-Xw4x-,[`Z[@,8-,1 ( &"G0 $; ":jiUz,87F.PB+) ] J/ ,8,8g,8D 0,8+,8-Ko_ /0. "` "0`a ] J/ 1c30  F` `-,0@/DDK+ ]u U SI:NIBBLE-COUNTP an+ `4.AA 1n+ " `= "`= "0, ,xU,8,<,<BB,<,<7H.`i ] J/ ,+,8 *p ,8Q,8R@@Ko_ /0.+. "0`a ]"D J/ 1@c + $<; Npak 3 p&.,\&0@,4x-,[Z[Z [(Z([@,8 0-,1 $-, $ -,c_B & {yjiU1xPNIBBLE-2C SETF-X-ACCESS`*,8-, $-,0@7,X-,7 $ -,h,xU(sNIBBLE-2C SETF-X-INVERT` "-, $(-,0@ 7 $ -,7 $-,7 $=-,0.\0,xUNIBBLE-2C SETF-X-4x-,[Z[Z [(Z([@,8-,0@1 $-, $ -,B" ; & $?}jiU,8(!,87J.`; ] J/ ),8",8,8A,8BKo_B /0.`/ "0`a ] J/ 1c0 Fg &= $53ak,Xg~ g&. g&0@s,=`,8 ,< 1r+, * ./ps 2 Nw~ g(NH Pw w~/.L(P8,<(PHD gAp(PHG0 `;DD3`} w/.L(P8ˀ `D$;G0; `DD-,DK/,x= U( U*TBad repetition-count argumentWRNG-TYPE-ARGERRORLSUBR-0 @Z( g1n@`@+J];`Z(+M ]1n`@+P ",8!1n+S ( 37D.+|-,H -, ] H/ ,],8,8g|3,8g~,8+W,8,,8g{Ko_(4 /0.+` "0`a ] J/ 1c ] J/ Fg Hg} ,8,8g|3D ,8g~Y,8-[3Ko_ /Ph"0.` "0`a ] J/ 1c Fg Hg}3` g~S+s3N+v2.+u " Bg~`2.` " * Bg~,Xg|,Xg|/-,~`  g~`  Nw/g Np3+{` A@+-, B`+ ` 8an` `[`3np+ ,,8,8.,8g]K<A * B`` `0n`5 ` g g~+0 (p `3=-,+( g g~+ (p ` 3= `/... Nw} *w} g.. ; B` Hg `0+//-,0 ",x) " :W) @HBCARGS)0Cx@`-0,<,< @Z( g1n+6@`m ];+9Z(`s ",8!!;`y ( 37D.+N ] H/ ,D,83,8g~,8r,8C,8g|Ko_ /0.+G "0`a!H ] J/ 1c *  & W g~ 3 Jgak Bg~31NK g#&0$0/g-,.,<3q`` ` Np p4N_ ; &p g g~= `/p g.p Nw *w B` Jg `&.,=g p5Nh `&. Pw4Pg ; &w ; g~@=` "` ; ; g~=0 p 0; Np+a/ g~@`0-,/,//0.W,x@B/0x#-MACRO-DATALIST/DDxU);U"#-BS-READER#-MACRO-" &E,UMACROu*U*UF Dx^*TYI#" string does not end with " w:U*U HIJpKKxK xLENGTHNREVERSEREPLACEDigit too big fU;]*or #" MNOpx xASCII#-#B-READER,<00,< $ "0G`,80,8`  B`1.`9`".ۻ`!+A+0n=+K7ۻ`!+a` 0n=` KWۻ1`!1N+ , ,8CK<A 0,8 g "p`mL",o+ 3.p+ ,L0,8,8"P",<A g-,0 `4N+ g-,-,0 ` Pw *w Bg J`AB`-+yujU,xKUtSHARPM$EE%E#Q%xPRINLENGTHSI:NORMALIZE-STREAM:PRINT-SELF->BITS-CLASS``!,< g~`,8+,  |+,  Np "p  * B` g~R Bg~b<,<0 p2/`+6 $p g} 5N4 g~@ 0Zy+5 g~j=:p`]3 `q g~Z{ g~j>/ " 0,x#B"01..."]+U  (B0EADD-METHOD:PRINT-SELFS!x First OBJ not a BITS? - EQUAL->BITS-CLASSEQUAL->BITS-CLASS g*0@ +D ,8,8g~",<A` `* "  g` `bA,<(,< ps` "+\ .A,< pk` " `..{`/p Nw &w $p g+ &w` $p `+,\2N+[ ..np @`0+N "/,x%kU 0T HB }EQUALSU!x!$j)@SXHASH->BITS-CLASS,<,<0"`,8r3/``+p..3o`` `0 Bg g3+s F`-,.. Np *p+b``DK//,x] `B`^W*TSXHASHSV!xPURCOPYPURCOPY->OBJECT-CLASSPURCOPY->BITS-CLASS@G-,1c_G $W/i B`sSWX!xU*U*USI:DESCRIBE-MAX-LEVEL~%~vTThe BITString ~S has ~D elements.w:T YZ[\p]]x] xFORMATDESCRIBE->BITS-CLASS `[+ *+ ,8,8g33 g|`Ko` "/.]*U,x] `B(DESCRIBES^!xARRAYDIMSLISTARRAYARRAYFILLARRAYU(SI:EXTENDMACROEXPANDUSERATOMS-HOOK->BITS-CLASS` 4n@_ ,8@Ko[`Z`[@,8-,1,X-,2H $-, $`-,@-,2@`1 $-,-,1 $-,   -,`- "bd@-,1 $(-, $!-, ``0 $a-,`-,1/,x];` B`USERATOMS-HOOKSb!x;