Commit a3fa6894 authored by pfdietz's avatar pfdietz

The types in handlers must be subtypes of CONDITION, so some of the tests were flawed. Fixed that.

parent 3dbea587
......@@ -109,8 +109,10 @@
(deftest handler-bind.15
(catch 'done
(handler-bind
((t #'(lambda (c) (declare (ignore c))
(throw 'done 'good))))
((nil #'(lambda (c) (declare (ignore c))
(throw 'done 'bad)))
(error #'(lambda (c) (declare (ignore c))
(throw 'done 'good))))
(error "an error")))
good)
......
......@@ -50,19 +50,19 @@
(handler-case 'foo (condition () 'bar))
foo)
(deftest handler-case.8
(handler-case 'foo (t () 'bar))
foo)
;;; (deftest handler-case.8
;;; (handler-case 'foo (t () 'bar))
;;; foo)
(deftest handler-case.9
(handler-case (values 1 2 3 4 5 6 7 8) (condition () nil))
1 2 3 4 5 6 7 8)
(deftest handler-case.10
(handler-case
(error "foo")
(t () 'good))
good)
;;; (deftest handler-case.10
;;; (handler-case
;;; (error "foo")
;;; (t () 'good))
;;; good)
(deftest handler-case.11
(labels ((%f () (declare (special *c*))
......@@ -82,7 +82,7 @@
(deftest handler-case.12
(handler-case (error "foo")
(nil () nil)
(t (c) (notnot-mv (typep c 'simple-error))))
(error (c) (notnot-mv (typep c 'simple-error))))
t)
(deftest handler-case.13
......
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