Changeset 4934

Timestamp:

Jul 29, 2006, 7:41:56 AM (18 years ago)

Author:

Gary Byers

Message:

STREAM-WRITE-BYTE, STREAM-WRITE-IVECTOR.
:BASIC defaults to T in OPEN; BASIC-FILE-STREAM probably still needs READ/WRITE-
SEQUENCE support.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (3 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -2372 +2372 @@
     (%ioblock-write-byte ioblock byte)))
 
+(defmethod stream-write-byte ((stream basic-binary-output-stream) byte)
+  (let* ((ioblock (basic-stream-ioblock stream)))
+    (with-ioblock-output-locked (ioblock)
+      (%ioblock-write-byte ioblock byte))))
+
 (defmethod stream-write-char ((stream buffered-character-output-stream-mixin) char)
   (with-stream-ioblock-output (ioblock stream :speedy t)
@@ -2476 +2481 @@
   (with-stream-ioblock-output (ioblock s :speedy t)
     (%ioblock-out-ivect ioblock iv start length)))
+
+(defmethod stream-write-ivector ((s basic-output-stream)
+                                 iv start length)
+  (let* ((ioblock (basic-stream-ioblock s)))
+    (with-ioblock-output-locked (ioblock)
+      (%ioblock-out-ivect ioblock iv start length))))
+
 
 (defmethod stream-read-ivector ((s buffered-character-input-stream-mixin)
@@ -2906 +2918 @@
                       (elements-per-buffer *elements-per-buffer*)
                       (sharing :private)
-                      (basic nil))
+                      (basic t))
   "Return a stream which reads from or writes to FILENAME.
   Defined keywords: