1.0.18.6: rename SB-PCL::FUNCTION-KEYWORD-PARAMETERS to CL:FUNCTION-KEYWORDS

 * Not that anyone seems to have missed it yet...

diff --git a/NEWS b/NEWS
index 58e8614..0af2e7e 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -11,6 +11,7 @@ changes in sbcl-1.0.19 relative to 1.0.18:
        if the derived type of the second argument is a MEMBER type
        containing invalid type specifiers.
     ** ADJOIN with constant NIL as second argument works correctly.
+    ** FUNCTION-KEYWORDS was called SB-PCL::FUNCTION-KEYWORD-PARAMETERS.
 
 changes in sbcl-1.0.18 relative to 1.0.17:
   * minor incompatible change: SB-SPROF:WITH-PROFILING now by default

diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp
index 7d37d62..e0ed65a 100644 (file)
--- a/src/pcl/generic-functions.lisp
+++ b/src/pcl/generic-functions.lisp
@@ -257,7 +257,7 @@
 
 (defgeneric finalize-inheritance (class))
 
-(defgeneric function-keyword-parameters (method))
+(defgeneric function-keywords (method))
 
 (defgeneric generic-function-argument-precedence-order (gf))
 

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 3dc38cc..52d9ece 100644 (file)
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1617,7 +1617,7 @@
   (reinitialize-instance generic-function :name new-value)
   new-value)
 \f
-(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 '()))

diff --git a/version.lisp-expr b/version.lisp-expr
index c3fd9aa..20c2f2b 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.18.5"
+"1.0.18.6"