Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3942 Modified Files: integers.lisp Log Message: Added expt with negative power-number. Date: Sat Sep 17 01:02:19 2005 Author: ffjeld Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.113 movitz/losp/muerte/integers.lisp:1.114 --- movitz/losp/muerte/integers.lisp:1.113 Sat Sep 17 00:55:11 2005 +++ movitz/losp/muerte/integers.lisp Sat Sep 17 01:02:19 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.113 2005/09/16 22:55:11 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.114 2005/09/16 23:02:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -2186,5 +2186,7 @@ (positive-bignum (do ((i 0 (1+ i)) (r 1 (* r base-number))) - ((>= i power-number) r))))) - + ((>= i power-number) r))) + ((integer * -1) + (/ (expt base-number (- power-number)))))) +