Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix win32 %peek-message call.

Test if return value is non-zero, not doing this
lead to stalled messages in the queue and
a bad event loop ensues.
  • Loading branch information...
commit f7a601e05cdb6e50bb626a460833c765267e152b 1 parent 51fe11f
@patzy authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/win32/win32.lisp
View
2  src/win32/win32.lisp
@@ -549,7 +549,7 @@
(when (> (%get-message msg wnd 0 0) 0)
(%translate-message msg)
(%dispatch-message msg))
- (when (%peek-message msg wnd 0 0 :pm-remove)
+ (when (> (%peek-message msg wnd 0 0 :pm-remove) 0)
(%translate-message msg)
(%dispatch-message msg))))
%event%))
Please sign in to comment.
Something went wrong with that request. Please try again.