Removed debugging PRINT.

Pascal J. Bourguignon [2012-02-23 23:15]
Removed debugging PRINT.
Filename
common-lisp/cesarum/utility.lisp
diff --git a/common-lisp/cesarum/utility.lisp b/common-lisp/cesarum/utility.lisp
index e41951d..9e13016 100644
--- a/common-lisp/cesarum/utility.lisp
+++ b/common-lisp/cesarum/utility.lisp
@@ -847,7 +847,7 @@ NOTE:    This version avoids calling FUN twice with the same argument.
              :with result = '()
              :for list :in lists
              :do (loop :for item :in list :do (push item result))
-             :finally (print (return result)))))
+             :finally (return result))))
     (loop
       :for follows = (delete-duplicates (join (mapcar fun set)))
       :then (delete-duplicates (join (cons follows (mapcar fun newbies))))
ViewGit