[movitz-cvs] CVS update: movitz/losp/muerte/bignums.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	bignums.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:21 2004
Author: ffjeld

Index: movitz/losp/muerte/bignums.lisp
diff -u movitz/losp/muerte/bignums.lisp:1.11 movitz/losp/muerte/bignums.lisp:1.12
--- movitz/losp/muerte/bignums.lisp:1.11	Thu Sep 23 11:17:51 2004
+++ movitz/losp/muerte/bignums.lisp	Mon Oct 11 15:52:21 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Jul 17 19:42:57 2004
 ;;;;                
-;;;; $Id: bignums.lisp,v 1.11 2004/09/23 09:17:51 ffjeld Exp $
+;;;; $Id: bignums.lisp,v 1.12 2004/10/11 13:52:21 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -82,7 +82,7 @@
 (defun print-bignum (x)
   (check-type x bignum)
   (dotimes (i (1+ (%bignum-bigits x)))
-    (format t "~8,'0X " (memref x -6 i :unsigned-byte32)))
+    (format t "~8,'0X " (memref x -6 :index i :type :unsigned-byte32)))
   (terpri)
   (values))
 
@@ -468,7 +468,8 @@
 (defun bignum-set-zerof (bignum)
   (check-type bignum bignum)
   (dotimes (i (%bignum-bigits bignum))
-    (setf (memref bignum -2 i :lisp) 0))
+    (setf (memref bignum (movitz-type-slot-offset 'movitz-bignum 'bigit0)
+		  :index i :type :unsigned-byte32) 0))
   bignum)
 
 (defun %bignum= (x y)