diff options
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))) |