procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
defined.
This commit is contained in:
Glenn Morris 2009-09-11 03:39:28 +00:00
parent 4a6c9bec5a
commit ae2fd0421f
1 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/cl-macs.el
View file

@ -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
'file
(or buffer-file-name
(and (boundp 'byte-compile-current-file)
(stringp byte-compile-current-file)
byte-compile-current-file))))
(list 'if 'file
(list 'put (list 'quote func)
'(quote compiler-macro-file)
'(file-name-nondirectory file))))))))
;;;###autoload
(defun compiler-macroexpand (form)