Commit d31bd2e6 authored by pfdietz's avatar pfdietz

Define the declaration/type conflict tests only if the system actually...

Define the declaration/type conflict tests only if the system actually warnings on bogus declarations
parent d9e4c9d6
......@@ -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)
)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment