type-error.lisp

(defparameter *initial-array* (make-array 2 :element-type 'single-float :initial-element 0.0))

(defun foo ()
 (loop with markov-db = (make-array 24
                          :element-type '(simple-array single-float 2)
                          :initial-element *initial-array*)
   repeat 1
   do (print markov-db)))

(foo)
The value                                                                                                                                                                                                            
  #(0.0 0.0)                                                                                                                                                                                                         
is not of type                                                                                                                                                                                                       
  (SIMPLE-ARRAY SINGLE-FLOAT (* *))                                                                                                                                                                                  
   [Condition of type TYPE-ERROR]