diff --git a/code/stream.lisp b/code/stream.lisp index 9ff217b16e28a0f910653e8276f24c3e67a784b0..059b638dee396f11a072679e88d4d95c35182841 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.76 2004/04/15 16:25:41 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.77 2004/04/16 20:20:16 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1386,7 +1386,6 @@ output to Output-stream" (t (write-sequence buffer (echo-stream-output-stream stream) :start new-start :end (+ new-start bytes-read)) - (aver (= numbytes (+ new-start bytes-read))) numbytes))))) (defun %print-echo-stream (s stream d)