; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading BITS 45   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPBITS45U*U.UVERSIONPUSHLAMBDAXORFILE-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;= ? x3 579;= ?  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*0B  " ,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+{` @+ "p B`+ ` 8an` `[`3np+ ,@ 4,8,8.,8g]K<A * B` ` `0n`5 ` g g~+0 (p `3=-,0P0+( g g~+ (p 3= `/... Nw} *w} g.. ; B` Hg +//-,@D",x ) "*p) @HBCARGS)0Cx-00 0,<,< @ Z( g1n+6@`m]@0;+9Z(`s ",8!;`y ( 37D.+N ] H/ ,D0,83,8g~,8r,8,8g|@@Ko_ /0.+G "0`a ] D J/ 1c *  & W g~3@ Jgak Bg~31NK gb#&0$0/g-,.,<@3q`` ` Np p4N_ ; &p g@ g~= `/p g.p Nw *w B` Jg `&.,=g p5Nh `&. Pw4Pg ; &w ; g~= ` "` ; ; g~= p 0; Np+a/ g~-,0 /,//uju,x @B/0x#-MACRO-DATALIST/DDx"U:W#-BS-READER#-MACRO-" &E,UMACROF DxU*U*W^*TYI#" string does not end with " HIJpw*U*UKKxK xLENGTHNREVERSEREPLACEDigit too big for #"W;U  MNOpx xASCII#-#B-READER,<,< $ "0G`,8 ,8`  B`1.`9 `".ۻ`!+A+0n=+K7ۻ`!+a` 0n=` KWۻ`!D1N+ , ,8CK<A ,8@ g "p`mLAB",o+ 3.p+ ,,8 @0,8"P",<A g-,@ `4N+ g-,-, ` Pw *w Bg J` `0`-+y,x".]*PKUtSHARPM$EE%E#Q%xPRINLENGTHSI:NORMALIZE-STREAM:PRINT-SELF->BITS-CLASS,<0  g~`,8+,   |+,  Np "p * `0 B` g~R Bg~b<,< p2/`+6 $p g} 5N4 g~Zy+5 g~j=:p`]3`q@ d g~Z{ g~j>/ " ` ,x#B"01..." (B0EAADD-METHOD:PRINT-SELFS!x First OBJ not a BITS? - EQUAL->BITS-CLASSEQUAL->BITS-CLASS g*1B +D1 ,8,8g~",<A` `*  0B  "  g` `b,<((,< ps` "+\ .,< pk` " `..{`/p Nw &w $p g+ &w $p `+,\2N+[ ..np+N   "/,xT]:T HB }EQUALSU!x!$j)@SXHASH->BITS-CLASS,<,<`,8r3/``@+p..3o`` ` Bg g3+s F-,0.. Np *p+b/0D]/,x] `B`^SXHASHu*@SV!xPURCOPYPURCOPY->OBJECT-CLASSPURCOPY->BITS-CLASS@G-, ;uG $W/i B`sSWX!xSI:DESCRIBE-MAX-LEVELU*U*W~%~vTThe BITString ~S has ~D elements. YZ[\p!]]x] xFORMATDESCRIBE->BITS-CLASS `[+* D0B + ,8,8g33 g|b@0`Ko` "/,x%kU*U] `B(DESCRIBES^!xARRAYDIMSLISTARRAYARRAYFILLARRAYSI:EXTENDMACROEXPANDUSERATOMS-HOOK->BITS-CLASS` 4n@_@ ,8@Ko[``Z`[@,8-,1,X-, ` $-, $`-,@-,1  2 $-,-,1 $-, B@-,`- "b@ @2-,1 $(-, $!-, $ac -,`-,1/,x B`W<USERATOMS-HOOKSb!x;