Ignore:
Timestamp:
Oct 15, 2008, 8:48:03 PM (13 years ago)
Author:
gz
Message:

Another round of changes from the trunk, mostly just mods in internal mechanisms in support of various recent ports.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-boot-lds.lisp

    r7487 r11101  
    3333        (with-simple-restart (continue "Skip loading init file.")
    3434          (when (load init-file :if-does-not-exist nil :verbose nil)
    35             #+clozure-common-lisp ;; Kludge to help people transition
    36             (when (equalp (pathname-name init-file) "openmcl-init")
    37               (warn ">>>>>> The use of openmcl-init.lisp is deprecated.  Please rename your init file to ccl-init.lisp"))
    3835            (return)))))
    3936    (flet ((eval-string (s)
     
    7774                                  (class 'process)
    7875                                  (control-stack-size *default-control-stack-size*)
     76                                  (auto-flush t)
    7977                                  (value-stack-size *default-value-stack-size*)
    8078                                  (temp-stack-size *default-temp-stack-size*)
     79                                  (echoing t)
    8180                                  (process))
    8281  (let ((p (if (typep process class)
     
    9291    (process-preset p #'(lambda ()
    9392                          (let ((*terminal-io*
    94                                  (make-echoing-two-way-stream
    95                                   input-stream output-stream)))
     93                                 (if echoing
     94                                   (make-echoing-two-way-stream
     95                                    input-stream output-stream)
     96                                   (make-two-way-stream
     97                                    input-stream output-stream))))
    9698                            (unwind-protect
    9799                                 (progn
    98                                    (add-auto-flush-stream output-stream)
     100                                   (when auto-flush
     101                                     (add-auto-flush-stream output-stream))
    99102                                   (let* ((shared-input
    100103                                           (input-stream-shared-resource
Note: See TracChangeset for help on using the changeset viewer.