(assert (eq (array-element-type a) 'nil)))
(assert (eq (upgraded-array-element-type 'nil) 'nil))
+
+(multiple-value-bind (fun warn fail)
+ (compile nil '(lambda () (aref (make-array 0) 0)))
+ #+nil (assert fail) ; doesn't work, (maybe because ASSERTED-TYPE is NIL?)
+ (assert (raises-error? (funcall fun) type-error)))
+
+(multiple-value-bind (fun warn fail)
+ (compile nil '(lambda () (aref (make-array 1) 1)))
+ (assert fail)
+ (assert (raises-error? (funcall fun) type-error)))
+
+(multiple-value-bind (fun warn fail)
+ (compile nil '(lambda () (make-array 5 :element-type 'undefined-type)))
+ (assert warn))
+
+(flet ((opaque-identity (x) x))
+ (declare (notinline opaque-identity))
+ ;; we used to have leakage from cross-compilation hosts of the INDEX
+ ;; type, which prevented us from actually using all the large array
+ ;; dimensions that we promised. Let's make sure that we can create
+ ;; an array with more than 2^24 elements, since that was a symptom
+ ;; from the CLISP and OpenMCL hosts.
+ (let ((big-array (opaque-identity
+ (make-array (expt 2 26) :element-type 'bit))))
+ (assert (= (length big-array) (expt 2 26)))))
+
+;;; Bug reported by Kalle Olavi Niemitalo for CMUCL through Debian BTS
+(let ((array (make-array nil :initial-contents nil)))
+ (assert (eql (aref array) nil)))