From a6323eb7aafbf5c73e6fff61e5c8f370081abedd Mon Sep 17 00:00:00 2001 From: Magnar Sveen Date: Wed, 10 Oct 2012 16:09:44 +0200 Subject: [PATCH] Add some tests that verify that the lists are evaled by the anaphoric macros. --- examples.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/examples.el b/examples.el index 7930874..e0fcf9f 100644 --- a/examples.el +++ b/examples.el @@ -7,11 +7,13 @@ (defun even? (num) (= 0 (% num 2))) (defun square (num) (* num num)) +(defun three-letters () '("A" "B" "C")) (defexamples !map (!map (lambda (num) (* num num)) '(1 2 3 4)) => '(1 4 9 16) (!map 'square '(1 2 3 4)) => '(1 4 9 16) - (!!map (* it it) '(1 2 3 4)) => '(1 4 9 16)) + (!!map (* it it) '(1 2 3 4)) => '(1 4 9 16) + (!!map (concat it it) (three-letters)) => '("AA" "BB" "CC")) (defexamples !reduce-from (!reduce-from '+ 7 '(1 2)) => 10 @@ -99,4 +101,6 @@ (defexamples !each (let (s) (!each '(1 2 3) (lambda (item) (setq s (cons item s))))) => nil (let (s) (!each '(1 2 3) (lambda (item) (setq s (cons item s)))) s) => '(3 2 1) - (let (s) (!!each '(1 2 3) (setq s (cons it s))) s) => '(3 2 1)) + (let (s) (!!each '(1 2 3) (setq s (cons it s))) s) => '(3 2 1) + (let (s) (!!each (reverse (three-letters)) (setq s (cons it s))) s) => '("A" "B" "C") +)