2
;;;; Author: Paul Dietz
3
;;;; Created: Sun Mar 23 09:13:59 2003
4
;;;; Contains: Tests for USE-VALUE restart and function
10
(progn (use-value 10) 'bad)
11
(use-value (x) (list x 'good)))
15
(let ((c1 (make-condition 'error))
16
(c2 (make-condition 'error)))
18
(with-condition-restarts
20
(list (first (compute-restarts)))
22
(use-value (x) (list x 'bad))
23
(use-value (x) (list x 'good))))
28
(progn (use-value 11 nil) 'bad)
29
(use-value (x) (list x 'good)))
33
(let ((c1 (make-condition 'error))
34
(c2 (make-condition 'error)))
36
(with-condition-restarts
38
(list (first (compute-restarts)))
40
(use-value (x) (list x 'good))
41
(use-value (x) (list x 'bad))))
45
(let ((c1 (make-condition 'error))
46
(c2 (make-condition 'error)))
47
(with-condition-restarts
50
;; All conditions are now associated with c1