23a4ab452609
Remove logging
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Mon, 05 Mar 2018 14:33:44 -0500 |
parents | 7c7fc72df64c |
children | 148a6a1cc9eb |
branches/tags | (none) |
files | src/looms/004-turtle-curves.lisp |
Changes
--- 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)