[test] Remove debug print from MAPC test

diff --git a/tests/list.lisp b/tests/list.lisp
index 0ce5106..4e6fb0c 100644 (file)
--- a/tests/list.lisp
+++ b/tests/list.lisp
@@ -124,5 +124,5 @@
 ;; MAPC
 (test (equal (mapc #'+ '(1 2) '(3) '(4 5 6)) '(1 2)))
 (test (let (foo)
-        (mapc (lambda (x y z) (print (list x y z)) (push (+ x y z) foo)) '(1 2) '(3) '(4 5 6))
+        (mapc (lambda (x y z) (push (+ x y z) foo)) '(1 2) '(3) '(4 5 6))
         (equal foo '(8))))