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

Modified Files: malloc-init.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments.

Date: Mon Oct 11 15:52:01 2004 Author: ffjeld

Index: movitz/losp/lib/malloc-init.lisp diff -u movitz/losp/lib/malloc-init.lisp:1.5 movitz/losp/lib/malloc-init.lisp:1.6 --- movitz/losp/lib/malloc-init.lisp:1.5 Thu Jul 15 23:06:38 2004 +++ movitz/losp/lib/malloc-init.lisp Mon Oct 11 15:52:01 2004 @@ -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.5 2004/07/15 21:06:38 ffjeld Exp $ +;;;; $Id: malloc-init.lisp,v 1.6 2004/10/11 13:52:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -31,7 +31,7 @@ (muerte:malloc-initialize start-location end-location) (setf (cdar muerte::%memory-map%) end-location) (loop for x from kernel-end-location below start-location - do (setf (memref x 0 0 :unsigned-byte32) 0)) + do (setf (memref x 0 :type :unsigned-byte32) 0)) (values))