| Good Morning Ladies and Gentlemen. First of all please forgive me if this question has already been answered in another thread. What is the anarki equivalent of (declare (ignorable x)). Please find respectively: the relevant macro, it's application and the output below. (defmacro tree-leaves (tree test result)
`(tree-leaves%%
,tree
(lambda (x)
(declare (ignorable x))
,test)
(lambda (x)
(declare (ignorable x))
,result)))
(tree-leaves
'(1 2 (3 4 (5 . 6)))
(and (numberp x) (evenp x))
'even-number)
(1 EVEN-NUMBER (3 EVEN-NUMBER (5 . EVEN-NUMBER)))
Help is greatly appreciated. The following is a link to the page: http://letoverlambda.com/index.cl/guest/chap5.html#sec_7 |