blob: be951e6dc02a78f8923ee1c890ce480576d22f18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;;;; Test of non-toplevel DEFMACRO
(cl:in-package :cl-user)
(eval-when (:compile-toplevel)
(defun defmacro-test-aux (x)
(setq *defmacro-test-status* `(function ,x))
nil))
(let ((z 'z-value))
(defmacro defmacro-test-aux (x)
(setq *defmacro-test-status* `(macro ,x ,z))
`(setq *defmacro-test-status* '(expanded ,x ,z))))
(eval-when (:compile-toplevel)
(defmacro-test-aux 'a))
|