Changeset 11765 for trunk/source/level-1


Ignore:
Timestamp:
Feb 24, 2009, 2:23:49 AM (11 years ago)
Author:
gz
Message:

Propagate r11730 to trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-events.lisp

    r11450 r11765  
    130130  (thread-handle-interrupts))
    131131
    132 (defun select-interactive-abort-process ()
    133   (or *interactive-abort-process*
     132(defun select-interactive-abort-process (&aux proc)
     133  (or (and (setq proc *interactive-abort-process*)
     134           (process-active-p proc)
     135           proc)
    134136      (let* ((sr (input-stream-shared-resource *terminal-input*)))
    135         (if sr
    136           (or (shared-resource-current-owner sr)
    137               (shared-resource-primary-owner sr))))))
     137        (when sr
     138          (or (and (setq proc (shared-resource-current-owner sr))
     139                   (process-active-p proc)
     140                   proc)
     141              (and (setq proc (shared-resource-primary-owner sr))
     142                   (process-active-p proc)
     143                   proc))))))
    138144
    139145(defun handle-gc-hooks ()
Note: See TracChangeset for help on using the changeset viewer.