Really restore clisp cross-compilation.
[sbcl.git] / 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))