[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

14 Jul 2004

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv13345
Modified Files:
    scavenge.lisp 
Log Message:
Minor edit.
Date: Tue Jul 13 15:44:37 2004
Author: ffjeld
Index: movitz/losp/muerte/scavenge.lisp
diff -u movitz/losp/muerte/scavenge.lisp:1.17 movitz/losp/muerte/scavenge.lisp:1.18

--- movitz/losp/muerte/scavenge.lisp:1.17	Tue Jul 13 06:00:36 2004
+++ movitz/losp/muerte/scavenge.lisp	Tue Jul 13 15:44:37 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.17 2004/07/13 13:00:36 ffjeld Exp $
+;;;; $Id: scavenge.lisp,v 1.18 2004/07/13 22:44:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -150,7 +150,7 @@
         (function
          (assert (= 0 (funobj-frame-num-unboxed funobj)))
          (map-heap-words function (+ nether-frame 2) frame))
-	     ((eql 0)
+	     ((eql 0)			; An interrupt-frame?
          ;; 1. Scavenge the interrupt-frame
          (map-heap-words function
    		      (+ nether-frame 2)

    