Mercurial > emacs
diff lisp/emacs-lisp/cl-macs.el @ 105964:bedac8edf64d
(define-compiler-macro): Purecopy the file name.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Thu, 12 Nov 2009 06:48:03 +0000 |
parents | f2e56d1eff32 |
children | 1d1d5d9bd884 |
line wrap: on
line diff
--- 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)