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.

/* XPM */
static char *folder[] = {
/* width height num_colors chars_per_pixel */
"    17    17        4            1",
/* colors */
". c #000000",
"a c #a8b038",
"b c #f8f800",
"c s None c None",
/* pixels */
"ccccccccccccccccc",
"ccccccccccccccccc",
"ccccccccccccccccc",
"ccccccccccccccccc",
"cccccccccaaaaaacc",
"ccccccccaaaaaaacc",
"cc......a.a.a.aac",
"c.bbbbbbbbbbbbb.c",
".bbbbbbbbbbbbbb.c",
".bbbbbbbbbbbbbb.c",
".bbbbbbbbbbbbbb.c",
".bbbbbbbbbbbbbb.c",
".bbbbbbbbbbbbbb.c",
".bbbbbbbbbbbbbb.c",
".bbbbbbbbbbbbbb.c",
".bbbbbbbbbbbbbb.c",
"a..............ac"
};