Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv14019 Modified Files: los0-gc.lisp Log Message: Minor edit. Date: Fri Jul 23 09:44:07 2004 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.31 movitz/losp/los0-gc.lisp:1.32 --- movitz/losp/los0-gc.lisp:1.31 Fri Jul 23 08:26:51 2004 +++ movitz/losp/los0-gc.lisp Fri Jul 23 09:44:07 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.31 2004/07/23 15:26:51 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.32 2004/07/23 16:44:07 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -464,5 +464,5 @@ ~/muerte:pprint-clumps/, freed: ~/muerte:pprint-clumps/.~%" old-size new-size (- old-size new-size)))) (initialize-space oldspace) - (fill oldspace #x3 :start 2)))) + (fill oldspace #x13 :start 2)))) (values))