mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
c6f456356f
DEFMACRO is implemented via EVAL-WHEN
... removed IR1 translator of %DEFMACRO
... removed %%DEFMACRO; its functionality is moved into
%DEFMACRO
16 lines
399 B
Common Lisp
16 lines
399 B
Common Lisp
;;;; 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))
|