Changeset 5231

Timestamp:

Sep 20, 2006, 3:22:18 AM (18 years ago)

Author:

Gary Byers

Message:

WRITE-BYTE for BASIC-STREAMs.

File:

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

trunk/ccl/lib/streams.lisp

@@ -130 +130 @@
 (defun write-byte (byte stream)
   "Write one byte, BYTE, to STREAM."
-  (stream-write-byte stream byte)
+  (if (typep stream 'basic-stream)
+    (let* ((ioblock (basic-stream-ioblock stream)))
+      (funcall (ioblock-write-byte-function ioblock) ioblock byte))
+    (stream-write-byte stream byte))
   byte)