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