From bb37eb6d2027c2257d7a33cda12c273b339c2584 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 27 Aug 2003 20:12:02 +0000 Subject: [PATCH] r5565: *** empty log message *** --- byte-stream.lisp | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/byte-stream.lisp b/byte-stream.lisp index d65387f..a22d4d1 100644 --- a/byte-stream.lisp +++ b/byte-stream.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: June 2003 ;;;; -;;;; $Id: byte-stream.lisp,v 1.2 2003/08/02 22:19:37 kevin Exp $ +;;;; $Id: byte-stream.lisp,v 1.3 2003/08/27 20:07:08 kevin Exp $ ;;;; ;;;; Works for CMUCL, SBCL, and AllergoCL only ;;;; @@ -110,7 +110,11 @@ Make-Byte-Array-Output-Stream since the last call to this function." (let ((byte-array (byte-array-input-stream-byte-array stream)) (index (byte-array-input-stream-current stream))) (cond ((= index (byte-array-input-stream-end stream)) - (eof-or-lose stream eof-errorp eof-value)) + #+cmu + (eof-or-lose stream eof-errorp eof-value) + #+sbcl + (sb-impl::eof-or-lose stream eof-errorp eof-value) + ) (t (setf (byte-array-input-stream-current stream) (1+ index)) (aref byte-array index))))) @@ -119,7 +123,11 @@ Make-Byte-Array-Output-Stream since the last call to this function." (let ((byte-array (byte-array-input-stream-byte-array stream)) (index (byte-array-input-stream-current stream))) (cond ((= index (byte-array-input-stream-end stream)) - (eof-or-lose stream eof-errorp eof-value)) + #+cmu + (eof-or-lose stream eof-errorp eof-value) + #+sbcl + (sb-impl::eof-or-lose stream eof-errorp eof-value) + ) (t (setf (byte-array-input-stream-current stream) (1+ index)) (aref byte-array index))))) -- 2.34.1