/[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.12 by pfdietz, Sat Sep 6 23:31:41 2003 UTC revision 1.13 by pfdietz, Sun Sep 7 02:32:55 2003 UTC
# Line 245  Line 245 
245       until (eql one (+ one next-eps))       until (eql one (+ one next-eps))
246       do (setq eps next-eps)       do (setq eps next-eps)
247       finally (return (values i eps (float eps one))))))       finally (return (values i eps (float eps one))))))
248    
249    ;;; Approximate equality function
250    (defun approx= (x y &optional (eps (epsilon x)))
251      (<= (abs (/ (- x y) (max (abs x) 1))) eps))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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