From 92fd2856ba480282c8a375c3d015fa841ef9810a Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 23 Jan 2011 18:58:56 +0100 Subject: [PATCH] The interrupt function terminal-interrupt ignores the signal servicing thread --- src/lsp/top.lsp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp index 00889718b..02d36e2e9 100644 --- a/src/lsp/top.lsp +++ b/src/lsp/top.lsp @@ -509,7 +509,8 @@ Use special code 0 to cancel this operation.") (loop with this = mp:*current-process* for p in (mp:all-processes) unless (or (eq p this) - (eq (mp:process-name p) 'si::handle-signal)) + (member (mp:process-name p) + '(si:signal-servicing si::handle-signal))) collect p))) (when (and (= (length all-processes) 1) *interrupt-lonely-threads-p*) (mp:interrupt-process (first all-processes) @@ -520,7 +521,7 @@ Use special code 0 to cancel this operation.") (push i suspended) (mp:process-suspend i))) (flet ((do-query-process () - (print all-processes) + (print all-processes) (query-process all-processes))) (mp:with-local-interrupts (restart-case (simple-terminal-interrupt)