From: Nikodemus S. <de...@us...> - 2010-10-17 16:28:02
|
Update of /cvsroot/sbcl/sbcl/src/pcl In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv24728/src/pcl Modified Files: boot.lisp Log Message: 1.0.43.65: pcl: :DEFINITION-SOURCE / :SOURCE-LOCATION confusion Caused source-locations for defgenerics not to be recorded properly. Fixes the only issue remaining open from bug 384801. Index: boot.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/pcl/boot.lisp,v retrieving revision 1.161 retrieving revision 1.162 diff -u -d -r1.161 -r1.162 --- boot.lisp 4 Sep 2010 08:01:29 -0000 1.161 +++ boot.lisp 17 Oct 2010 16:27:53 -0000 1.162 @@ -1722,7 +1722,7 @@ (defun ensure-generic-function (fun-name &rest all-keys - &key environment source-location + &key environment definition-source &allow-other-keys) (declare (ignore environment)) (let ((existing (and (fboundp fun-name) @@ -2053,7 +2053,7 @@ &key (lambda-list nil lambda-list-p) argument-precedence-order - source-location + definition-source documentation &allow-other-keys) (declare (ignore keys)) @@ -2064,7 +2064,7 @@ ((assoc spec *!generic-function-fixups* :test #'equal) (if existing (make-early-gf spec lambda-list lambda-list-p existing - argument-precedence-order source-location + argument-precedence-order definition-source documentation) (bug "The function ~S is not already defined." spec))) (existing @@ -2073,7 +2073,7 @@ (t (pushnew spec *!early-generic-functions* :test #'equal) (make-early-gf spec lambda-list lambda-list-p nil - argument-precedence-order source-location + argument-precedence-order definition-source documentation)))) (defun make-early-gf (spec &optional lambda-list lambda-list-p |