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