diff options
-rw-r--r-- | src/utils.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
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))))) + + |