Function: cl-signum

Return 1 if X is positive, -1 if negative, 0 if zero.

(fn X)