From: William Harold Newman <william.newman@airmail.net>
Date: Sat, 11 Aug 2001 23:36:57 +0000 (+0000)
Subject: 0.pre7.10:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=934b35cf683bacd5c15842a5012f852589ae2314;p=sbcl.git

0.pre7.10:
	added DEFKNOWN .. NIL for DO-ARG-COUNT-ERROR, to suppress
		lotso undefined warnings and to let the compiler
		identify lotso dead code
	bumped default GC interval up to 4M bytes (from 2M bytes)
---

diff --git a/NEWS b/NEWS
index 38ff4a8..91ebcc3 100644
--- a/NEWS
+++ b/NEWS
@@ -827,6 +827,10 @@ changes in sbcl-0.7.0 relative to sbcl-0.6.13:
   is no longer part of the base system. The files which used to 
   be in the doc/cmucl/ directory are now available as
     <ftp://sbcl.sourceforge.net/pub/sbcl/cmucl-docs.tar.bz2>.
+* The default value of *BYTES-CONSED-BETWEEN-GCS* has been 
+  doubled, to 4 million. (If your application spends a lot of time
+  GCing and you have a lot of RAM, you might want to experiment with
+  increasing it even more.)
 ?? lots of tidying up internally: renaming things so that names are
   more systematic and consistent, converting C macros to inline
   functions, systematizing indentation
diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 5ed0b35..30cd93d 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -140,7 +140,7 @@ and submit it as a patch."
 ;;;
 ;;; Unlike CMU CL, we don't export this variable. (There's no need to,
 ;;; since our BYTES-CONSED-BETWEEN-GCS function is SETFable.)
-(defvar *bytes-consed-between-gcs* (* 2 (expt 10 6)))
+(defvar *bytes-consed-between-gcs* (* 4 (expt 10 6)))
 (declaim (type index *bytes-consed-between-gcs*))
 
 ;;;; GC hooks
diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index b40f453..684550e 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -1318,6 +1318,8 @@
 ;;; ordinary functions.
 (defknown %slot-accessor (t) t (flushable))
 (defknown %slot-setter (t t) t (unsafe))
+
+(defknown sb!kernel::do-arg-count-error (t t t t t t) nil (unsafe))
 
 ;;;; SETF inverses
 
diff --git a/version.lisp-expr b/version.lisp-expr
index c6a13a5..7c92abc 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -16,4 +16,4 @@
 ;;; four numeric fields, is used for versions which aren't released
 ;;; but correspond only to CVS tags or snapshots.
 
-"0.pre7.9"
+"0.pre7.10"