--- a/src/looms/004-turtle-curves.lisp Mon Mar 05 14:32:24 2018 -0500
+++ b/src/looms/004-turtle-curves.lisp Mon Mar 05 14:33:44 2018 -0500
@@ -211,18 +211,14 @@
(defun mutation-transpose (result)
- (pr 'transposing result)
(rotatef (elt result (rand (length result)))
(elt result (rand (length result))))
- (pr '----------> result)
result)
(defun mutation-insert (result)
- (pr 'inserting result)
(zapf result (insert (random-elt result #'rand)
%
(rand (length result))))
- (pr '--------> result)
result)
(defun mutate-production (result)