X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.pure.lisp;h=78d9b27ae965bd262fa721e0efa83f759dddb36d;hb=5877e8c2334bd87490be385af21ed9bc494f19e2;hp=2941097381ac7ab1992161117e43dc039be5e14a;hpb=088583ae2b22d8d861fbc354568bd24edc0333cb;p=sbcl.git

diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp
index 2941097..78d9b27 100644
--- a/tests/seq.pure.lisp
+++ b/tests/seq.pure.lisp
@@ -370,3 +370,10 @@
                                     (t #'shuffle))
                                   size type)
                          #'< :key #'car))))))))
+
+(with-test (:name &more-elt-index-too-large)
+  (assert (raises-error? (funcall
+                          (compile nil '(lambda (&rest args)
+                                         (declare (optimize safety))
+                                         (elt args 0))))
+                         sb-kernel:index-too-large-error)))