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