159 |
(deftest warn.18 |
(deftest warn.18 |
160 |
(signals-error (warn (make-condition 'simple-error)) type-error) |
(signals-error (warn (make-condition 'simple-error)) type-error) |
161 |
t) |
t) |
162 |
|
|
163 |
|
(deftest warn.19 |
164 |
|
(let ((warned nil)) |
165 |
|
(handler-bind |
166 |
|
((warning #'(lambda (c) |
167 |
|
(assert (typep c 'simple-warning)) |
168 |
|
(setf warned t) |
169 |
|
(muffle-warning c)))) |
170 |
|
(values |
171 |
|
(multiple-value-list |
172 |
|
(warn (make-condition 'simple-warning |
173 |
|
:format-control (formatter "Foo!")))) |
174 |
|
warned))) |
175 |
|
(nil) t) |