[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.lisp 
Log Message:
Somewhat improved support for movitz-ratio objects.

Date: Thu Oct 21 22:42:51 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.42 movitz/storage-types.lisp:1.43
--- movitz/storage-types.lisp:1.42	Tue Sep 21 15:04:02 2004
+++ movitz/storage-types.lisp	Thu Oct 21 22:42:51 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.42 2004/09/21 13:04:02 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.43 2004/10/21 20:42:51 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -73,11 +73,11 @@
   
   :old-vector #x1a
   :basic-vector #x22
+  :defstruct #x2a
   :funobj #x3a
   :bignum #x4a
   :ratio #x52
   :complex #x5a
-  :defstruct #x2a
   :std-instance #x40
   :run-time-context #x50
   :illegal #x13
@@ -1237,6 +1237,7 @@
   (assert (= (movitz-bignum-value object) lisp-object))
   object)
 
+
 (defmethod read-binary-record ((type-name (eql 'movitz-bignum)) stream &key)
   (let* ((header (call-next-method))
 	 (x (loop for i from 0 below (movitz-bignum-length header)
@@ -1280,3 +1281,14 @@
     (setf (slot-value obj 'numerator) (numerator value)
 	  (slot-value obj 'denominator) (denominator value))
     (call-next-method)))
+
+
+(defmethod update-movitz-object ((object movitz-ratio) lisp-object)
+  (assert (= (movitz-ratio-value object) lisp-object))
+  object)
+
+(defmethod print-object ((x movitz-ratio) stream)
+  (print-unreadable-object (x stream :type t)
+    (format stream "~D" (slot-value x 'value)))
+  x)
+