Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv31584
Modified Files: storage-types.lisp Log Message: Added update-movitz-object for bignums.
Date: Wed Jun 9 10:19:24 2004 Author: ffjeld
Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.18 movitz/storage-types.lisp:1.19 --- movitz/storage-types.lisp:1.18 Mon May 24 07:58:22 2004 +++ movitz/storage-types.lisp Wed Jun 9 10:19:24 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.18 2004/05/24 14:58:22 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.19 2004/06/09 17:19:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -157,7 +157,7 @@
(defmethod update-movitz-object ((obj movitz-heap-object) lisp-obj) (declare (ignore lisp-obj)) - (warn "Don't know how to update ~W." obj)) + (break "Don't know how to update ~W." obj))
(defmethod update-movitz-object ((obj movitz-immediate-object) lisp-obj) (declare (ignore lisp-obj)) @@ -1330,3 +1330,7 @@ (defmethod sizeof ((obj movitz-bignum)) (+ (sizeof 'movitz-bignum) (* 4 (ceiling (integer-length (abs (movitz-bignum-value obj))) 32)))) + +(defmethod update-movitz-object ((object movitz-bignum) lisp-object) + (assert (= (movitz-bignum-value object) lisp-object)) + object)