Commit 76410c3e authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

parent 5d58e44c
2009-11-12 Dan Nicolaescu <>
* emacs-lisp/cl-macs.el (define-compiler-macro): Purecopy the file name.
2009-11-11 Dan Nicolaescu <>
* widget.el (define-widget): Purecopy the docstring.
......@@ -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)))))))))
(defun compiler-macroexpand (form)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment