array—an array.
dimensions—a list of integers.
Returns a list of the dimensions of array. (If array is a vector with a fill pointer, that fill pointer is ignored.)
(array-dimensions (make-array 4)) → (4) (array-dimensions (make-array '(2 3))) → (2 3) (array-dimensions (make-array 4 :fill-pointer 2)) → (4)
Should signal an error of type type-error
if its argument is not an array.