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 <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> 2009-11-11 Dan Nicolaescu <dann@ics.uci.edu>
* widget.el (define-widget): Purecopy the docstring. * widget.el (define-widget): Purecopy the docstring.
......
...@@ -2565,7 +2565,7 @@ and then returning foo." ...@@ -2565,7 +2565,7 @@ and then returning foo."
(list 'if 'file (list 'if 'file
(list 'put (list 'quote func) (list 'put (list 'quote func)
'(quote compiler-macro-file) '(quote compiler-macro-file)
'(file-name-nondirectory file)))))))) '(purecopy (file-name-nondirectory file)))))))))
;;;###autoload ;;;###autoload
(defun compiler-macroexpand (form) (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