Testing a floating point error agnostig = in Common Lisp

Question

For doing some testing of a system where lots of floating arithmetic is involved, I have defined a deviation range of floating arithmetic error, so if the difference between