Changeset 7734


Ignore:
Timestamp:
Nov 25, 2007, 2:31:15 AM (12 years ago)
Author:
gb
Message:

break->error.

File:
1 edited

Legend:

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

    r7341 r7734  
    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.