[Openmcl-devel] bit string matching

peter p2.edoc at googlemail.com
Tue Jan 4 12:43:00 PST 2011


How about an approach like:

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

"10001"



More information about the Openmcl-devel mailing list