Bugfixes from fuzzing with ccl

Author: ajberkley

src/simple-array.lisp

@@ -448,11 +448,12 @@
 		  (32 (reader 32 t))
 		  (64 (reader 64 t))))))
 	    (t
-	     (ecase type
+	     (case type
 	       (bit (reader 1 nil))
 	       (single-float (reader 32 nil sap-ref-single (simple-array single-float (*))))
 	       (double-float (reader 64 nil sap-ref-double (simple-array double-float (*))))
-	       (fixnum (reader 64 t signed-sap-ref-64 (simple-array fixnum (*))))))))
+	       (fixnum (reader 64 t signed-sap-ref-64 (simple-array fixnum (*))))
+               (otherwise (unexpected-data "array of unexpected type"))))))
         #+sbcl
 	(with-pinned-objects (sv)
 	  (let ((target-sap (vector-sap sv)))