Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Fri Oct 18 11:58:46 2002 UTC | revision 1.4 by pfdietz, Mon Jan 13 14:11:50 2003 UTC | |
---|---|---|
# | Line 38 | Line 38 |
38 | (eqt status2 :internal) | (eqt status2 :internal) |
39 | (progn (delete-package p) t))))) | (progn (delete-package p) t))))) |
40 | t) | t) |
41 | ||
42 | (deftest intern.error.1 | |
43 | (classify-error (intern)) | |
44 | program-error) | |
45 | ||
46 | (deftest intern.error.2 | |
47 | (classify-error (intern "X" "CL" nil)) | |
48 | program-error) | |
49 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |