[Openmcl-cvs-notifications] r9184 - /trunk/source/level-1/l1-streams.lisp

[gz at clozure.com]

Author: gz
Date: Fri Apr 18 11:57:07 2008
New Revision: 9184

Log:
Fix column counting fencepost in string-output-stream-ioblock-write-simple-=
string.

Modified:
    trunk/source/level-1/l1-streams.lisp

Modified: trunk/source/level-1/l1-streams.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-streams.lisp (original)
+++ trunk/source/level-1/l1-streams.lisp Fri Apr 18 11:57:07 2008
@@ -4363,9 +4363,10 @@
             (setf (ioblock-charpos ioblock) (the fixnum (- end (the fixnum=
 nlpos))))
             (incf (ioblock-charpos ioblock) num-chars))
           num-chars)
+      (declare (fixnum src dest end))
       (let* ((char (schar string src)))
         (if (eql char #\Newline)
-          (setq nlpos src))
+          (setq nlpos (the fixnum (1+ src))))
         (setf (schar out dest) char)))))
 =

 =