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

Modified Files: los0-gc.lisp Log Message: Disable some of the debugging cruft.

Date: Thu May 5 20:08:39 2005 Author: ffjeld

Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.51 movitz/losp/los0-gc.lisp:1.52 --- movitz/losp/los0-gc.lisp:1.51 Thu May 5 17:16:48 2005 +++ movitz/losp/los0-gc.lisp Thu May 5 20:08:39 2005 @@ -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.51 2005/05/05 15:16:48 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.52 2005/05/05 18:08:39 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -332,7 +332,7 @@ (values))))

-(defparameter *x* #4000(nil)) ; Have this in static space. +(defparameter *x* #1000(nil)) ; Have this in static space. ;;;(defparameter *xx* #4000(nil)) ; Have this in static space.

(defparameter *code-vector-foo* 0) @@ -364,6 +364,7 @@ nil) ((object-in-space-p newspace x) x) + #+ignore ((and (typep x 'code-vector) (not (object-in-space-p oldspace x)) (not (object-in-space-p newspace x))