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

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@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)
participants (1)
-
Frode Vatvedt Fjeld