Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Nov 2 03:55:07 2002 UTC | revision 1.3 by pfdietz, Mon Feb 17 11:54:01 2003 UTC | |
---|---|---|
# | Line 64 | Line 64 |
64 | (ctypecase x (integer) (t 'a))) | (ctypecase x (integer) (t 'a))) |
65 | nil) | nil) |
66 | ||
67 | (deftest ctypecase.12 | |
68 | (let ((x 1)) | |
69 | (values | |
70 | (handler-bind | |
71 | ((type-error #'(lambda (c) (store-value 'a c)))) | |
72 | (ctypecase x | |
73 | (symbol :good) | |
74 | (float :bad))) | |
75 | x)) | |
76 | :good a) | |
77 | ||
78 | (deftest ctypecase.error.1 | |
79 | (classify-error (ctypecase)) | |
80 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |