;;
(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))))