Changeset 9804


Ignore:
Timestamp:
Jun 21, 2008, 8:43:17 PM (11 years ago)
Author:
gb
Message:

Remove the consistency check from OUTPUT-FILE-FORCE-OUTPUT, since:

a) the bug it was intended to find was fixed ~5 years ago
b) it has no other value
c) it's expensive
d) it's shiny and distracting.

File:
1 edited

Legend:

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

    r9803 r9804  
    536536                   
    537537(defun output-file-force-output (stream file-ioblock count finish-p)
    538   ;; Check to see if we're where we think we should be.
    539   (let* ((curpos (file-ioblock-octet-pos file-ioblock))
    540          (fpos (file-octet-filepos file-ioblock)))
    541     (unless (eq curpos fpos)
    542       (if (< fpos 0)
    543         (stream-io-error stream (- fpos) "tell")
    544         (error "Expected curpos to be ~d, fd is at ~d" curpos fpos))))
    545538  (let* ((n (fd-stream-force-output stream file-ioblock count finish-p)))
    546539    (incf (file-ioblock-octet-pos file-ioblock) (or n 0))
Note: See TracChangeset for help on using the changeset viewer.