Parent Directory | Revision Log | Patch
revision 1.11 by pfdietz, Thu Sep 23 13:28:54 2004 UTC | revision 1.12 by pfdietz, Fri May 6 13:34:42 2005 UTC | |
---|---|---|
# | Line 1024 | Line 1024 |
1024 | (signals-error (nsubstitute 'a 'b (list 'a 'b 'c) :key #'car) type-error) | (signals-error (nsubstitute 'a 'b (list 'a 'b 'c) :key #'car) type-error) |
1025 | t) | t) |
1026 | ||
1027 | (deftest nsubstitute.error.12 | |
1028 | (check-type-error #'(lambda (x) (nsubstitute 1 0 x)) #'sequencep) | |
1029 | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |