Re: Typep problem on array dimensions?

[bill@cambridge.apple.com (Bill St. Clair)]

>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?

Bug in TYPEP. Has probably been there at least since 2.0b1. I guess
nobody has ever specified the dimensions of an array to TYPEP.
I have prepared a patch for inclusion in patch 2 for MCL 2.0. I'll
mail it to anyone who asks for "typep-of-array-patch".