From d31bd2e62741a1a1c899974406a51360a7356852 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 14 Jun 2005 02:22:33 +0000
Subject: [PATCH] Define the declaration/type conflict tests only if the system
 actually warnings on bogus declarations

---
 ansi-tests/declaration.lsp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/declaration.lsp b/ansi-tests/declaration.lsp
index 5ee823f7..70848387 100644
--- a/ansi-tests/declaration.lsp
+++ b/ansi-tests/declaration.lsp
@@ -27,6 +27,12 @@
 ;;;  structure, condition, or type, when the symbol has been
 ;;;  declared as a declaration name, or vice versa, signals an error."
 
+;;; Declare these only if bad declarations produce warnings.
+
+(when (block done
+	(handler-bind ((warning #'(lambda (c) (return-from done t))))
+		      (eval `(let () (declare (,(gensym))) nil))))
+
 (deftest declaration.4
   (let ((sym (gensym)))
     (proclaim `(declaration ,sym))
@@ -54,7 +60,7 @@
 
 (deftest declaration.8
   (let ((sym (gensym)))
-    (eval `(deftype ,sym () error))
+    (eval `(deftype ,sym () 'error))
     (eval `(signals-error-always (proclaim '(declaration ,sym))
 				 error)))
   t t)
@@ -80,6 +86,8 @@
 				 error)))
   t t)
 
+)
+
 
 
 
-- 
GitLab