Function: ebrowse-cs-p--cmacro

ebrowse-cs-p--cmacro is a function defined in ebrowse.el.gz.

Signature

(ebrowse-cs-p--cmacro _CL-WHOLE-ARG CL-X)

Documentation

compiler-macro for inlining ebrowse-cs-p.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
;; Closure converted to defun by helpful.
(defun ebrowse-cs-p--cmacro
    (_cl-whole-arg cl-x)
  "compiler-macro for inlining `ebrowse-cs-p'."
  (cl-block ebrowse-cs-p--cmacro
    (cl--defsubst-expand
     '(cl-x)
     '(cl-block ebrowse-cs-p
	(and
	 (vectorp cl-x)
	 (>=
	  (length cl-x)
	  8)
	 (memq
	  (aref cl-x 0)
	  cl-struct-ebrowse-cs-tags)
	 t))
     nil nil nil cl-x)))