Function: make-erc--phantom-server-user--cmacro

make-erc--phantom-server-user--cmacro is a function defined in erc-button.el.gz.

Signature

(make-erc--phantom-server-user--cmacro CL-WHOLE &cl-quote &key NICKNAME HOST LOGIN FULL-NAME INFO BUFFERS)

Documentation

compiler-macro for make-erc--phantom-server-user.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-button.el.gz
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((nickname (car (cdr (plist-member --cl-rest-- ':nickname))))
	(host (car (cdr (plist-member --cl-rest-- ':host))))
	(login (car (cdr (plist-member --cl-rest-- ':login))))
	(full-name (car (cdr (plist-member --cl-rest-- ':full-name))))
	(info (car (cdr (plist-member --cl-rest-- ':info))))
	(buffers (car (cdr (plist-member --cl-rest-- ':buffers)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:nickname :host :login :full-name :info :buffers
			       :allow-other-keys))
	     (unless (cdr --cl-keys--)
	       (error "Missing argument for %s" (car --cl-keys--)))
	     (setq --cl-keys-- (cdr (cdr --cl-keys--))))
	    ((car (cdr (memq ':allow-other-keys --cl-rest--)))
	     (setq --cl-keys-- nil))
	    (t
	     (error
	      "Keyword argument %S not one of (:nickname :host :login :full-name :info :buffers)"
	      (car --cl-keys--))))))
       (cl-block make-erc--phantom-server-user--cmacro
	 (cl--defsubst-expand
	  '(nickname host login full-name info buffers)
	  '(cl-block make-erc--phantom-server-user
	     (vector 'erc--phantom-server-user nickname host login
		     full-name info buffers))
	  nil cl-whole nil nickname host login full-name info buffers)))))
  (cl-struct-erc--phantom-server-user-tags) nil
  "compiler-macro for `make-erc--phantom-server-user'.\n\n(fn CL-WHOLE &cl-quote &key NICKNAME HOST LOGIN FULL-NAME INFO BUFFERS)"]