Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv9154
Modified Files: integers.lisp Log Message: Moved %ratio accessor compiler-macros to arithmetic-macros.lisp.
Date: Wed Aug 4 05:59:23 2004 Author: ffjeld
Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.90 movitz/losp/muerte/integers.lisp:1.91 --- movitz/losp/muerte/integers.lisp:1.90 Sat Jul 31 17:37:31 2004 +++ movitz/losp/muerte/integers.lisp Wed Aug 4 05:59:23 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.90 2004/08/01 00:37:31 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.91 2004/08/04 12:59:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -2228,7 +2228,7 @@ (values n 0) (multiple-value-bind (r q) (floor (%ratio-numerator n) (%ratio-denominator n)) - (values r (%make-rational q (%ratio-denominator n)))))) + (values r (make-rational q (%ratio-denominator n)))))) (2 (n divisor) (multiple-value-bind (q r) (truncate n divisor)