mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 12:33:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Marius Gerbershagen 2018-09-09 17:44:53 +02:00
parent b5194ca774
commit 95b0523bfe
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/lsp/top.lsp
View file

@ -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)