Ignore:
Timestamp:
Mar 14, 2009, 4:42:20 AM (11 years ago)
Author:
rme
Message:

Merge trunk changes r11790-r11794, r11796, r11801, r11803

(GC fixes, additional x8632 vinsns, easygui enhancements, x8632 callback fix)

File:
1 edited

Legend:

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

    r11450 r11814  
    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.