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

Modified Files:
	los0-gc.lisp 
Log Message:
Cleaned up the exports from the muerte package, somewhat.

Date: Thu May  5 17:16:49 2005
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.50 movitz/losp/los0-gc.lisp:1.51
--- movitz/losp/los0-gc.lisp:1.50	Sat Apr 30 00:37:08 2005
+++ movitz/losp/los0-gc.lisp	Thu May  5 17:16:48 2005
@@ -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.50 2005/04/29 22:37:08 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.51 2005/05/05 15:16:48 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -333,17 +333,11 @@
 
 
 (defparameter *x* #4000(nil))		; Have this in static space.
-(defparameter *xx* #4000(nil))		; Have this in static space.
+;;;(defparameter *xx* #4000(nil))		; Have this in static space.
 
 (defparameter *code-vector-foo* 0)
 (defvar *old-code-vectors* #250())
 (defvar *new-code-vectors* #250())
-
-(defun debug (location x)
-  (setf (dummy x)
-    (let ((new (shallow-copy x)))
-      (warn "[~S] Migrating code-vector ~Z => ~Z." location x new)
-      new)))
 
 (defun stop-and-copy (&optional evacuator)
   (setf (fill-pointer *x*) 0)