Changeset 5026

Timestamp:

Aug 25, 2006, 7:22:31 PM (18 years ago)

Author:

Gary Byers

Message:

READ-LINE on BASIC-INPUT-STREAM w/o STREAM-READ-LINE.

File:

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

trunk/ccl/lib/streams.lisp

@@ -33 +33 @@
 
 (defun read-line (&optional input-stream (eof-error-p t) eof-value recursive-p)
+  
   (declare (ignore recursive-p))
   (let* ((input-stream (designated-input-stream input-stream)))
-    (multiple-value-bind (string eof) (stream-read-line input-stream)
+    (multiple-value-bind (string eof)
+        (if (typep input-stream 'basic-stream)
+          (let* ((ioblock (basic-stream-ioblock input-stream)))
+            (with-ioblock-input-locked (ioblock)
+              (%ioblock-read-line ioblock)))
+          (stream-read-line input-stream))
       (if eof
         (if (= (length string) 0)