FROM-ARRAY is broken for rank 2+ arrays

[notmgsk]

e.g.

(magicl:from-array (make-array '(3 3 3) :initial-element 0d0 :element-type '(complex double-float)) '(3 3 3))

The number of dimensions not equal to rank of array.
   [Condition of type SIMPLE-ERROR]