Loop prevented compilation on ECL

zkat · Jul 16, 2010 · 333744a · 333744a
1 parent 0bab76b
commit 333744a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/window.lisp b/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?"