Loop style nitsHEADmain

1 files changed, 3 insertions, 3 deletions

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)