From 05e9b542c5700416b8fd9f3ba9bb91bb6ab84b3a Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 30 Jun 2008 10:04:48 +0000 Subject: [PATCH] 1.0.18.6: rename SB-PCL::FUNCTION-KEYWORD-PARAMETERS to CL:FUNCTION-KEYWORDS * Not that anyone seems to have missed it yet... --- NEWS | 1 + src/pcl/generic-functions.lisp | 2 +- src/pcl/methods.lisp | 4 ++-- version.lisp-expr | 2 +- 4 files changed, 5 insertions(+), 4 deletions(-) diff --git a/NEWS b/NEWS index 58e8614a0..0af2e7e25 100644 --- 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 7d37d628c..e0ed65af7 100644 --- 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 3dc38cce8..52d9ece66 100644 --- a/src/pcl/methods.lisp +++ b/src/pcl/methods.lisp @@ -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 '())) diff --git a/version.lisp-expr b/version.lisp-expr index c3fd9aaf2..20c2f2b7d 100644 --- 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" -- 2.11.4.GIT