This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 75a020cf12f776c5fee74905887e62b6cccca48e (commit) from 5b98c1cb418d4e4b2594ff406748e2a9d9af83e9 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 75a020cf12f776c5fee74905887e62b6cccca48e Author: Raymond Toy <toy.raymond@gmail.com> Date: Tue Dec 18 19:22:16 2012 -0800 Add source-location information for DEFINE-COMPILER-MACRO. Patch from Helmut Eller, cmucl-imp 2012-12-16. diff --git a/src/code/macros.lisp b/src/code/macros.lisp index 934bcbb..892e1cf 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -192,9 +192,9 @@ ;;; (defmacro define-symbol-macro (name expansion) `(eval-when (:compile-toplevel :load-toplevel :execute) - (%define-symbol-macro ',name ',expansion))) + (%define-symbol-macro ',name ',expansion (c::source-location)))) ;;; -(defun %define-symbol-macro (name expansion) +(defun %define-symbol-macro (name expansion source-location) (unless (symbolp name) (error 'simple-type-error :datum name :expected-type 'symbol :format-control (intl:gettext "Symbol macro name is not a symbol: ~S.") @@ -202,7 +202,8 @@ (ecase (info variable kind name) ((:macro :global nil) (setf (info variable kind name) :macro) - (setf (info variable macro-expansion name) expansion)) + (setf (info variable macro-expansion name) expansion) + (set-defvar-source-location name source-location)) (:special (error 'simple-program-error :format-control (intl:gettext "Symbol macro name already declared special: ~S.") ----------------------------------------------------------------------- Summary of changes: src/code/macros.lisp | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp