23a4ab452609

Remove logging
[view raw] [browse files]
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)