Changeset 5048

Timestamp:

Aug 28, 2006, 3:55:55 AM (18 years ago)

Author:

Gary Byers

Message:

Initial FD-STREAMs are BASIC-STREAMs.

File:

• trunk/ccl/level-1/l1-boot-2.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-boot-2.lisp

@@ -83 +83 @@
 (def-ccl-pointers fd-streams ()
   (setq *stdin* (make-fd-stream 0
+                                :basic t
                                 :sharing :lock
                                 :direction :input
                                 :interactive (not *batch-flag*)))
-  (setq *stdout* (make-fd-stream 1 :direction :output :sharing :lock))
-
-  (setq *stderr* (make-fd-stream 2 :direction :output :sharing :lock))
+  (setq *stdout* (make-fd-stream 1 :basic t :direction :output :sharing :lock))
+
+  (setq *stderr* (make-fd-stream 2 :basic t :direction :output :sharing :lock))
   (if *batch-flag*
     (let* ((tty-fd (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
@@ -96 +97 @@
         (setq
          *terminal-input* (make-fd-stream tty-fd
+                                          :basic t
                                           :direction :input
                                           :interactive t
                                           :sharing :lock)
-         *terminal-output* (make-fd-stream tty-fd :direction :output :sharing :lock)
+         *terminal-output* (make-fd-stream tty-fd :basic t :direction :output :sharing :lock)
          *terminal-io* (make-echoing-two-way-stream
                         *terminal-input* *terminal-output*))