Changeset 11730


Ignore:
Timestamp:
Feb 12, 2009, 1:13:49 PM (10 years ago)
Author:
gz
Message:

In select-interactive-abort-process, guard against inactive processes

File:
1 edited

Legend:

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

    r11499 r11730  
    137137  (thread-handle-interrupts))
    138138
    139 (defun select-interactive-abort-process ()
    140   (or *interactive-abort-process*
     139(defun select-interactive-abort-process (&aux proc)
     140  (or (and (setq proc *interactive-abort-process*)
     141           (process-active-p proc)
     142           proc)
    141143      (let* ((sr (input-stream-shared-resource *terminal-input*)))
    142         (if sr
    143           (or (shared-resource-current-owner sr)
    144               (shared-resource-primary-owner sr))))))
     144        (when sr
     145          (or (and (setq proc (shared-resource-current-owner sr))
     146                   (process-active-p proc)
     147                   proc)
     148              (and (setq proc (shared-resource-primary-owner sr))
     149                   (process-active-p proc)
     150                   proc))))))
    145151
    146152(defun handle-gc-hooks ()
Note: See TracChangeset for help on using the changeset viewer.