Re: CL compatibility question

[Lawrence Mitchell]

Joe Corneli wrote:

[...]

> In ELISP, not so great.

> (defbashfun taco (beef beans)
>   (car $@))
> (taco t nil)
> ;=> Debugger entered--Lisp error: (wrong-number-of-arguments
> (lambda (name lambda &body body) (\` (defun (\, name) (&rest
> $@) (apply (lambda (\, lambda) (\,@ body)) $@)))) 3)

This is because &body isn't a recognised lambda list keyword in
emacs lisp.  If you want to use full CL-style lambda lists in
DEFUN and DEFMACRO forms, you should do:

(require 'cl)

and use the DEFUN* and DEFMACRO* forms (note star).

(defmacro* defbashfun (name lambda &body body)
  `(defun ,name (&rest $@)
     (apply (lambda ,lambda ,@body) $@)))

(defbashfun taco (beef beans) (car $@))

(taco t nil) => t

Alternately, define defbashfun as:

(defmacro defbashfun (name lambda &rest body)
  ...)

[...]

-- 
Lawrence Mitchell <wence@gmx.li>