diff options
Diffstat (limited to 'gui/button.lisp')
| -rw-r--r-- | gui/button.lisp | 6 |
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) |