Changeset 12216


Ignore:
Timestamp:
Jun 7, 2009, 12:47:15 AM (10 years ago)
Author:
gz
Message:

Fix fencepost in stream-position(string-input-stream)

File:
1 edited

Legend:

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

    r12213 r12216  
    45674567        (if (and (typep newpos 'fixnum)
    45684568                 (>= (the fixnum newpos) 0)
    4569                  (< (the fixnum newpos) limit))
     4569                 (<= (the fixnum newpos) limit))
    45704570          (progn
    45714571            (setf (string-input-stream-ioblock-index ioblock)
    45724572                  (the fixnum (+ start (the fixnum newpos))))
    45734573            newpos)
    4574           (report-bad-arg newpos `(integer 0 (,limit)))))
     4574          (report-bad-arg newpos `(integer 0 ,limit))))
    45754575      (the fixnum (- idx start)))))
    45764576   
Note: See TracChangeset for help on using the changeset viewer.