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