r10470: rename to numbers-within-percentage
authorKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 26 Apr 2005 21:46:09 +0000 (21:46 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 26 Apr 2005 21:46:09 +0000 (21:46 +0000)
math.lisp
package.lisp

index b3df9d6..c03b27f 100644 (file)
--- a/math.lisp
+++ b/math.lisp
       (/ (sin x) x))))
 
 
-(defun number-within-percentage (a b percent)
+(defun numbers-within-percentage (a b percent)
   "Determines if two numbers are equal within a percentage difference."
   (let ((abs-diff (* 0.01 percent 0.5 (+ (abs a) (abs b)))))
     (< (abs (- a b)) abs-diff)))
index f714514..58c0172 100644 (file)
    #:fixnum-width
    #:scaled-epsilon
    #:sinc
-   #:number-within-percentage
+   #:numbers-within-percentage
 
    ;; macros.lisp
    #:time-iterations