Commit ae2fd042 authored by Glenn Morris's avatar Glenn Morris
Browse files

(define-compiler-macro): Add a property that records where a macro was

parent 4a6c9bec
......@@ -2547,8 +2547,22 @@ and then returning foo."
(cons (if (memq '&whole args) (delq '&whole args)
(cons '--cl-whole-arg-- args)) body))
(list 'or (list 'get (list 'quote func) '(quote byte-compile))
(list 'put (list 'quote func) '(quote byte-compile)
'(quote cl-byte-compile-compiler-macro)))))
(list 'progn
(list 'put (list 'quote func) '(quote byte-compile)
'(quote cl-byte-compile-compiler-macro))
;; This is so that describe-function can locate
;; the macro definition.
(list 'let
(list (list
(or buffer-file-name
(and (boundp 'byte-compile-current-file)
(stringp byte-compile-current-file)
(list 'if 'file
(list 'put (list 'quote func)
'(quote compiler-macro-file)
'(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