89 |
(error "an error")))) |
(error "an error")))) |
90 |
good) |
good) |
91 |
|
|
92 |
|
(deftest handler-bind.13 |
93 |
|
(handler-bind |
94 |
|
((error #'(lambda (c) (declare (ignore c)) |
95 |
|
(throw 'done 'good)))) |
96 |
|
(catch 'done |
97 |
|
(error "an error"))) |
98 |
|
good) |
99 |
|
|
100 |
|
(deftest handler-bind.14 |
101 |
|
(catch 'done |
102 |
|
(handler-bind |
103 |
|
((symbol #'identity) ;; can never succeed |
104 |
|
(error #'(lambda (c) (declare (ignore c)) |
105 |
|
(throw 'done 'good)))) |
106 |
|
(error "an error"))) |
107 |
|
good) |
108 |
|
|
109 |
|
(deftest handler-bind.15 |
110 |
|
(catch 'done |
111 |
|
(handler-bind |
112 |
|
((t #'(lambda (c) (declare (ignore c)) |
113 |
|
(throw 'done 'good)))) |
114 |
|
(error "an error"))) |
115 |
|
good) |
116 |
|
|
117 |
|
(deftest handler-bind.16 |
118 |
|
(catch 'done |
119 |
|
(handler-bind |
120 |
|
(((not error) #'identity) |
121 |
|
(error |
122 |
|
#'(lambda (c) (declare (ignore c)) |
123 |
|
(throw 'done 'good)))) |
124 |
|
(error "an error"))) |
125 |
|
good) |
126 |
|
|
127 |
|
(deftest handler-bind.17 |
128 |
|
(catch 'done |
129 |
|
(handler-bind |
130 |
|
((#.(find-class 'error) |
131 |
|
#'(lambda (c) (declare (ignore c)) |
132 |
|
(throw 'done 'good)))) |
133 |
|
(error "an error"))) |
134 |
|
good) |
135 |
|
|
136 |
;;; More handler-bind tests elsewhere |
;;; More handler-bind tests elsewhere |
137 |
|
|
138 |
|
|