[Openmcl-cvs-notifications] r12328 - /trunk/source/lib/macros.lisp

[gz at clozure.com]

Author: gz
Date: Mon Jun 29 14:31:55 2009
New Revision: 12328

Log:
Record source location of methods defined with defgeneric

Modified:
    trunk/source/lib/macros.lisp

Modified: trunk/source/lib/macros.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/macros.lisp (original)
+++ trunk/source/lib/macros.lisp Mon Jun 29 14:31:55 2009
@@ -2101,6 +2101,7 @@
               (defmethod (if global-p 'defmethod 'anonymous-method)))
           (if (eq keyword :method)
 	    (let ((defn `(,defmethod ,function-name ,@(%cdr o))))
+	      (note-source-transformation o defn)
 	      (push defn methods))
             (cond ((and (not (eq keyword 'declare))
 			(memq keyword (prog1 option-keywords (push keyword option-keywords))))	=
	   =