comparison lisp/emacs-lisp/cl-macs.el @ 104929:41455e351c50

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

104928:5532cc06be89

	(cl-transform-function-property
	 func 'cl-compiler-macro
	 (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)))))

;;;###autoload
(defun compiler-macroexpand (form)
  (while
      (let ((func (car-safe form)) (handler nil))

104929:41455e351c50

	(cl-transform-function-property
	 func 'cl-compiler-macro
	 (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 '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)
  (while
      (let ((func (car-safe form)) (handler nil))