Re: Defining functions on the fly

[Michael Heerdegen]

Tassilo Horn <tsdh@gnu.org> writes:

> > (defvar pfxd "pfxd-")
> >
> > (defun (intern (concat pfxd "-foo")) ())
> >
> > -->
> >
> > Debugger entered--Lisp error: (wrong-type-argument symbolp (intern
> > (concat pfxd
> > "-foo")))
> >   defalias((intern (concat pfxd "-foo")) (lambda nil nil))
>
> This might depend on emacs version.  At least with the current git
> version, `defalias' evaluates its first argument:
>
>   (defalias (intern "foo-bar") #'forward-sexp) ;; Works fine

In the example above, in the expansion of the `defun' call the first
argument to defalias is the (unevaluated!) list:

  (intern (concat pfxd "-foo"))

The corresponding call to defalias will also fail on trunk.


Michael.