Changeset 9183


Ignore:
Timestamp:
Apr 18, 2008, 3:56:03 PM (11 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-streams.lisp

    r9117 r9183  
    43724372            (incf (ioblock-charpos ioblock) num-chars))
    43734373          num-chars)
     4374      (declare (fixnum src dest end))
    43744375      (let* ((char (schar string src)))
    43754376        (if (eql char #\Newline)
    4376           (setq nlpos src))
     4377          (setq nlpos (the fixnum (1+ src))))
    43774378        (setf (schar out dest) char)))))
    43784379
Note: See TracChangeset for help on using the changeset viewer.