Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv16313/src/code
Modified Files:
seq.lisp
Log Message:
0.7.9.47:
s/#.most-positive-fixnum/#.sb!xc:most-positive-fixnum/ in seq.lisp.
Thanks, Christophe!
Index: seq.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/seq.lisp,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- seq.lisp 12 Nov 2002 16:50:09 -0000 1.40
+++ seq.lisp 13 Nov 2002 04:07:58 -0000 1.41
@@ -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)
|