[movitz-cvs] CVS update: movitz/losp/lib/malloc-init.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	malloc-init.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:52:40 2005
Author: ffjeld

Index: movitz/losp/lib/malloc-init.lisp
diff -u movitz/losp/lib/malloc-init.lisp:1.6 movitz/losp/lib/malloc-init.lisp:1.7
--- movitz/losp/lib/malloc-init.lisp:1.6	Mon Oct 11 15:52:01 2004
+++ movitz/losp/lib/malloc-init.lisp	Thu May  5 22:52:40 2005
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 2001-2004, 
+;;;;    Copyright (C) 2001-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:    Wed Jan  9 15:57:22 2002
 ;;;;                
-;;;; $Id: malloc-init.lisp,v 1.6 2004/10/11 13:52:01 ffjeld Exp $
+;;;; $Id: malloc-init.lisp,v 1.7 2005/05/05 20:52:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -19,7 +19,7 @@
 
 (in-package muerte.lib)
 
-(let* ((stack-vector (%run-time-context-slot 'muerte::stack-vector))
+(let* ((stack-vector (%run-time-context-slot nil 'muerte::stack-vector))
        ;; We assume the kernel static are ends with the stack-vector.
        (kernel-end-location (+ 2 (muerte:object-location stack-vector)
 			       (array-dimension stack-vector 0)))