Re: Defining functions on the fly

[Michael Heerdegen <michael_heerdegen@web.de>]

Tassilo Horn <tsdh@gnu.org> writes:

> Ah, yes, so that's basically as if
>
>   (defalias '(intern (concat pfxd "-foo")) ...)
>
> had been written.

Yip: (macroexpand '(defun (concat "current-prefix-" foo) ())) ==>

(defalias
  '(concat "current-prefix-" foo)
  #'(lambda nil nil))

The "problem" is that the defun macro (intentionally) adds a quote, so
that

  (defun name ..)

expands to

  (defalias 'name ...)

and `name' doesn't get evaluated.  If the defun macro would not add that
quote, you would have to write

  (defun 'name ...)

but (defun (intern name) ...) would work then.


Michael.