Changeset 7704


Ignore:
Timestamp:
Nov 21, 2007, 12:07:01 PM (12 years ago)
Author:
gb
Message:

Consistency checks (which compare expected to actual file position):
call ERROR, not just BREAK.

File:
1 edited

Legend:

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

    r7341 r7704  
    514514                  (file-octet-filepos file-ioblock))))
    515515    (unless (eql newpos curpos)
    516       (break "Expected newpos to be ~d, fd is at ~d" newpos curpos))
     516      (error "Expected newpos to be ~d, fd is at ~d" newpos curpos))
    517517    (setf (file-ioblock-octet-pos file-ioblock) newpos)
    518518    (fd-stream-advance stream file-ioblock read-p)))
     
    529529      (fd-stream-force-output stream file-ioblock count nil))
    530530    (unless (eql newpos (file-octet-filepos file-ioblock))
    531       (break "Expected newpos to be ~d, fd is at ~d"
     531      (error "Expected newpos to be ~d, fd is at ~d"
    532532             newpos (file-octet-filepos file-ioblock)))
    533533    (setf (file-ioblock-octet-pos file-ioblock) newpos)
     
    539539  (let* ((curpos (file-ioblock-octet-pos file-ioblock)))
    540540    (unless (eql curpos (file-octet-filepos file-ioblock))
    541       (break "Expected newpos to be ~d, fd is at ~d"
     541      (error "Expected newpos to be ~d, fd is at ~d"
    542542             curpos (file-octet-filepos file-ioblock)))
    543543    (let* ((n (fd-stream-force-output stream file-ioblock count finish-p)))
Note: See TracChangeset for help on using the changeset viewer.