50 |
(handler-case 'foo (condition () 'bar)) |
(handler-case 'foo (condition () 'bar)) |
51 |
foo) |
foo) |
52 |
|
|
53 |
(deftest handler-case.8 |
;;; (deftest handler-case.8 |
54 |
(handler-case 'foo (t () 'bar)) |
;;; (handler-case 'foo (t () 'bar)) |
55 |
foo) |
;;; foo) |
56 |
|
|
57 |
(deftest handler-case.9 |
(deftest handler-case.9 |
58 |
(handler-case (values 1 2 3 4 5 6 7 8) (condition () nil)) |
(handler-case (values 1 2 3 4 5 6 7 8) (condition () nil)) |
59 |
1 2 3 4 5 6 7 8) |
1 2 3 4 5 6 7 8) |
60 |
|
|
61 |
(deftest handler-case.10 |
;;; (deftest handler-case.10 |
62 |
(handler-case |
;;; (handler-case |
63 |
(error "foo") |
;;; (error "foo") |
64 |
(t () 'good)) |
;;; (t () 'good)) |
65 |
good) |
;;; good) |
66 |
|
|
67 |
(deftest handler-case.11 |
(deftest handler-case.11 |
68 |
(labels ((%f () (declare (special *c*)) |
(labels ((%f () (declare (special *c*)) |
82 |
(deftest handler-case.12 |
(deftest handler-case.12 |
83 |
(handler-case (error "foo") |
(handler-case (error "foo") |
84 |
(nil () nil) |
(nil () nil) |
85 |
(t (c) (notnot-mv (typep c 'simple-error)))) |
(error (c) (notnot-mv (typep c 'simple-error)))) |
86 |
t) |
t) |
87 |
|
|
88 |
(deftest handler-case.13 |
(deftest handler-case.13 |