1 ;;;; Test of non-toplevel DEFMACRO
2 (cl:in-package :cl-user)
4 (eval-when (:compile-toplevel)
5 (defun defmacro-test-aux (x)
6 (setq *defmacro-test-status* `(function ,x))
10 (defmacro defmacro-test-aux (x)
11 (setq *defmacro-test-status* `(macro ,x ,z))
12 `(setq *defmacro-test-status* '(expanded ,x ,z))))
14 (eval-when (:compile-toplevel)
15 (defmacro-test-aux 'a))