Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv29943/src/pcl
Modified Files:
generic-functions.lisp methods.lisp
Log Message:
1.0.18.6: rename SB-PCL::FUNCTION-KEYWORD-PARAMETERS to CL:FUNCTION-KEYWORDS
* Not that anyone seems to have missed it yet...
Index: generic-functions.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/generic-functions.lisp,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- generic-functions.lisp 21 Jan 2008 14:44:45 -0000 1.38
+++ generic-functions.lisp 30 Jun 2008 10:04:48 -0000 1.39
@@ -257,7 +257,7 @@
(defgeneric finalize-inheritance (class))
-(defgeneric function-keyword-parameters (method))
+(defgeneric function-keywords (method))
(defgeneric generic-function-argument-precedence-order (gf))
Index: methods.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/methods.lisp,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- methods.lisp 11 Jun 2008 20:04:23 -0000 1.82
+++ methods.lisp 30 Jun 2008 10:04:48 -0000 1.83
@@ -1617,7 +1617,7 @@
(reinitialize-instance generic-function :name new-value)
new-value)
-(defmethod function-keyword-parameters ((method standard-method))
+(defmethod function-keywords ((method standard-method))
(multiple-value-bind (nreq nopt keysp restp allow-other-keys-p
keywords keyword-parameters)
(analyze-lambda-list (if (consp method)
@@ -1658,7 +1658,7 @@
(let ((methods.keys nil) (methods.allowp nil))
(dolist (m methods)
(multiple-value-bind (m.keyparams m.allow-other-keys)
- (function-keyword-parameters m)
+ (function-keywords m)
(setq methods.keys (union methods.keys m.keyparams :key #'maybe-car))
(setq methods.allowp (or methods.allowp m.allow-other-keys))))
(let ((arglist '()))
|