[fix] typo in listener-table-for

1 files changed, 2 insertions, 6 deletions

diff --git a/src/events/listener.lisp b/src/events/listener.lisp
index 3e195ff..366465a 100644
--- a/src/events/listener.lisp
+++ b/src/events/listener.lisp
@@ -39,17 +39,13 @@
   (ecase event-type
     (keydown (keydown-table listener))
     (keyup   (keyup-table listener))
-    (mousedown (mousewheel-table listener))
+    (mousedown (mousedown-table listener))
     (mouseup (mouseup-table listener))
     (mousemotion (mousemotion-table listener))
     (mousewheel (mousewheel-table listener))
     (focus (focus-table listener))
     (blur (blur-table listener))
-    (perframe (perframe-table listener))
-    (after-added (after-added-table listener))
-    (before-added (before-added-table listener))
-    (after-dropped (after-dropped-table listener))
-    (before-dropped (before-dropped-table listener))))
+    (perframe (perframe-table listener))))
 
 (defun should-listen-for-p (event-type app)
   (plusp (hash-table-count (listener-table-for (listener app) event-type))))