number
(defun sqr (x) "Multiply x by itself." (check-type x number) (* x x))
(numberp object)
(defun not-numberp (x) (not (numberp x)))
numbers