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

[Frode Vatvedt Fjeld]

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

Modified Files:
	restarts.lisp 
Log Message:
Changed order of arguments for %run-time-context-slot, new signature
is (context slot-name), where nil may be used as a designator for
(current-run-time-context).

Date: Thu May  5 22:51:51 2005
Author: ffjeld

Index: movitz/losp/muerte/restarts.lisp
diff -u movitz/losp/muerte/restarts.lisp:1.5 movitz/losp/muerte/restarts.lisp:1.6
--- movitz/losp/muerte/restarts.lisp:1.5	Fri Nov 12 15:52:24 2004
+++ movitz/losp/muerte/restarts.lisp	Thu May  5 22:51:51 2005
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 2001, 2003-2004, 
+;;;;    Copyright (C) 2001, 2003-2005, 
 ;;;;    Department of Computer Science, University of Tromso, Norway.
 ;;;; 
 ;;;;    For distribution policy, see the accompanying file COPYING.
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Oct 28 09:27:13 2003
 ;;;;                
-;;;; $Id: restarts.lisp,v 1.5 2004/11/12 14:52:24 ffjeld Exp $
+;;;; $Id: restarts.lisp,v 1.6 2005/05/05 20:51:51 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -33,12 +33,12 @@
 	   (restart-bind ,rest-specs , at body))))))
 
 (defun dynamic-context->basic-restart (context)
-  (assert (< (%run-time-context-slot 'stack-bottom)
+  (assert (< (%run-time-context-slot nil 'stack-bottom)
 	     context
-	     (%run-time-context-slot 'stack-top)))
+	     (%run-time-context-slot nil 'stack-top)))
   (assert (eq (load-global-constant restart-tag)
 	      (stack-frame-ref nil context 1 :lisp)))
-  (let ((x (- (%run-time-context-slot 'stack-top) context)))
+  (let ((x (- (%run-time-context-slot nil 'stack-top) context)))
     (assert (below x #x1000000))
     (with-inline-assembly (:returns :eax)
       (:compile-form (:result-mode :eax) x)