From 064ea3b5dfb0d44a71025990d91d54726cb42415 Mon Sep 17 00:00:00 2001 From: Alfredo Beaumont Date: Fri, 10 May 2013 17:28:43 +0200 Subject: [PATCH] [test] Remove debug print from MAPC test --- tests/list.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 1.7.10.4