[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

7 Oct 2004

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

    