[Openmcl-devel] bit string matching

[peter]

How about an approach like:

(let ((seq #b1100011000110001100))
   (format nil "~B" (ldb (byte 5 (- (integer-length seq) 6)) seq)))

"10001"