[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp

[Frode Vatvedt Fjeld]

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 at 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