Changeset 8166


Ignore:
Timestamp:
Jan 17, 2008, 3:01:36 PM (12 years ago)
Author:
gb
Message:

Listener-process :echoing arg change from trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2/devel/source/level-1/l1-boot-lds.lisp

    r7487 r8166  
    7979                                  (value-stack-size *default-value-stack-size*)
    8080                                  (temp-stack-size *default-temp-stack-size*)
     81                                  (echoing t)
    8182                                  (process))
    8283  (let ((p (if (typep process class)
     
    9293    (process-preset p #'(lambda ()
    9394                          (let ((*terminal-io*
    94                                  (make-echoing-two-way-stream
    95                                   input-stream output-stream)))
     95                                 (if echoing
     96                                   (make-echoing-two-way-stream
     97                                    input-stream output-stream)
     98                                   (make-two-way-stream
     99                                    input-stream output-stream))))
    96100                            (unwind-protect
    97101                                 (progn
Note: See TracChangeset for help on using the changeset viewer.