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

Modified Files:
	los0-gc.lisp 
Log Message:
*** empty log message ***
Date: Sat Apr 30 00:37:08 2005
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.49 movitz/losp/los0-gc.lisp:1.50
--- movitz/losp/los0-gc.lisp:1.49	Wed Mar  9 08:31:28 2005
+++ movitz/losp/los0-gc.lisp	Sat Apr 30 00:37:08 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.49 2005/03/09 07:31:28 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.50 2005/04/29 22:37:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -392,6 +392,8 @@
 			   new)))))
 		  ((not (object-in-space-p oldspace x))
 		   x)
+		  ((when (typep x 'run-time-context)
+		     (warn "Scavengning ~S" x)))
 		  (t (or (and (eq (object-tag x)
 				  (ldb (byte 3 0)
 				       (memref (object-location x) 0 :type :unsigned-byte8)))