Changeset 7174


Ignore:
Timestamp:
Sep 7, 2007, 11:21:18 AM (12 years ago)
Author:
gb
Message:

Start a thread with WITH-STANDARD-IO-SYNTAX in effect.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/level-1/l1-processes.lisp

    r6942 r7174  
    312312
    313313(defun %process-preset-internal (process)
    314    (let* ((initial-form (process-initial-form process))
     314  (let* ((initial-form (process-initial-form process))
    315315         (thread (process-thread process)))
    316      (declare (type cons initial-form))
    317      (thread-preset
    318       thread
    319       #'(lambda (process initial-form)
    320           (let* ((*current-process* process))
    321             (add-to-all-processes process)
    322             (multiple-value-bind (syms values)
    323                 (initial-bindings (process-initial-bindings process))
    324               (progv syms values
    325                 (run-process-initial-form process initial-form)))))
    326       process
    327       initial-form)
    328      process))
     316    (declare (type cons initial-form))
     317    (thread-preset
     318     thread
     319     #'(lambda (process initial-form)
     320         (let* ((*current-process* process))
     321           (add-to-all-processes process)
     322           (with-standard-io-syntax
     323               (multiple-value-bind (syms values)
     324                   (initial-bindings (process-initial-bindings process))
     325                 (progv syms values
     326                   (run-process-initial-form process initial-form))))))
     327     process
     328     initial-form)
     329    process))
    329330
    330331
Note: See TracChangeset for help on using the changeset viewer.