Function: cvs-qtypedesc-p--cmacro

cvs-qtypedesc-p--cmacro is a function defined in pcvs-util.el.gz.

Signature

(cvs-qtypedesc-p--cmacro _CL-WHOLE-ARG CL-X)

Documentation

compiler-macro for inlining cvs-qtypedesc-p.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-util.el.gz
;; Closure converted to defun by helpful.
(defun cvs-qtypedesc-p--cmacro
    (_cl-whole-arg cl-x)
  "compiler-macro for inlining `cvs-qtypedesc-p'."
  (cl-block cvs-qtypedesc-p--cmacro
    (cl--defsubst-expand
     '(cl-x)
     '(cl-block cvs-qtypedesc-p
	(and
	 (memq
	  (type-of cl-x)
	  cl-struct-cvs-qtypedesc-tags)
	 t))
     nil nil nil cl-x)))