From f2f49f3beae4fb62292e9a80e7ddda64de098771 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 15 Jul 2022 12:59:45 -0500 Subject: [fix] argument typo in setf-many macro --- src/utils.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/utils.lisp b/src/utils.lisp index ed7be38..0f268be 100644 --- a/src/utils.lisp +++ b/src/utils.lisp @@ -103,7 +103,7 @@ the path." :width (- max-x min-x) :height (- max-y min-y))))) -(defmacro setf-many (places-and-value) +(defmacro setf-many (&rest places-and-value) "e.g. (setf-many a b c 10) would set a b and c to 10" (let ((value-form (first (last places-and-value)))) @@ -127,3 +127,5 @@ connecting the integer point START-X , START-Y and END-X, END-Y. " for ,x = (round (+ ,start-x (* ,progress ,xdiff))) for ,y = (round (+ ,start-y (* ,progress ,ydiff))) do (progn ,@body))))) + + -- cgit v1.2.3