/[gcl]/gcl/ansi-tests/numbers-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/numbers-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by pfdietz, Sat Apr 30 21:32:34 2005 UTC revision 1.27 by pfdietz, Sat Apr 30 21:33:22 2005 UTC
# Line 334  Line 334 
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)

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26