[Sbcl-help] *MACROEXPAND-HOOK* and symbol macros

[Lars B. <la...@no...>]

SBCL 0.8.4, Linux/ppc.

This

    (let ((*macroexpand-hook*
            (lambda (fn form env)   
              (format t "~&Expanding ~S." form)
              (funcall fn form env))))
      (compile nil '(lambda ()
                     (macrolet ((foo () 42)) (foo))
                     (symbol-macrolet ((foo 42)) foo))))

prints "Expanding (FOO)." (among other things), but not "Expanding
FOO."  Is this true for recent versions too?  The CLHS page on
MACROEXPAND-1 says *MACROEXPAND-HOOK* is consulted for all macro
forms, which include symbol macros.

-- 
Lars Brinkhoff,         Services for Unix, Linux, GCC, HTTP
Brinkhoff Consulting    http://www.brinkhoff.se/