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.")
`(progn ,@body)
(register-in-waiting-list mp:*current-process*)
(grab-console mp:*current-process*)
(delete-from-waiting-list mp:*current-process*)
(release-console mp:*current-process*)))
(release-console mp:*current-process*))))
(defparameter *allow-recursive-debug* 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