Changeset 9805


Ignore:
Timestamp:
Jun 21, 2008, 9:23:07 PM (11 years ago)
Author:
gb
Message:

While we're at it, remove the consistency check from
INPUT-FILE-IOBLOCK-ADVANCE, for similar reasons and before someone starts
dictating how consistency checks should be done.

File:
1 edited

Legend:

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

    r9804 r9805  
    509509(defun input-file-ioblock-advance (stream file-ioblock read-p)
    510510  (let* ((newpos (+ (file-ioblock-octet-pos file-ioblock)
    511                     (io-buffer-count (file-ioblock-inbuf file-ioblock))))
    512          (curpos (ioblock-octets-to-elements
    513                   file-ioblock
    514                   (file-octet-filepos file-ioblock))))
    515     (unless (eql newpos curpos)
    516       (error "Expected newpos to be ~d, fd is at ~d" newpos curpos))
     511                    (io-buffer-count (file-ioblock-inbuf file-ioblock)))))
    517512    (setf (file-ioblock-octet-pos file-ioblock) newpos)
    518513    (fd-stream-advance stream file-ioblock read-p)))
Note: See TracChangeset for help on using the changeset viewer.