0.8.8.31:

	Slightly less arbitrary default for *MAX-EMF-PRECOMPUTE-METHODS*.
	... it appears that there is no need for an upper limit, so
		the only natural value is no limit at all;
	... retain the tunability of the parameter, even though there
		probably ought to be a better MOPpish way of expressing
		it;
	... awaiting with interest the effect this has on benchmarks; it
		has no observable effect on e.g. McCLIM window mappping
		times.  (what /does/ have an effect there is compiling
		and loading a file with
			(SB-PCL::PRECOMPUTE-RANDOM-CODE-SEGMENTS)
		in it).

diff --git a/src/pcl/dfun.lisp b/src/pcl/dfun.lisp
index 6337b61..6988c34 100644 (file)
--- a/src/pcl/dfun.lisp
+++ b/src/pcl/dfun.lisp
@@ -769,11 +769,14 @@ Except see also BREAK-VICIOUS-METACIRCLE.  -- CSR, 2003-05-28
 ;;; considered as state transitions.
 (defvar *lazy-dfun-compute-p* t)
 (defvar *early-p* nil)
-(defvar *max-emf-precomputation-methods* 10)
+
+(declaim (type (or null unsigned-byte) *max-emf-precomputation-methods*))
+(defvar *max-emf-precomputation-methods* nil)
 
 (defun finalize-specializers (gf)
   (let ((methods (generic-function-methods gf)))
-    (when (<= (length methods) *max-emf-precomputation-methods*)
+    (when (or (null *max-emf-precomputation-methods*)
+             (<= (length methods) *max-emf-precomputation-methods*))
       (let ((all-finalized t))
        (dolist (method methods all-finalized)
          (dolist (specializer (method-specializers method))

diff --git a/version.lisp-expr b/version.lisp-expr
index 061a950..2a040fd 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.8.30"
+"0.8.8.31"