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

Modified Files: scavenge.lisp Log Message: Minor edit.

Date: Tue Apr 6 10:33:11 2004 Author: ffjeld

Index: movitz/losp/muerte/scavenge.lisp diff -u movitz/losp/muerte/scavenge.lisp:1.3 movitz/losp/muerte/scavenge.lisp:1.4 --- movitz/losp/muerte/scavenge.lisp:1.3 Wed Mar 31 11:36:34 2004 +++ movitz/losp/muerte/scavenge.lisp Tue Apr 6 10:33:10 2004 @@ -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.3 2004/03/31 16:36:34 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.4 2004/04/06 14:33:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -95,8 +95,8 @@ (loop for nether-frame = start-stack-frame then frame and frame = (stack-frame-uplink start-stack-frame) then (stack-frame-uplink frame) while (plusp frame) - do (let ((funobj (stack-frame-funobj frame))) - (typecase funobj + do (let ((funobj (stack-frame-funobj frame t))) + (etypecase funobj (integer (error "Don't know how to scavenge across an interrupt frame.")) (function