[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-serv26324

Modified Files:
	los0-gc.lisp 
Log Message:
Minor edits.

Date: Thu Oct  7 14:54:43 2004
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.40 movitz/losp/los0-gc.lisp:1.41
--- movitz/losp/los0-gc.lisp:1.40	Fri Oct  1 14:44:20 2004
+++ movitz/losp/los0-gc.lisp	Thu Oct  7 14:54:43 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.40 2004/10/01 12:44:20 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.41 2004/10/07 12:54:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -270,10 +270,6 @@
 	   (+ 1 (object-location space)
 	      (array-dimension space 0)))))
 
-(defun tenure ()
-  (install-old-consing)
-  (install-los0-consing))
-
 (defun report-nursery (x location)
   "Write a message if x is inside newspace."
   (when (object-in-space-p (%run-time-context-slot 'nursery-space) x)
@@ -293,6 +289,12 @@
 	     find-location x location))
     x))
 
+#+ignore
+(defun tenure ()
+  (install-old-consing)
+  (install-los0-consing))
+
+#+ignore
 (defun kill-the-newborns ()
   (let* ((oldspace (%run-time-context-slot 'nursery-space))
 	 (newspace (space-other oldspace)))