[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp
In directory common-lisp.net:/tmp/cvs-serv17931

Modified Files:
	los0-gc.lisp 
Log Message:
Changed default newspace size to 1MB.

Date: Thu Jul  8 11:49:26 2004
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.19 movitz/losp/los0-gc.lisp:1.20
--- movitz/losp/los0-gc.lisp:1.19	Wed Jul  7 16:39:50 2004
+++ movitz/losp/los0-gc.lisp	Thu Jul  8 11:49:26 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Feb 21 17:48:32 2004
 ;;;;                
-;;;; $Id: los0-gc.lisp,v 1.19 2004/07/07 23:39:50 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.20 2004/07/08 18:49:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -247,7 +247,7 @@
 	    (:leal (:edx :ecx 8) :eax))))
     (do-it)))
 
-(defun install-los0-consing (&optional (space-kilobytes 2048))
+(defun install-los0-consing (&optional (space-kilobytes 1024))
   (let ((size (* space-kilobytes #x100)))
     (setf (%run-time-context-slot 'nursery-space)
       (allocate-duo-space size))