Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Mon Feb 17 13:25:22 2003 UTC | revision 1.5 by pfdietz, Sun Mar 2 14:25:07 2003 UTC | |
---|---|---|
# | Line 78 | Line 78 |
78 | ;;; (deftest ctypecase.error.1 | ;;; (deftest ctypecase.error.1 |
79 | ;;; (classify-error (ctypecase)) | ;;; (classify-error (ctypecase)) |
80 | ;;; program-error) | ;;; program-error) |
81 | ||
82 | ||
83 | (deftest ctypecase.13 | |
84 | (ctypecase 'a | |
85 | (number 'bad) | |
86 | (#.(find-class 'symbol nil) 'good)) | |
87 | good) | |
88 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |