(assert (equal (bit-not a) #*))
(assert (equal (bit-xor a b a) #*))
(assert (equal (bit-and a a b) #*)))
;; also test some return values for sanity
(let ((a (make-array 33 :element-type 'bit :initial-element 0))
(assert (equal (bit-not a) #*))
(assert (equal (bit-xor a b a) #*))
(assert (equal (bit-and a a b) #*)))
;; also test some return values for sanity
(let ((a (make-array 33 :element-type 'bit :initial-element 0))