X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.pure.lisp;fp=tests%2Fcompiler.pure.lisp;h=f20d6f5e5b9165535ce3fbef36d27ef394c7e93b;hb=8f26d19948335a96002699ab21a387451ae5a6d7;hp=dc092ed478298d816cbffc4dc02bd842b6e95225;hpb=b3eb292cf850b926ec30f5f0bf7cecf048885f2f;p=sbcl.git

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index dc092ed..f20d6f5 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -3283,6 +3283,17 @@
 (with-test (:name :array-type-predicates)
   (dolist (et (list* '(integer -1 200) '(integer -256 1)
                      '(integer 0 128)
+                     '(integer 0 (128))
+                     '(double-float 0d0 (1d0))
+                     '(single-float (0s0) (1s0))
+                     '(or (eql 1d0) (eql 10d0))
+                     '(member 1 2 10)
+                     '(complex (member 10 20))
+                     '(complex (member 10d0 20d0))
+                     '(complex (member 10s0 20s0))
+                     '(or integer double-float)
+                     '(mod 1)
+                     #+sb-unicode 'extended-char
                      sb-kernel::*specialized-array-element-types*))
     (when et
       (let* ((v (make-array 3 :element-type et))