Recognizer for valid combinational-type keywords.
(ctypep x) → bool
Function:
(defun ctypep (x) (declare (xargs :guard t)) (let ((__function__ 'ctypep)) (declare (ignorable __function__)) (member x (list (in-ctype) (out-ctype) (gate-ctype) (const-ctype)))))