Changeset 4908

Timestamp:

Jul 24, 2006, 3:55:40 AM (18 years ago)

Author:

Gary Byers

Message:

READ-CHAR bypasses STREAM-READ-CHAR for BASIC-STREAMs.

File:

• trunk/ccl/lib/streams.lisp (modified) (1 diff)

trunk/ccl/lib/streams.lisp

@@ -48 +48 @@
   (setq input-stream (designated-input-stream input-stream))
   (check-eof
-   (stream-read-char input-stream)
+   (if (typep input-stream 'basic-stream)
+     (let* ((ioblock (basic-stream.state input-stream)))
+       (if ioblock
+         (funcall (ioblock-read-char-function ioblock) ioblock)
+         (error "~s is closed" input-stream)))
+     (stream-read-char input-stream))
    input-stream
    eof-error-p