Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv5553
Modified Files: integers.lisp Log Message: Added (deftype number).
Date: Sun Sep 18 16:23:46 2005 Author: ffjeld
Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.115 movitz/losp/muerte/integers.lisp:1.116 --- movitz/losp/muerte/integers.lisp:1.115 Sat Sep 17 03:44:29 2005 +++ movitz/losp/muerte/integers.lisp Sun Sep 18 16:23:44 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.115 2005/09/17 01:44:29 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.116 2005/09/18 14:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -2207,7 +2207,7 @@ (do ((i 0 (1+ i)) (r 1 (* r base-number))) ((>= i power-number) r))) - ((real * -1) + ((number * -1) (/ (expt base-number (- power-number)))) (ratio (expt (rootn base-number (denominator power-number))