0.8.8.31:
authorChristophe Rhodes <csr21@cam.ac.uk>
Thu, 18 Mar 2004 10:09:36 +0000 (10:09 +0000)
committerChristophe Rhodes <csr21@cam.ac.uk>
Thu, 18 Mar 2004 10:09:36 +0000 (10:09 +0000)
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).

src/pcl/dfun.lisp
version.lisp-expr

index 6337b61..6988c34 100644 (file)
@@ -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))
index 061a950..2a040fd 100644 (file)
@@ -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"