copysign

copysign is a built-in function in `C source code'.

(copysign X1 X2)

Copy sign of X2 to value of X1, and return the result.
Cause an error if X1 or X2 is not a float.