[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp

[Frode Vatvedt Fjeld]

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