annotate etc/custom/folder.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 |
5a88923fcbfe |
children |
7910031dd78a |
rev |
line source |
165
|
1 /* XPM */
|
|
2 static char *folder[] = {
|
|
3 /* width height num_colors chars_per_pixel */
|
|
4 " 17 17 4 1",
|
|
5 /* colors */
|
|
6 ". c #000000",
|
|
7 "a c #a8b038",
|
|
8 "b c #f8f800",
|
|
9 "c s None c None",
|
|
10 /* pixels */
|
|
11 "ccccccccccccccccc",
|
|
12 "ccccccccccccccccc",
|
|
13 "ccccccccccccccccc",
|
|
14 "ccccccccccccccccc",
|
|
15 "cccccccccaaaaaacc",
|
|
16 "ccccccccaaaaaaacc",
|
|
17 "cc......a.a.a.aac",
|
|
18 "c.bbbbbbbbbbbbb.c",
|
|
19 ".bbbbbbbbbbbbbb.c",
|
|
20 ".bbbbbbbbbbbbbb.c",
|
|
21 ".bbbbbbbbbbbbbb.c",
|
|
22 ".bbbbbbbbbbbbbb.c",
|
|
23 ".bbbbbbbbbbbbbb.c",
|
|
24 ".bbbbbbbbbbbbbb.c",
|
|
25 ".bbbbbbbbbbbbbb.c",
|
|
26 ".bbbbbbbbbbbbbb.c",
|
|
27 "a..............ac"
|
|
28 };
|