Commit a2699629 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

fix tutorial #1

parent 4f1595f7
......@@ -220,8 +220,8 @@ Evaluate the forms below in the `Slime REPL`:
(let* ((x 300) (y 300) (new-x x) (new-y y) (a 1) (step 15))
(loop
for r in (gen n)
do (progn (cond ((= a 1) (setq new-y (+ step y))) ; .5 pi
((= a 2) (setq new-x (- x step))) ; and onwards
do (progn (cond ((= a 1) (setq new-y (+ step y)))
((= a 2) (setq new-x (- x step)))
((= a 3) (setq new-y (- y step)))
((= a 4) (setq new-x (+ step x))))
(case r
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment