tests/defmacro-test.lisp

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