X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.pure.lisp;fp=tests%2Fcompiler.pure.lisp;h=dc092ed478298d816cbffc4dc02bd842b6e95225;hb=0c3bbfaa2286626a2d915c8810f690aefc702661;hp=577c4346e29a2f17cb8a8bc1633b984114529f7f;hpb=979539d20a27f4315db9e1bde0a4413135cf8603;p=sbcl.git

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index 577c434..dc092ed 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -3281,7 +3281,9 @@
     (ctu:assert-no-consing (funcall f))))
 
 (with-test (:name :array-type-predicates)
-  (dolist (et sb-kernel::*specialized-array-element-types*)
+  (dolist (et (list* '(integer -1 200) '(integer -256 1)
+                     '(integer 0 128)
+                     sb-kernel::*specialized-array-element-types*))
     (when et
       (let* ((v (make-array 3 :element-type et))
              (fun (compile nil `(lambda ()