Parent Directory | Revision Log | Patch
revision 1.11 by pfdietz, Thu Sep 23 13:28:54 2004 UTC | revision 1.12 by pfdietz, Sat May 7 01:55:34 2005 UTC | |
---|---|---|
# | Line 1138 | Line 1138 |
1138 | (signals-error (substitute 'a 'b (list 'a 'b 'c) :key #'car) type-error) | (signals-error (substitute 'a 'b (list 'a 'b 'c) :key #'car) type-error) |
1139 | t) | t) |
1140 | ||
1141 | (deftest substitute.error.12 | |
1142 | (check-type-error #'(lambda (x) (substitute 'a 'b x)) #'sequencep) | |
1143 | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |