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

[Frode Vatvedt Fjeld]

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

Modified Files:
	inspect.lisp 
Log Message:
Teach shallow-copy about ratios.

Date: Sat Aug 27 00:38:08 2005
Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp
diff -u movitz/losp/muerte/inspect.lisp:1.55 movitz/losp/muerte/inspect.lisp:1.56
--- movitz/losp/muerte/inspect.lisp:1.55	Sat Jun 11 02:02:04 2005
+++ movitz/losp/muerte/inspect.lisp	Sat Aug 27 00:38:07 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 24 09:50:41 2003
 ;;;;                
-;;;; $Id: inspect.lisp,v 1.55 2005/06/11 00:02:04 ffjeld Exp $
+;;;; $Id: inspect.lisp,v 1.56 2005/08/26 22:38:07 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -262,6 +262,9 @@
      (copy-funobj old))
     (structure-object
      (copy-structure old))
+    (ratio
+     (make-ratio (%ratio-numerator old)
+		 (%ratio-denominator old)))
     (run-time-context
      (%shallow-copy-object old (movitz-type-word-size 'movitz-run-time-context)))))