(setf(bit bit-array &rest subscrips) new-bit)
(setf(sbit bit-array &rest subscrips) new-bit)
subscripts - a list of valid array indices for the bit-array.
bit - a bit.
These functions ignore the fill pointer when accessing elements.
(bit (setq ba (make-array 8 :element-type 'bit :initial-element 1)) 3) 1 (setf (bit ba 3) 0) 0 (bit ba 3) 0 (sbit ba 5) 1 (setf (sbit ba 5) 1) 1 (sbit ba 5) 1
bit and sbit, unlike char and schar, allow the first argument to be an array of any rank.