[cl-gsl-cvs] CVS update: cl-gsl/test/test-sf.lisp

[Edgar Denny]

Update of /project/cl-gsl/cvsroot/cl-gsl/test
In directory common-lisp.net:/tmp/cvs-serv17962

Modified Files:
	test-sf.lisp 
Log Message:
Moved tolerance functions to a separate file.

Date: Sun Mar 13 01:50:49 2005
Author: edenny

Index: cl-gsl/test/test-sf.lisp
diff -u cl-gsl/test/test-sf.lisp:1.4 cl-gsl/test/test-sf.lisp:1.5
--- cl-gsl/test/test-sf.lisp:1.4	Wed Mar  9 04:11:04 2005
+++ cl-gsl/test/test-sf.lisp	Sun Mar 13 01:50:49 2005
@@ -19,20 +19,7 @@
 
 (in-package #:cl-gsl-test)
 
-(defconstant +dbl-epsilon+ 2.2204460492503131d-16)
-
-(defconstant +tol0+  (/ +dbl-epsilon+ 2.0d0))
-(defconstant +tol+1+  (* +tol0+ 10.0d0))
-(defconstant +tol-1+  (/ +tol0+ 10.0d0))
-(defconstant +tol+2+  (* +tol0+ 100.0d0))
-(defconstant +tol-2+  (/ +tol0+ 100.0d0))
-(defconstant +tol+3+  (* +tol0+ 1000.0d0))
-(defconstant +tol-3+  (/ +tol0+ 1000.0d0))
-
 (defconstant +sf+ "sf")
-
-(defun tol< (x y tol)
-  (< (abs (- x y)) tol))
 
 (defmacro sf-deftest (func-name-str param-list result tolerance)
   `(deftest ,func-name-str :category +sf+