Changeset 5024

Timestamp:

Aug 25, 2006, 7:21:08 PM (18 years ago)

Author:

Gary Byers

Message:

BASIC-OUTPUT-STREAM isn't an INPUT-STREAM.

Some STREAM-READ-LINE support for BASIC-CHARACTER-INPUT-STREAM.

File:

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

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

@@ -1302 +1302 @@
   )
 
-(defmethod stream-read-line ((s fundamental-character-input-stream))
+(defmethod stream-read-line ((s character-input-stream))
   (generic-read-line s))
 
@@ -1452 +1452 @@
 
 (make-built-in-class 'basic-input-stream 'basic-stream 'input-stream)
-(make-built-in-class 'basic-output-stream 'basic-stream 'input-stream)
+(make-built-in-class 'basic-output-stream 'basic-stream 'output-stream)
 (make-built-in-class 'basic-io-stream 'basic-input-stream 'basic-output-stream)
 (make-built-in-class 'basic-character-input-stream 'basic-input-stream 'basic-character-stream 'character-input-stream)
@@ -1579 +1579 @@
         (%ioblock-character-read-vector ioblock vector start end)))))
 
+(defmethod stream-read-line ((stream basic-character-input-stream))
+  (let* ((ioblock (basic-stream-ioblock stream)))
+    (with-ioblock-input-locked (ioblock)
+      (%ioblock-read-line ioblock))))
+
+                             
 ;;; Synonym streams.