Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19917 Modified Files: primitive-functions.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:45 2005 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.64 movitz/losp/muerte/primitive-functions.lisp:1.65 --- movitz/losp/muerte/primitive-functions.lisp:1.64 Thu May 5 15:59:37 2005 +++ movitz/losp/muerte/primitive-functions.lisp Thu May 5 22:51:43 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.64 2005/05/05 13:59:37 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.65 2005/05/05 20:51:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -360,7 +360,7 @@ (defun malloc-cons-pointer () "Return current cons-pointer in 8-byte units since buffer-start." - (let ((x (%run-time-context-slot 'nursery-space))) + (let ((x (%run-time-context-slot nil 'nursery-space))) (when (typep x 'vector) (truncate (aref x 0) 8))) #+ignore