From 543704f0f54cbb1de78754ad8a323c482ab6829c Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 14 Dec 2024 12:29:29 -0800 Subject: Loop style nits --- src/interactive/interactive.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/interactive/interactive.lisp') diff --git a/src/interactive/interactive.lisp b/src/interactive/interactive.lisp index 74a22d1..8355329 100644 --- a/src/interactive/interactive.lisp +++ b/src/interactive/interactive.lisp @@ -12,8 +12,9 @@ (defun remove-all-handlers (interactive) (loop - for type in '(keydown keyup mousedown mouseup mousemotion mousewheel focus blur perframe) - do (remove-handler interactive type))) + :for type + :in '(keydown keyup mousedown mouseup mousemotion mousewheel focus blur perframe) + :do (remove-handler interactive type))) (defmethod cleanup :after ((ob interactive)) (remove-all-handlers ob)) -- cgit v1.2.3