8 lines
238 B
Plaintext
8 lines
238 B
Plaintext
;;
|
|
(do-test "adjust-array works on displaced arrays"
|
|
(equalp (adjust-array (make-array '(1 2) :adjustable t :displaced-to
|
|
(make-array '(2 2) :initial-contents '((2 3)(8 9))) :displaced-index-offset 2)
|
|
'(2 2)) '#2a((8 9) (nil nil))))
|
|
|
|
|