add large epsilon for :word-size 32

Author: k-okada

irteus/test/interpolator.l

@@ -203,7 +203,7 @@
                    (< i (min (- (length position) 3) (* 0.7 (length position)))))
           (setq real-vel (scale (/ 1.0 dt) (v- (elt position (1+ i)) (elt position i)))
                 calc-vel (elt velocity i))
-          (assert (eps= (norm (v- real-vel calc-vel)) 0)
+          (assert (eps= (norm (v- real-vel calc-vel)) 0 (if (memq :word-size=64 *features*) *epsilon* 100))
                   (format nil "~A pos: ~A, vel:~A, vel:~A, diff:~A~%" i (elt position i) real-vel calc-vel (norm (v- real-vel calc-vel)))))))
 
     ;; check acceleration
@@ -219,7 +219,7 @@
                    (< i (min (- (length velocity) 3) (* 0.7 (length velocity)))))
           (setq real-acc (scale (/ 1.0 dt) (v- (elt velocity (1+ i)) (elt velocity i)))
                 calc-acc (elt acceleration i))
-          (assert (eps= (norm (v- real-acc calc-acc)) 0)
+          (assert (eps= (norm (v- real-acc calc-acc)) 0 (if (memq :word-size=64 *features*) *epsilon* 100))
                   (format nil "~A vel: ~A, acc:~A, acc:~A, diff:~A~%" i (elt velocity i) real-acc calc-acc (norm (v- real-acc calc-acc)))))
         ))