Typep problem on array dimensions?

[westling@starbase.mitre.org (Mark Westling)]

I create an array like this:

(setq ar (make-array '(4 4) 
               :element-type 'double-float
               :initial-element 0.0))

and, as expected, 

  (type-of ar)
  -->  (simple-array double-float (4 4)).

But here's what I get when I try a typep:

 (typep ar '(simple-array double-float (4 4))) 
  --> nil

At first I thought this was a type discrimination problem,
but MCL 2.0 stores double-floats as double-floats; and then
I found:

  (typep ar '(simple-array double-float (* *)))
  --> t

What gives?

Mark Westling
The MITRE Corporation