2
;;;; Author: Paul Dietz
3
;;;; Created: Sun Mar 23 08:46:05 2003
4
;;;; Contains: Tests of the MUFFLE-WARNING restart and function
8
(deftest muffle-warning.1
10
(progn (muffle-warning) 'bad)
11
(muffle-warning () 'good))
14
(deftest muffle-warning.2
15
(let ((c1 (make-condition 'error))
16
(c2 (make-condition 'error)))
18
(with-condition-restarts
20
(list (first (compute-restarts)))
22
(muffle-warning () 'bad)
23
(muffle-warning () 'good)))
26
(deftest muffle-warning.3
28
(progn (muffle-warning nil) 'bad)
29
(muffle-warning () 'good))
32
(deftest muffle-warning.4
33
(let ((c1 (make-condition 'error))
34
(c2 (make-condition 'error)))
36
(with-condition-restarts
38
(list (first (compute-restarts)))
40
(muffle-warning () 'good)
41
(muffle-warning () 'bad)))
44
(deftest muffle-warning.5
46
(let ((c1 (make-condition 'error))
47
(c2 (make-condition 'error)))
48
(with-condition-restarts
51
;; All conditions are now associated with c1