small revision
This commit is contained in:
parent
9367214ca3
commit
49dede8435
1 changed files with 1 additions and 1 deletions
|
|
@ -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* ()
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue