X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Floop.pure.lisp;h=44853c9d818ffe0cbe3dce931e793bed10a04755;hb=fd79e33e6b6dacdc52cf6668a5bb7adf75aad6c1;hp=cae55c590c19b4101dde84f6d4cd569e5114ddef;hpb=dfa4d1c572e3a8d2836a462c107d95c5a1796e07;p=sbcl.git

diff --git a/tests/loop.pure.lisp b/tests/loop.pure.lisp
index cae55c5..44853c9 100644
--- a/tests/loop.pure.lisp
+++ b/tests/loop.pure.lisp
@@ -242,3 +242,8 @@
 ;;; Loop variable with a range excluding 0, reported by Andras Simon.
 ;;; (Used to signal an error during macroexpansion.)
 (assert (not (loop with foo of-type (single-float 1.0 2.0) = 1.5 do (return))))
+
+;;; 1.0.26.12 used to signal a bogus type error for this.
+(loop with x of-type (simple-vector 1) = (make-array '(1))
+      repeat 1
+      return x)