From ea300887f85f4e1a6afc8b5e26b216a1a3cd606d Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 18 Mar 2004 10:09:36 +0000 Subject: [PATCH] 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). --- src/pcl/dfun.lisp | 7 +++++-- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/src/pcl/dfun.lisp b/src/pcl/dfun.lisp index 6337b61..6988c34 100644 --- 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 --- 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" -- 1.7.10.4