503 |
(def-adjust-array-fp-test adjust-array.string.adjustable.5 |
(def-adjust-array-fp-test adjust-array.string.adjustable.5 |
504 |
(5 :initial-contents "abcde" :fill-pointer 3 :adjustable t :element-type 'character) |
(5 :initial-contents "abcde" :fill-pointer 3 :adjustable t :element-type 'character) |
505 |
(4 :element-type 'character :initial-element #\Space) |
(4 :element-type 'character :initial-element #\Space) |
506 |
(assert (eq (aref a2 3) #\d)) |
(assert (eql (aref a2 3) #\d)) |
507 |
3 "abc") |
3 "abc") |
508 |
|
|
509 |
(def-adjust-array-fp-test adjust-array.string.adjustable.6 |
(def-adjust-array-fp-test adjust-array.string.adjustable.6 |
510 |
(5 :initial-contents "abcde" :fill-pointer 3 :adjustable t :element-type 'character) |
(5 :initial-contents "abcde" :fill-pointer 3 :adjustable t :element-type 'character) |
511 |
(4 :fill-pointer nil :element-type 'character :initial-element #\?) |
(4 :fill-pointer nil :element-type 'character :initial-element #\?) |
512 |
(assert (eq (aref a2 3) #\d)) |
(assert (eql (aref a2 3) #\d)) |
513 |
3 "abc") |
3 "abc") |
514 |
|
|
515 |
(def-adjust-array-fp-test adjust-array.string.adjustable.7 |
(def-adjust-array-fp-test adjust-array.string.adjustable.7 |
796 |
(def-adjust-array-fp-test adjust-array.bit-vector.adjustable.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 (eql (aref a2 3) 0)) |
800 |
3 #*111) |
3 #*111) |
801 |
|
|
802 |
(def-adjust-array-fp-test adjust-array.bit-vector.adjustable.6 |
(def-adjust-array-fp-test adjust-array.bit-vector.adjustable.6 |
803 |
(5 :initial-contents '(0 0 0 1 1) :fill-pointer 3 :adjustable t :element-type 'bit) |
(5 :initial-contents '(0 0 0 1 1) :fill-pointer 3 :adjustable t :element-type 'bit) |
804 |
(4 :fill-pointer nil :element-type 'bit :initial-element 1) |
(4 :fill-pointer nil :element-type 'bit :initial-element 1) |
805 |
(assert (eq (aref a2 3) 1)) |
(assert (eql (aref a2 3) 1)) |
806 |
3 #*000) |
3 #*000) |
807 |
|
|
808 |
(def-adjust-array-fp-test adjust-array.bit-vector.adjustable.7 |
(def-adjust-array-fp-test adjust-array.bit-vector.adjustable.7 |