Function: erc-server-user-p--cmacro

erc-server-user-p--cmacro is a function defined in erc-common.el.gz.

Signature

(erc-server-user-p--cmacro _CL-WHOLE-ARG CL-X)

Documentation

compiler-macro for inlining erc-server-user-p.

Source Code

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