(xdef 'bound (lambda (x) (tnil (bound? x))))

From ac.scm ©