Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv28195

Modified Files: scavenge.lisp Log Message: Remove unused new-code-vector.

Date: Sat Jan 7 22:40:13 2006 Author: ffjeld

Index: movitz/losp/muerte/scavenge.lisp diff -u movitz/losp/muerte/scavenge.lisp:1.54 movitz/losp/muerte/scavenge.lisp:1.55 --- movitz/losp/muerte/scavenge.lisp:1.54 Sun Aug 28 23:13:07 2005 +++ movitz/losp/muerte/scavenge.lisp Sat Jan 7 22:40:12 2006 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Mar 29 14:54:08 2004 ;;;; -;;;; $Id: scavenge.lisp,v 1.54 2005/08/28 21:13:07 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.55 2006/01/07 21:40:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -362,8 +362,7 @@ (scavenge-find-code-vector function (stack-frame-ref nil eip-index 0 :location) 0 interrupted-esi - nil)) - (new-code-vector (map-instruction-pointer function eip-index old-code-vector))) + nil))) ;; (when atomically (we should be more clever about the stack..)) (multiple-value-bind (x0-location x0-tag) (stack-frame-ref nil next-frame-bottom 0 :signed-byte30+2)