(xdef 'exact (lambda (x) 
               (tnil (and (integer? x) (exact? x)))))

From ac.scm ©