Commit 95b0523b authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

top.lsp: make with-grabbed-console interrupt safe

parent b5194ca7
...@@ -466,13 +466,14 @@ under certain conditions; see file 'Copyright' for details.") ...@@ -466,13 +466,14 @@ under certain conditions; see file 'Copyright' for details.")
#-threads #-threads
`(progn ,@body) `(progn ,@body)
#+threads #+threads
`(unwind-protect `(mp:without-interrupts
(progn (unwind-protect
(register-in-waiting-list mp:*current-process*) (mp:with-restored-interrupts
(grab-console mp:*current-process*) (register-in-waiting-list mp:*current-process*)
,@body) (grab-console mp:*current-process*)
(delete-from-waiting-list mp:*current-process*) ,@body)
(release-console mp:*current-process*))) (delete-from-waiting-list mp:*current-process*)
(release-console mp:*current-process*))))
(defparameter *allow-recursive-debug* nil) (defparameter *allow-recursive-debug* nil)
(defparameter *debug-status* nil) (defparameter *debug-status* nil)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment