(MY-INTEGERP)
(MY-NUMERATOR-WHEN-INTEGERP
 (1 1 (:REWRITE INTEGERP-WHEN-UNSIGNED-BYTE-P-FREE))
 (1 1 (:REWRITE INTEGERP-WHEN-SIGNED-BYTE-P))
 (1 1 (:REWRITE INTEGERP-WHEN-DARGP-LESS-THAN))
 (1 1 (:REWRITE INTEGERP-FROM-UNSIGNED-BYTE-P-SIZE-PARAM))
 )
(FOO)
(BAR)
(P)
