From 08a29ff775cf841a80ed2433ab219ccc953835ef Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 1 Jul 2022 19:18:22 -0500
Subject: [remove] [dep] lambda-riffs and hyperquirks

---
 src/wheelwork.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/wheelwork.lisp')

diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp
index 6b32119..ffcb242 100644
--- a/src/wheelwork.lisp
+++ b/src/wheelwork.lisp
@@ -43,7 +43,8 @@ TARGET is FOCUSABLEP"
 
 (defun get-handlers-for (unit event-type)
   "EVENT-TYPE must be one of the slot value names for WHEELWORK::LISTENER."
-  (?> (unit) listener #$(slot-value $listener event-type)))
+  (when-let (listener (listener unit)) 
+    (slot-value listener event-type)))
 
 (defun eventloop-keydown (app sdl-keysym)
   (let ((target (get-focus app))) 
-- 
cgit v1.2.3