X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Farray.pure.lisp;h=1b7f9cdadc892ffae098c6a2dddd9a0c6d439e04;hb=a64589ed34ce0298fae164476af7de14c4652909;hp=21b5b69a0aa41aa3aea0038b20c9e5958f908296;hpb=27b8aecceb0faecf64fcc8b90392373461b01c30;p=sbcl.git

diff --git a/tests/array.pure.lisp b/tests/array.pure.lisp
index 21b5b69..1b7f9cd 100644
--- a/tests/array.pure.lisp
+++ b/tests/array.pure.lisp
@@ -127,3 +127,6 @@
   (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))