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