Function: cl-isqrt
Return the integer square root of the argument.
(fn X)