From fa867d23be9ccf31252a88527d4ea73ab69f4fbd Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 2 Dec 2005 13:57:39 +0000
Subject: [PATCH] Fixed bug in constantp.11 pointed out by DR

---
 ansi-tests/constantp.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/constantp.lsp b/ansi-tests/constantp.lsp
index 2bcfa9f8..c9eb62e5 100644
--- a/ansi-tests/constantp.lsp
+++ b/ansi-tests/constantp.lsp
@@ -69,7 +69,7 @@
 (deftest constantp.11
   (macrolet ((macro-for-constantp.11 (y)
 	       (declare (ignore y))
-	       *standard-input*))
+	       '*standard-input*))
     (macrolet ((%m (&environment env)
 		 (if (constantp '(macro-for-constantp.11 0) env)
 		     :bad
-- 
GitLab