0.7.7.25:

[sbcl.git] / src / code / seq.lisp

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index d107578..9ccda2a 100644 (file)
--- 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)))))