[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-5-g75a020c

Raymond Toy rtoy at common-lisp.net
Wed Dec 19 03:22:22 UTC 2012

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 at 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))
      (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(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list