small revision

This commit is contained in:
polos 2017-05-13 09:39:26 +02:00
parent 9367214ca3
commit 49dede8435

View file

@ -34,7 +34,7 @@
(,@expression (lambda (x)
(setf ,result x)
(|exit| ,ev-loop)))
(|exec| ,ev-loop))
(|exec| ,ev-loop |QEventLoop.ExcludeUserInputEvents|))
,result)))
(defun to-text* ()