From f225fa080180c56d653614e0a4a852305b622a98 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 16 May 2005 13:57:17 +0000 Subject: [PATCH] Add test that compiler macros don't override ordinary macros when a NOTINLINE declaration is in effectt. --- ansi-tests/define-compiler-macro.lsp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/ansi-tests/define-compiler-macro.lsp b/ansi-tests/define-compiler-macro.lsp index 8026dd31..e7f83ccd 100644 --- a/ansi-tests/define-compiler-macro.lsp +++ b/ansi-tests/define-compiler-macro.lsp @@ -154,3 +154,22 @@ 5 11) *x*))) (5 11) :good) + +(deftest define-compiler-macro.8 + (let* ((sym (gensym)) + (form `(define-compiler-macro ,sym (x y) + (declare (special *x*)) + (setf *x* :bad) + `(list ,x ,y))) + (form2 `(defmacro ,sym (x y) `(list ,x ,y)))) + (eval form) + (eval form2) + (let ((*x* :good)) + (declare (special *x*)) + (values + (funcall (compile nil `(lambda (a b) + (declare (notinline ,sym)) + (,sym a b))) + 7 23) + *x*))) + (7 23) :good) -- GitLab