[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-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 at 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))