334 |
do (setq eps next-eps) |
do (setq eps next-eps) |
335 |
finally (return (values i eps (float eps one)))))) |
finally (return (values i eps (float eps one)))))) |
336 |
|
|
|
;;; Approximate equality function |
|
|
(defun approx= (x y &optional (eps (epsilon x))) |
|
|
(<= (abs (/ (- x y) (max (abs x) 1))) eps)) |
|
|
|
|
337 |
(defun test-log-op-with-decls (op xlo xhi ylo yhi niters |
(defun test-log-op-with-decls (op xlo xhi ylo yhi niters |
338 |
&optional |
&optional |
339 |
(decls '((optimize (speed 3) (safety 1) |
(decls '((optimize (speed 3) (safety 1) |