X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=9ccda2a08669c511f432fc55aec9b2dedc1f60f7;hb=c716f6ea5255afeb33a1181535b5c067aa9d6aaa;hp=d107578e5c386f79e8cf8cdc83f5cf1da6e6f161;hpb=755ff8f53315160fcb2d92207dfe24ae7ed4d4c6;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index d107578..9ccda2a 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -113,7 +113,7 @@
 		       length)))
     (error 'end-too-large-error
 	   :datum end
-	   :expected-type (if max-index
+	   :expected-type (if max-end
 			      `(integer 0 ,max-end)
 			      ;; This seems silly, is there something better?
 			      '(integer (0) 0)))))