Function: comp-cstr-cl-tag-p

comp-cstr-cl-tag-p is a byte-compiled function defined in comp-cstr.el.gz.

Signature

(comp-cstr-cl-tag-p CSTR)

Documentation

Return non-nil if CSTR is a CL tag.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
;; Move to comp.el?
(defsubst comp-cstr-cl-tag-p (cstr)
  "Return non-nil if CSTR is a CL tag."
  (with-comp-cstr-accessors
    (and (null (range cstr))
         (null (neg cstr))
         (null (typeset cstr))
         (length= (valset cstr) 1)
         (string-match (rx "cl-struct-" (group-n 1 (1+ not-newline)) "-tags")
                       (symbol-name (car (valset cstr)))))))