14 |
(deftest cell-error-name.2 |
(deftest cell-error-name.2 |
15 |
(handler-case |
(handler-case |
16 |
(eval '(my-undefined-function)) |
(eval '(my-undefined-function)) |
17 |
|
;; (warning (c) (muffle-warning c)) |
18 |
(cell-error (c) (cell-error-name c))) |
(cell-error (c) (cell-error-name c))) |
19 |
my-undefined-function) |
my-undefined-function) |
20 |
|
|
29 |
(deftest cell-error-name.5 |
(deftest cell-error-name.5 |
30 |
(cell-error-name (make-condition 'unbound-slot :name 's)) |
(cell-error-name (make-condition 'unbound-slot :name 's)) |
31 |
s) |
s) |
32 |
|
|
33 |
|
(deftest cell-error-name.6 |
34 |
|
(let ((i 0)) |
35 |
|
(values |
36 |
|
(cell-error-name (progn (incf i) (make-condition |
37 |
|
'unbound-slot :name 's))) |
38 |
|
i)) |
39 |
|
s 1) |
40 |
|
|
41 |
|
|
42 |
;;; Need test raising condition unbound-slot |
;;; Need test raising condition unbound-slot |
43 |
|
|