Function: natnump
Return t if OBJECT is a nonnegative integer.
(fn OBJECT)