Changeset 7734 for branches

Timestamp:

Nov 24, 2007, 6:31:15 PM (17 years ago)

Author:

Gary Byers

Message:

break->error.

File:

• branches/working-0711/ccl/level-1/l1-sysio.lisp (modified) (3 diffs)

branches/working-0711/ccl/level-1/l1-sysio.lisp

@@ -514 +514 @@
                   (file-octet-filepos file-ioblock))))
     (unless (eql newpos curpos)
-      (break "Expected newpos to be ~d, fd is at ~d" newpos curpos))
+      (error "Expected newpos to be ~d, fd is at ~d" newpos curpos))
     (setf (file-ioblock-octet-pos file-ioblock) newpos)
     (fd-stream-advance stream file-ioblock read-p)))
@@ -529 +529 @@
       (fd-stream-force-output stream file-ioblock count nil))
     (unless (eql newpos (file-octet-filepos file-ioblock))
-      (break "Expected newpos to be ~d, fd is at ~d"
+      (error "Expected newpos to be ~d, fd is at ~d"
              newpos (file-octet-filepos file-ioblock)))
     (setf (file-ioblock-octet-pos file-ioblock) newpos)
@@ -539 +539 @@
   (let* ((curpos (file-ioblock-octet-pos file-ioblock)))
     (unless (eql curpos (file-octet-filepos file-ioblock))
-      (break "Expected newpos to be ~d, fd is at ~d"
+      (error "Expected newpos to be ~d, fd is at ~d"
              curpos (file-octet-filepos file-ioblock)))
     (let* ((n (fd-stream-force-output stream file-ioblock count finish-p)))