From 15ebaa6e202e3303266ebc7e9e2b3e51326683a2 Mon Sep 17 00:00:00 2001 From: Alfredo Beaumont Date: Fri, 10 May 2013 16:45:14 +0200 Subject: [PATCH] [test] Add a test for mapcar --- tests/list.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/tests/list.lisp b/tests/list.lisp index 9bb2996..d96c7db 100644 --- a/tests/list.lisp +++ b/tests/list.lisp @@ -88,6 +88,9 @@ (and (= bar 1) (= (car foo) 2)))) +;; MAPCAR +(test (equal (mapcar #'+ '(1 2) '(3) '(4 5 6)) '(8))) + ;; MAPC (test (equal (mapc #'+ '(1 2) '(3) '(4 5 6)) '(1 2))) (test (let (foo) -- 1.7.10.4