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@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))