Mercurial > hg > xemacs-beta
view etc/xemacs-icon3.xpm @ 4997:8800b5350a13
Move #'some, #'every to C, implementing them with mapcarX.
src/ChangeLog addition:
2010-02-03 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (mapcarX):
Accept a new argument, indicating whether the function is being
called from #'some or #'every. Implement it.
Discard any multiple values where that is appropriate.
(Fmapconcat, FmapcarX, Fmapvector, Fmapcan, Fmapc, Fmap)
(Fmap_into):
Pass the new flag to mapcarX.
(Fsome, Fevery): Move these functions here from cl-extra.el;
implement them in terms of mapcarX.
(maplist): Discard multiple values where appropriate.
lisp/ChangeLog addition:
2010-02-03 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (some, every):
Move these functions to C.
* cl-macs.el (notany, notevery): Add compiler macros for these
functions, no longer proclaim them inline (which would involve
specbinding that's not necessary with the compiler macros).
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 03 Feb 2010 20:26:47 +0000 |
| parents | 376386a54a3c |
| children | 7910031dd78a |
line wrap: on
line source
/* XPM */ static char * xemacs_xpm[] = { /* width height num_colors chars_per_pixel */ "48 48 11 1", /* colors */ " s None c none", ". c #e5e5e5", "X c #cccccc", "o c #b2b2b2", "O c #999999", "+ c #7f7f7f", "@ c #666666", "# c #4c4c4c", "$ c #323232", "% c #191919", "& c black", /* pixels */ " ", " ", " ", " ............ ......... ", " XXXXXXXXXXXX. XXXXXXXXX. ", " ooooooooooooX oooooooooX ", " OOOOOOOOOOOOo OOOOOOOOOo ", " ++++++++++++O +++++++++O ", " @@@@@@@@@@@@+.. @@@@@@@@@+ ", " ############@XX. #########@ ", " $$$$$$$$$$$$#ooX.$$$$$$$$$# ", " %%%%%%%%%%%%$OOoX%%%%%%%%%$ ", " &&&&&&&&&&&&%++Oo&&&&&&&&&% ", " &&&&&&&&&&&&@@+Oo&&&&&&&&& ", " &&&&&&$##@+OOoo&&&&Oo ", " &&&&&%$$#@++OOo&&&+O ", " &&&&%%$#@@++O&&&@+ ", " &&&&&%$##@@+&&&#@ ", " &&&&&%$$##@&&&$#.. ", " &&&&&%%$$#&&&%$XX. ", " &&&&&%%$&&&&%ooX.. ", " &&&&&&%$&&&&OOoXX. ", " &&&&&%&&&&++OooX.. ", " &&&&&&&&@@+OOoXX. ", " &&&&&&&##@++OooX. ", " &&&&&&$$#@@+OOoX.. ", " &&&&&%%$##@++OoXX. ", " &&&&&%$$#@@+OooX. ", " &&&&&&%%$##@+OOoX. ", " &&&&&&&&%$$#@++OoX.. ", " &&&&&&&&&%%$#@@+OoXX.. ", " &&&&#&&&&&&%$##@+OooXX.. ", " &&&&$o&&&&&&%$$#@+OOooXX... ", " &&&&%OoX&&&&&%%$#@++OOooXXX ", " &&&&&+Oooo&&&&&%$#@@++OOooo ", " &&&&@+OOO &&&&&%$##@@++OOO ", " +&&&#@+++ &&&&%$$##@@+++ ", " @&&&$#@@@ &&&&%%$$##@@@ ", " #&&&%$### &&&&&%%$$### ", " $&&&&%$$$ $&&&&&&%%$$$ ", " %&&&&&%%% %&&&&&&&&%%% ", " &&&&&&&&& &&&&&&&&&&&& ", " ", " ", " ", " ", " ", " "};