From 543704f0f54cbb1de78754ad8a323c482ab6829c Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 14 Dec 2024 12:29:29 -0800
Subject: Loop style nits

---
 gui/button.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gui/button.lisp')

diff --git a/gui/button.lisp b/gui/button.lisp
index bebea08..dfb6a06 100644
--- a/gui/button.lisp
+++ b/gui/button.lisp
@@ -76,12 +76,12 @@
 (macrolet
     ((def-accessors (&rest accessor-names)
        (let ((defs 
-               (loop for accessor-name in accessor-names
-                     collect 
+               (loop :for accessor-name :in accessor-names
+                     :collect 
                      `(defmethod ,accessor-name ((button button))
                         (,accessor-name (button-up button)))
 
-                     collect
+                     :collect
                      `(defmethod (setf ,accessor-name) (newval (button button))
                         (setf (,accessor-name (button-up button)) newval
                               (,accessor-name (button-down button)) newval)
-- 
cgit v1.2.3