Mercurial > hg > xemacs-beta
view etc/trash.xpm @ 5391:f9dc75bdbdc4
Implement #'load-time-value less hackishly, by modifying the byte compiler.
2011-04-02 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-output-preface): New.
* bytecomp.el (byte-compile-output-file-form):
* bytecomp.el (byte-compile-output-docform):
* bytecomp.el (byte-compile-file-form):
* bytecomp.el (byte-compile-file-form-defmumble):
* bytecomp.el (symbol-value):
* bytecomp.el (byte-compile-symbol-value): New.
* cl-macs.el (load-time-value):
No longer implement load-time-value by very hackishly redefining
#'byte-compile-file-form-defmumble, instead make the appropriate
changes in #'byte-compile-file-form-defmumble and
#'byte-compile-file-form instead. We also add a specific byte-compile
method for #'symbol-value, using the add-properties-to-a-gensym
approach that worked for #'block and #'return-from.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 02 Apr 2011 16:13:20 +0100 |
| 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 */ " ", " ###### ", " #======# ", " #==# ==# ", " ########################## ", " #==========================# ", " ####=####################### ", " #========================# ", " #======================# ", " #=====##====##====##===# ", " ###-#==#--#==#--#==#--#==### ", " #--#-#==#--#==#--#==#--#==#--# ", " ####-#==#--#==#--#==#--#==#### ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #-#==#--#==#--#==#--#==# ", " #======================# ", " #======================# ", " #==######=###########==# ", " #========================# ", " ######################## ", " " };