Changeset 12217 for trunk/source/level-1


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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r12111 r12217  
    45714571        (if (and (typep newpos 'fixnum)
    45724572                 (>= (the fixnum newpos) 0)
    4573                  (< (the fixnum newpos) limit))
     4573                 (<= (the fixnum newpos) limit))
    45744574          (progn
    45754575            (setf (string-input-stream-ioblock-index ioblock)
    45764576                  (the fixnum (+ start (the fixnum newpos))))
    45774577            newpos)
    4578           (report-bad-arg newpos `(integer 0 (,limit)))))
     4578          (report-bad-arg newpos `(integer 0 ,limit))))
    45794579      (the fixnum (- idx start)))))
    45804580   
Note: See TracChangeset for help on using the changeset viewer.