Mercurial > hg > xemacs-beta
diff src/fns.c @ 5336:287499ff4c5f
Pass in the DEFAULT argument to position() as documented, #'find.
src/ChangeLog addition:
2011-01-14 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (Ffind): Use the correct subr information here, pass in
the DEFAULT keyword argument value correctly.
tests/ChangeLog addition:
2011-01-14 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el (list): Test #'find, especially the
:default keyword, not specified by Common Lisp.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 14 Jan 2011 23:16:25 +0000 |
| parents | 1dbc93b7ba19 |
| children | 8608eadee6ba |
line wrap: on
line diff
--- a/src/fns.c Tue Jan 11 13:39:35 2011 +0000 +++ b/src/fns.c Fri Jan 14 23:16:25 2011 +0000 @@ -3123,7 +3123,7 @@ Boolint test_not_unboundp = 1; check_test_func_t check_test = NULL; - PARSE_KEYWORDS (Fposition, nargs, args, 9, + PARSE_KEYWORDS (Ffind, nargs, args, 9, (test, if_, test_not, if_not, key, start, end, from_end, default_), (start = Qzero)); @@ -3132,7 +3132,7 @@ key, &test_not_unboundp); position (&object, item, sequence, check_test, test_not_unboundp, - test, key, start, end, from_end, Qnil, Qposition); + test, key, start, end, from_end, default_, Qposition); return object; }