[flexi-streams-cvs] r10 - branches/hans

[hhubner at common-lisp.net]

Author: hhubner
Date: Fri May  2 08:59:37 2008
New Revision: 10

Modified:
   branches/hans/input.lisp
Log:
Fix READ-BYTE* local function for OCTETS-TO-STRING% - Need to return
NIL, not :EOF on end of file.


Modified: branches/hans/input.lisp
==============================================================================
--- branches/hans/input.lisp	(original)
+++ branches/hans/input.lisp	Fri May  2 08:59:37 2008
@@ -321,11 +321,10 @@
              ;; function CODE-CHAR-WITH-NEWLINE-PROCESSING.
              (labels ((read-byte* (stream)
                         (declare (ignore stream))
-                        (if (< position end)
-                            (prog1
-                                (aref ,octets-var position)
-                              (incf position))
-                            :eof))
+                        (when (< position end)
+                          (prog1
+                              (aref ,octets-var position)
+                            (incf position))))
                       (read-char-code ()
                         (setf save-position position)
                         (block stream-read-char ;; for RETURN-FROM in BODY