view etc/trash.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 */
/* A trash can, drawn by jwz */
static char *trash[] = {
/*   width height ncolors chars_per_pixel x_hot y_hot */
"     32     46       4    1		   16    23",
/*  colors */
"  c None	m None",
"= c gray85	m white",
"- c gray75	m white",
"# c black	m black",
/*  pixels */
"                                ",
"             ######             ",
"            #======#            ",
"            #==# ==#            ",
"   ##########################   ",
"  #==========================#  ",
"  ####=#######################  ",
"   #========================#   ",
"    #======================#    ",
"    #=====##====##====##===#    ",
"  ###-#==#--#==#--#==#--#==###  ",
" #--#-#==#--#==#--#==#--#==#--# ",
" ####-#==#--#==#--#==#--#==#### ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #-#==#--#==#--#==#--#==#    ",
"    #======================#    ",
"    #======================#    ",
"    #==######=###########==#    ",
"   #========================#   ",
"    ########################    ",
"                                "
};