# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1258008483 0
# Node ID bedac8edf64d524b1a5b206c3c8a105614d86959
# Parent  db07e62f112308786b504c1803915b5ba019572b
(define-compiler-macro): Purecopy the file name.

diff -r db07e62f1123 -r bedac8edf64d lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Nov 12 02:09:33 2009 +0000
+++ b/lisp/ChangeLog	Thu Nov 12 06:48:03 2009 +0000
@@ -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 -r db07e62f1123 -r bedac8edf64d lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Thu Nov 12 02:09:33 2009 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Thu Nov 12 06:48:03 2009 +0000
@@ -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)