🚀 go-pugleaf

Emacs-18.55 on sun3.

Macroexpand does not expand "macros" of the form (NAME . SYMBOL) in
its ENVIRONMENT argument.  I discovered it because my bytecomp
compiles ((macro . SYMBOL) ARGS) forms wrongly.
It does recognize NAME though; NAME's function definition is ignored.

Example:

  (defmacro foo (x) (1- x))
  ==> foo				; OK
  (macroexpand '(foo 0) '((foo . 1+)))
  ==> (foo 0)				; Wrong
  (macroexpand '(foo 0) (list (cons 'foo (symbol-function '1+))))
  ==> 1					; OK
  (macroexpand '(foo 0))
  ==> -1				; OK

It works OK if you replace identity with #<subr identity> or (lambda (x) x).


BTW, backquote does not like such macro calls either.
(` ((macro . identity) 2))
==> Wrong type argument: listp, identity


			Hallvard