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.")
#-threads
`(progn ,@body)
#+threads
`(unwind-protect
(progn
(register-in-waiting-list mp:*current-process*)
(grab-console mp:*current-process*)
,@body)
(delete-from-waiting-list mp:*current-process*)
(release-console mp:*current-process*)))
`(mp:without-interrupts
(unwind-protect
(mp:with-restored-interrupts
(register-in-waiting-list mp:*current-process*)
(grab-console mp:*current-process*)
,@body)
(delete-from-waiting-list mp:*current-process*)
(release-console mp:*current-process*))))
(defparameter *allow-recursive-debug* nil)
(defparameter *debug-status* nil)
......
Markdown is supported
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