; TIP550.LSP   Floating Point Equality   (c)1990, Jeffery Morris

(defun rnd (a b / c d)
  (setq
    a (atof (rtos a 2 8))
    b (atof (rtos b 2 8))
  )
  (cond
    ((= (rem a b) 0.0) a)
    (t (+ (fix a) (* (fix (/ (- a
      (fix a)) b)) b)))
  )
)