Loop style nitsHEADmain

1 files changed, 6 insertions, 6 deletions

diff --git a/src/canvas-language.lisp b/src/canvas-language.lisp
index 1a8b12e..5bdf1c8 100644
--- a/src/canvas-language.lisp
+++ b/src/canvas-language.lisp
@@ -95,7 +95,7 @@ integer."
 
 (defun rel-to-current-pos (path)
   (destructuring-bind (cx cy) *current-pen-position* 
-    (loop for (x y) in path collect (list (+ cx x) (+ cy y)))))
+    (loop :for (x y) :in path :collect (list (+ cx x) (+ cy y)))))
 
 (defun move-pen-to (x y)
   "Sets the pen's position without drawing. "
@@ -152,11 +152,11 @@ the pen relative to its antecedent, look at STROKE-STEPS"
 
 (defun steps-to-concrete-points (steps)
   (loop
-    with (cx cy) = *current-pen-position*
-    for (dx dy) in steps
-    do (incf cx dx)
-       (incf cy dy)
-    collect (list cx cy)))
+    :with (cx cy) := *current-pen-position*
+    :for (dx dy) :in steps
+    :do (incf cx dx)
+        (incf cy dy)
+    :collect (list cx cy)))
 
 (defun stroke-steps (steps)
   "STEPS is a list of (dx dy) steps. The pen starts at the current