Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Loop prevented compilation on ECL

  • Loading branch information...
commit 333744a3a2f7d94d70c2745183e0b09f20122fa4 1 parent 0bab76b
@zkat authored
Showing with 4 additions and 3 deletions.
  1. +4 −3 src/window.lisp
View
7 src/window.lisp
@@ -177,10 +177,11 @@
(declare (ignore dt))
(when (openp window)
(loop
- while (openp window)
for event = (glop:next-event (glop-window window) :blocking nil)
- while event
- do (dispatch-glop-event window event))))
+ while (openp window)
+ do (if event
+ (dispatch-glop-event window event)
+ (return)))))
#+nil(defun key-down-p (engine key)
"Is KEY being held down?"
Please sign in to comment.
Something went wrong with that request. Please try again.