X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.impure.lisp;h=3470c3537556abda992cad976b54380ad27a29e2;hb=42765fe1c5c3ae34ad199ffdead00c2fc4e8cddb;hp=b298f7872d7bc69051125799961fdd11a9c9f294;hpb=58084279740fc96c6ffcd14e86dca73b71b7c288;p=sbcl.git

diff --git a/tests/seq.impure.lisp b/tests/seq.impure.lisp
index b298f78..3470c35 100644
--- a/tests/seq.impure.lisp
+++ b/tests/seq.impure.lisp
@@ -339,6 +339,12 @@
   (declare (optimize (safety 3)))
   (assert (raises-error? (elt (list 1 2 3) 3) type-error)))
 
+;;; confusion in the refactoring led to this signalling an unbound
+;;; variable, not a type error.
+(defun svrefalike (x)
+  (svref x 0))
+(assert (raises-error? (svrefalike #*0) type-error))
+
 ;;; checks for uniform bounding index handling under SAFETY 3 code.
 ;;;
 ;;; KLUDGE: not all in one big form because that causes SBCL to spend