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@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)))))