Return the greatest of its arguments; among EQUALP greatest, return the first.
(number &rest sb-kernel::more-numbers)