diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-15 12:59:45 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-15 12:59:45 -0500 |
| commit | f2f49f3beae4fb62292e9a80e7ddda64de098771 (patch) | |
| tree | 7ed56a5d35e92cf0b9f5e4021bf6cc537f729147 /src/utils.lisp | |
| parent | ab4544c11d6542203d4c582ec7d6ecda6b470ae6 (diff) | |
[fix] argument typo in setf-many macro
Diffstat (limited to 'src/utils.lisp')
| -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))))) + + |