81 |
|
|
82 |
|
|
83 |
(deftest ctypecase.13 |
(deftest ctypecase.13 |
84 |
(ctypecase 'a |
(let ((x 'a)) |
85 |
(number 'bad) |
(ctypecase x |
86 |
(#.(find-class 'symbol nil) 'good)) |
(number 'bad) |
87 |
|
(#.(find-class 'symbol nil) 'good))) |
88 |
good) |
good) |
89 |
|
|
90 |
(deftest ctypecase.14 |
(deftest ctypecase.14 |
98 |
(return-from done 'good))) |
(return-from done 'good))) |
99 |
good) |
good) |
100 |
|
|
101 |
|
(deftest ctypecase.error.1 |
102 |
|
(classify-error (funcall (macro-function 'ctypecase))) |
103 |
|
program-error) |
104 |
|
|
105 |
|
(deftest ctypecase.error.2 |
106 |
|
(classify-error (funcall (macro-function 'ctypecase) |
107 |
|
'(ctypecase t))) |
108 |
|
program-error) |
109 |
|
|
110 |
|
(deftest ctypecase.error.3 |
111 |
|
(classify-error (funcall (macro-function 'ctypecase) |
112 |
|
'(ctypecase t) |
113 |
|
nil nil)) |
114 |
|
program-error) |