Parent Directory | Revision Log | Patch
revision 1.10 by pfdietz, Mon Sep 27 13:54:20 2004 UTC | revision 1.11 by pfdietz, Sat May 7 01:55:34 2005 UTC | |
---|---|---|
# | Line 235 | Line 235 |
235 | (deftest sort.error.10 | (deftest sort.error.10 |
236 | (signals-error (sort (list 1 2 3 4) #'elt) type-error) | (signals-error (sort (list 1 2 3 4) #'elt) type-error) |
237 | t) | t) |
238 | ||
239 | (deftest sort.error.11 | |
240 | (check-type-error #'(lambda (x) (sort x #'<)) #'sequencep) | |
241 | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |