; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading BITS 46   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071BITS46VERSIONU*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 46C!"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%ADxu*HC]/DDx"#-BS-READER#-MACRO-" &E,UYU*U*W82NULLASSOCREADTABLECDRSHARPMMACROF FD GHD"HDFI JxU*U*W^*TYI#" string does not end with " LMNpw*U*Ux xLENGTHNREVERSEREPLACEDigit too big for #"W;U  QRpSSxS xASCII#-#B-READER,<,< $ "0K,8 ,8K  B`1.`9 `".ۻ`!+A+0n=+K7ۻ`!+a` 0n=` KWۻ`!D1N+ , ,8CK<A ,8@ gO "p`m`AB",<P+ 3.p+ ,,8 @0,8"`",<A g-,@ `4N+ g-,-, ` Pw *w Bg J` `0`-+y,x"/U*SUt$EE%E#I%xPRINLENGTHSI:NORMALIZE-STREAM:PRINT-SELF->BITS-CLASS,<@! g~`,8+,  |+,  Np "p * B`  g~U Bg~b<,< p2/`0+6 $p g} 5N4 g~Zy+5@ ` g~j=:p`]3`q g~ @0Z{ g~j>/ " 0],x#B"01..." XB0EADD-METHOD4:PRINT-SELFV!x First OBJ not a BITS? - EQUAL->BITS-CLASSEQUAL->BITS-CLASS g*0+D @,8,8g~",<A` `* "  g` `b,<(,< ps` "+\ .,< pk` " `..{`0/p Nw &w $p g+ &w $p `@ +,\2N+[ ..np+N "```K/,xW xB }W*@`0EQUALVX!x!$j)@SXHASH->BITS-CLASS,<,<D `,8r3/`` +p..3o`` ` Bg` g3+s F-,.. Np *p+b/KW/,x] B`^SXHASHVY!xU( 1PURCOPYPURCOPY->OBJECT-CLASSPURCOPY->BITS-CLASS@G-,G G>U $Z/i 0B`sVZ[!xSI:DESCRIBE-MAX-LEVEL~%~vTU*U*wThe BITString ~S has ~D elements. \]^_p``xu(` xFORMATDESCRIBE->BITS-CLASS `[+*@+ ,8,8g33 g|` (Ko` "/,x`]:U*U B(DESCRIBEVa!xARRAYDIMSLISTARRAYARRAYFILLARRAYSI:EXTENDMACROEXPANDPUSERATOMS-HOOK->BITS-CLASS` 4n@b ,8@Ko[`Z` 2[@,8-,1,X-, $ 2-, $c-,@-,1 $@ -,-,1 $-, -,0(`- "b@-,0H 1 $(-, $!-, $d-,1A@`]`-,1/,x PB`USERATOMS-HOOKw@Ve!x;