diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-01 19:18:22 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-01 19:18:22 -0500 |
| commit | 08a29ff775cf841a80ed2433ab219ccc953835ef (patch) | |
| tree | 20020ed9ba6e8ab229925cad1432fe4b3f54a857 /src/wheelwork.lisp | |
| parent | 59f5cb6c28399c84221b728daf4bd8461ab1e230 (diff) | |
[remove] [dep] lambda-riffs and hyperquirks
Diffstat (limited to 'src/wheelwork.lisp')
| -rw-r--r-- | src/wheelwork.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |