Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC | revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC | |
---|---|---|
# | Line 69 | Line 69 |
69 | (deftest last-15 | (deftest last-15 |
70 | (catch-type-error (last (list 'a 'b 'c) #\w)) | (catch-type-error (last (list 'a 'b 'c) #\w)) |
71 | type-error) | type-error) |
72 | ||
73 | (deftest last-16 | |
74 | (classify-error (last)) | |
75 | program-error) | |
76 | ||
77 | (deftest last-17 | |
78 | (classify-error (last '(a b c) 2 nil)) | |
79 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |