793 |
(8 :initial-contents '(0 1 0 1 1 0 1 0) :element-type 'bit) |
(8 :initial-contents '(0 1 0 1 1 0 1 0) :element-type 'bit) |
794 |
#*01011010) |
#*01011010) |
795 |
|
|
796 |
(def-adjust-array-fp-test adjust-array.bit-vectoradjustable.5 |
(def-adjust-array-fp-test adjust-array.bit-vector.adjustable.5 |
797 |
(5 :initial-contents '(1 1 1 0 0) :fill-pointer 3 :adjustable t :element-type 'bit) |
(5 :initial-contents '(1 1 1 0 0) :fill-pointer 3 :adjustable t :element-type 'bit) |
798 |
(4 :element-type 'bit :initial-element 0) |
(4 :element-type 'bit :initial-element 0) |
799 |
(assert (eq (aref a2 3) 0)) |
(assert (eq (aref a2 3) 0)) |