[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/cl-macs.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/12 06:48:09

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: cl-macs.el 

Log message:
        (define-compiler-macro): Purecopy the file name.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16606&r2=1.16607
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/cl-macs.el?cvsroot=emacs&r1=1.85&r2=1.86

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16606
retrieving revision 1.16607
diff -u -b -r1.16606 -r1.16607
--- ChangeLog   12 Nov 2009 00:43:01 -0000      1.16606
+++ ChangeLog   12 Nov 2009 06:48:03 -0000      1.16607
@@ -1,3 +1,7 @@
+2009-11-12  Dan Nicolaescu  <address@hidden>
+
+       * emacs-lisp/cl-macs.el (define-compiler-macro): Purecopy the file name.
+
 2009-11-11  Dan Nicolaescu  <address@hidden>
 
        * widget.el (define-widget): Purecopy the docstring.

Index: emacs-lisp/cl-macs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/cl-macs.el,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- emacs-lisp/cl-macs.el       27 Sep 2009 23:25:06 -0000      1.85
+++ emacs-lisp/cl-macs.el       12 Nov 2009 06:48:08 -0000      1.86
@@ -2565,7 +2565,7 @@
                          (list 'if 'file
                                (list 'put (list 'quote func)
                                      '(quote compiler-macro-file)
-                                     '(file-name-nondirectory file))))))))
+                                     '(purecopy (file-name-nondirectory 
file)))))))))
 
 ;;;###autoload
 (defun compiler-macroexpand (form)