Re: Macro vs Function

[David Kastrup <dak@gnu.org>]

"Herbert Euler" <herberteuler@hotmail.com> writes:

> What I'm trying to do can be found at
>
>    http://lists.gnu.org/archive/html/help-gnu-emacs/2006-04/msg00185.html
>
> The reason why ,(car largs) is not sufficient is that 'apply' requires
> a list as the last argument. While I call 'xgp-casi2-safe-call-iter' with
>
>    (xgp-casi2-safe-call-iter '+ ((1 2 a) (3 4)))
>
> (car largs) is (1 2 a), which it's not a list when evaluating
>
>    (apply '+ (1 2 a))
>
> (I've modified xgp-casi2-safe-call but it's not accessible now.  I'll
> post it when
> it's accessible.)

Why are you bothering with "apply" in the first place?  It does not
look like you have any need for it.  Just write

(defmacro xgp-casi2-safe-call-iter (func largs)
 (and largs
     `(condition-case nil
	   (,func ,@(car largs))
	 (error (xgp-casi2-safe-call-iter ,func ,(cdr largs))))))

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum