[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv12470

Modified Files:
	inspect.lisp 
Log Message:
In shallow-copy use %make-ratio rather than make-ratio, because the
numerator and/or denominator might be inconsistent when the copy is
being made (i.e. during GC). This caused GC across ratios to fail.


--- /project/movitz/cvsroot/movitz/losp/muerte/inspect.lisp	2005/10/25 19:26:47	1.57
+++ /project/movitz/cvsroot/movitz/losp/muerte/inspect.lisp	2007/03/16 19:50:47	1.58
@@ -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.57 2005/10/25 19:26:47 ffjeld Exp $
+;;;; $Id: inspect.lisp,v 1.58 2007/03/16 19:50:47 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -263,8 +263,8 @@
     (structure-object
      (copy-structure old))
     (ratio
-     (make-ratio (%ratio-numerator old)
-		 (%ratio-denominator old)))
+     (%make-ratio (%ratio-numerator old)
+                  (%ratio-denominator old)))
     (run-time-context
      (%shallow-copy-object old (movitz-type-word-size 'movitz-run-time-context)))))