Changeset 9242


Ignore:
Timestamp:
Apr 23, 2008, 4:40:49 PM (11 years ago)
Author:
wws
Message:

%%yield-terminal-to no longer errors if *terminal-io* is a synonym-stream

File:
1 edited

Legend:

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

    r9237 r9242  
    57465746          (if (typep stream 'two-way-stream)
    57475747            (input-stream-shared-resource
    5748              (two-way-stream-input-stream *terminal-io*)))))
     5748             (two-way-stream-input-stream stream)))))
    57495749    (when shared-resource (%yield-shared-resource shared-resource process))))
    57505750
Note: See TracChangeset for help on using the changeset viewer.