Converting simple-game-window event methods to :afters

This ensures that methods defined on WINDOW still get called.
zkat · Jul 1, 2010 · 5c5b8d2 · 5c5b8d2
1 parent 76a4d1d
commit 5c5b8d2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/simple-game-engine.lisp b/src/simple-game-engine.lisp
@@ -7,7 +7,7 @@
   ((engine :initarg :engine :accessor engine)))
 
 (macrolet ((defev (name (window-name &rest rest-of-lambda-list))
-             `(defmethod ,name ((,window-name simple-game-window) ,@rest-of-lambda-list)
+             `(defmethod ,name :after ((,window-name simple-game-window) ,@rest-of-lambda-list)
                 (,name (engine ,window-name) ,@rest-of-lambda-list))))
   (defev on-key-down (window keycode keysym string))
   (defev on-key-up (window keycode keysym string))