;; -*- mode: lisp-data -*-

(fset 'test (cons 'macro (lambda (x) (declare (name test)) (list 'princ x))))

(prin1 (macroexpand-all '(lambda () (test x))
                        '((test . (lambda (x) (test x))))))
(write-byte ?\n)