0.8.4.31:

	Minor PCL fixette
	... when defining early generic functions in the bootstrap
		process, clobber the lambda list if the gf has already
		been created (e.g. NO-APPLICABLE-METHOD) by an early
		DEFMETHOD.

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 4cfe1fc..53bc73e 100644 (file)
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1808,6 +1808,8 @@ bootstrapping.
                                            &allow-other-keys)
   (declare (ignore keys))
   (cond ((and existing (early-gf-p existing))
+        (when lambda-list-p
+          (set-arg-info existing :lambda-list lambda-list))
         existing)
        ((assoc spec *!generic-function-fixups* :test #'equal)
         (if existing

diff --git a/version.lisp-expr b/version.lisp-expr
index 52f066e..87fb53d 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".)
-"0.8.4.30"
+"0.8.4.31"