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