how does one induce make-array to construct a simple-array?

hello;

acl 6.2 on osx.

even when given arguments which "should" cause it to make a simple 
array, make array is still creating general arrays if they are of more 
than one dimension. is this behaviour expected?

PACKAGE(51): (type-of (make-array '(2 2) :element-type 'double-float 
:initial-contents '((0.0d0 0.0d0) (0.0d0 0.0d0))))
(ARRAY DOUBLE-FLOAT (2 2))

PACKAGE(62):  (type-of (make-array 4 :initial-element 0.0d0 
:element-type 'double-float))
(SIMPLE-ARRAY DOUBLE-FLOAT (4))
PACKAGE(63):


thanks.
...