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@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)))