X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fseq.lisp;h=dc39f2fa59cc67926bbc28cc34977ece891c9a8d;hb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;hp=4e6091584d69e0ff579810280b0d0440737b1640;hpb=8d021a02be794dee4802e64701bab8a5b1ae3c55;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 4e60915..dc39f2f 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -32,7 +32,7 @@
              (integer (if (minusp count)
                           0
                           (1- most-positive-fixnum))))
-           (mod #.most-positive-fixnum))))
+           (mod #.sb!xc:most-positive-fixnum))))
 
 (sb!xc:defmacro define-sequence-traverser (name args &body body)
   (multiple-value-bind (body declarations docstring)