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