Is there any eq t test in Common Lisp?

Hi,

I'm just wondering if there is no predefined synonym for

(defun t-p (x) (eq t x))?

Andreas

P.S.

CL-USER 41 > (t-p t)
T

CL-USER 42 > (t-p nil)
NIL

CL-USER 43 > (t-p :any-key)
NIL


.