compiler macros without byte-compilation

[Nicolas Richard <theonewiththeevillook@yahoo.fr>]

Hello,

Consider the following:
(progn
  (defun foobar ()
    (declare (compiler-macro
              (lambda (arg)
                "compiler-macro")))
    (message "Done !"))
  (list (symbol-function 'foobar)
        (foobar)))
hit C-x C-e :
 => ((lambda nil (message "Done !")) "compiler-macro")

Now I'm puzzled : why does this happen ? foobar wasn't compiled here !

Looking at readevalloop in lread.c, I thought it was maybe because of
eager macro expansion [which the manual only mentions as happenning at
load time], and in particular I tried changing (symbol-function
'internal-macroexpand-for-load), but that doens't seem to have any
influence on the above behaviour:

(cl-letf (((symbol-function 'internal-macroexpand-for-load) nil))
  (progn
    (defun foobar ()
      (declare (compiler-macro
                (lambda (arg)
                  "compiler-macro")))
      (message "Done !"))
    (list (symbol-function 'foobar)
          (foobar))))
 => ((lambda nil (message "Done !")) "compiler-macro")

Could someone shed some light on this ?

-- 
Nicolas Richard