Function: comp-cstr-cl-tag

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

Signature

(comp-cstr-cl-tag CSTR)

Documentation

If CSTR is a CL tag return its tag name.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defsubst comp-cstr-cl-tag (cstr)
  "If CSTR is a CL tag return its tag name."
  (with-comp-cstr-accessors
    (and (comp-cstr-cl-tag-p cstr)
         (intern (match-string 1 (symbol-name (car (valset cstr))))))))