supressing underflow errors in clisp

hey; I'm working with some code, and it gets to a certain point in the computation, and it comes up with an underflow error. There is a macro(without-floating-point-underflow) to supress the error and force a clamp to 0. I really don't want to hand-code a clamp function. Any ideas, people ? :)