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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 850bac7..80d816c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-12  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * emacs-lisp/cl-macs.el (define-compiler-macro): Purecopy the file name.
+
 2009-11-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * widget.el (define-widget): Purecopy the docstring.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a0b0d2e..82d7843 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2565,7 +2565,7 @@ and then returning foo."
                          (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)