annotate etc/custom/check0.xpm @ 5272:66dbef5f8076
Be better about bounds-checking, #'subseq, #'fill; add same, #'reduce.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (Fsubseq):
Change the string code to better fit in with the rest of this
function (it still uses get_string_range_char(), though, which *may*
diverge algorithmically from what we're doing).
If dealing with a cons, only call #'length if we have reason to
believe that the START and END arguments are badly specified, and
check for circular lists ourselves when that's appropriate.
If dealing with a vector, call Fvector() on the appropriate subset
of the old vector's data directly, don't initialise the result
with nil and then copy.
(Ffill):
Only check the range arguments for a cons SEQUENCE if we have good
reason to think they were badly specified.
(Freduce):
Handle multiple values properly. Add bounds checking to this
function, as specificied by ANSI Common Lisp.
author |
Aidan Kehoe <kehoea@parhasard.net> |
date |
Thu, 16 Sep 2010 18:46:05 +0100 |
parents |
8fc7fe29b841 |
children |
7910031dd78a |
rev |
line source |
22
|
1 /* XPM */
|
|
2 static char * check0_xpm[] = {
|
|
3 "11 11 3 1",
|
|
4 " c #E6E6E6E6E6E6",
|
|
5 ". c #737373737373",
|
|
6 "X c #BFBFBFBFBFBF",
|
|
7 " ",
|
|
8 " .",
|
|
9 " XXXXXXX..",
|
|
10 " XXXXXXX..",
|
|
11 " XXXXXXX..",
|
|
12 " XXXXXXX..",
|
|
13 " XXXXXXX..",
|
|
14 " XXXXXXX..",
|
|
15 " XXXXXXX..",
|
|
16 " .........",
|
|
17 " .........."};
|