From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Fri, 10 May 2013 15:28:43 +0000 (+0200)
Subject: [test] Remove debug print from MAPC test
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=064ea3b5dfb0d44a71025990d91d54726cb42415;p=jscl.git

[test] Remove debug print from MAPC test
---

diff --git a/tests/list.lisp b/tests/list.lisp
index 0ce5106..4e6fb0c 100644
--- 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))))