(let ((ary (make-array '(2 2))))
;; SBCL used to give multidimensional arrays a bogus fill-pointer
(assert (not (array-has-fill-pointer-p (adjust-array ary '(2 2)))))))
(let ((ary (make-array '(2 2))))
;; SBCL used to give multidimensional arrays a bogus fill-pointer
(assert (not (array-has-fill-pointer-p (adjust-array ary '(2 2)))))))