Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.5 by pfdietz, Fri May 6 13:34:42 2005 UTC | |
---|---|---|
# | Line 319 | Line 319 |
319 | (signals-error (nset-difference (list* 1 2 3) (list 4 5 6)) type-error) | (signals-error (nset-difference (list* 1 2 3) (list 4 5 6)) type-error) |
320 | t) | t) |
321 | ||
322 | (deftest nset-difference.error.13 | |
323 | (check-type-error #'(lambda (x) (nset-difference (list 'a 'b) x)) #'listp) | |
324 | nil) | |
325 | ||
326 | (deftest nset-difference.error.14 | |
327 | (check-type-error #'(lambda (x) (nset-difference x (list 'a 'b))) #'listp) | |
328 | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |