Changeset 462

Timestamp:

Feb 2, 2004, 8:08:41 AM (21 years ago)

Author:

Gary Byers

Message:

Bryan O'Connor's change to FILE-LENGTH.
Default methods on some things that are supposed to TYPE-ERROR, not
get a NO-APPLICABLE-METHOD.

File:

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

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

@@ -238 +238 @@
   (stream-write-string stream string))
 
+
+(defmethod stream-read-char ((x t))
+  (report-bad-arg x 'stream))
+
 (defmethod stream-read-char ((stream stream))
   (error "~s is not capable of input" stream))
+
+(defmethod stream-unread-char ((x t) char)
+  (declare (ignore char))
+  (report-bad-arg x 'stream))
 
 (defmethod stream-unread-char ((stream stream) char)
@@ -1042 +1050 @@
 
 
+(defmethod stream-read-byte ((s t))
+  (report-bad-arg s '(and input-stream fundamental-binary-stream)))
+
+(defmethod stream-write-byte ((s t) b)
+  (declare (ignore b))
+  (report-bad-arg s '(and output-stream fundamental-binary-stream)))
+
 (defmethod stream-length ((s stream) &optional new)
   (declare (ignore new)))
@@ -2266 +2281 @@
             (%incf-ptr buf written)))))))
 
+(defmethod stream-read-line ((s buffered-stream-mixin))
+   (with-stream-ioblock-input (ioblock s :speedy t)
+     (%ioblock-read-line ioblock)))
+
 (defmethod stream-clear-input ((s fd-input-stream))
   (call-next-method)
@@ -2342 +2361 @@
     ;; Don't use an OR type here
     (file-stream (stream-length stream))
-    (broadcast-stream (stream-length stream))))
+    (synonym-stream (file-length
+                     (symbol-value (synonym-stream-symbol stream))))
+    (broadcast-stream (let* ((last (last-broadcast-stream stream)))
+                        (if last
+                          (file-length last)
+                          0)))))
   
 (defun file-position (stream &optional position)