Function: ghub--make-req--cmacro

ghub--make-req--cmacro is a function defined in ghub.el.

Signature

(ghub--make-req--cmacro CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER BUFFER SYNCHRONOUS CALLBACK ERRORBACK VALUE EXTRA)

Documentation

compiler-macro for ghub--make-req.

Source Code

;; Defined in ~/.emacs.d/elpa/ghub-20260401.1239/ghub.el
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((url (car (cdr (plist-member --cl-rest-- ':url))))
	(forge (car (cdr (plist-member --cl-rest-- ':forge))))
	(silent (car (cdr (plist-member --cl-rest-- ':silent))))
	(method (car (cdr (plist-member --cl-rest-- ':method))))
	(headers (car (cdr (plist-member --cl-rest-- ':headers))))
	(handler (car (cdr (plist-member --cl-rest-- ':handler))))
	(unpaginate
	 (car (cdr (plist-member --cl-rest-- ':unpaginate))))
	(noerror (car (cdr (plist-member --cl-rest-- ':noerror))))
	(reader (car (cdr (plist-member --cl-rest-- ':reader))))
	(buffer (car (cdr (plist-member --cl-rest-- ':buffer))))
	(synchronous
	 (car (cdr (plist-member --cl-rest-- ':synchronous))))
	(callback (car (cdr (plist-member --cl-rest-- ':callback))))
	(errorback (car (cdr (plist-member --cl-rest-- ':errorback))))
	(value (car (cdr (plist-member --cl-rest-- ':value))))
	(extra (car (cdr (plist-member --cl-rest-- ':extra)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:url :forge :silent :method :headers :handler
			  :unpaginate :noerror :reader :buffer
			  :synchronous :callback :errorback :value
			  :extra :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 (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :buffer :synchronous :callback :errorback :value :extra)"
	      (car --cl-keys--))))))
       (cl-block ghub--make-req--cmacro
	 (cl--defsubst-expand
	  '(url forge silent method headers handler unpaginate noerror
		reader buffer synchronous callback errorback value
		extra)
	  '(cl-block ghub--make-req
	     (record 'ghub--req url forge silent method headers
		     handler unpaginate noerror reader buffer
		     synchronous callback errorback value extra))
	  nil cl-whole nil url forge silent method headers handler
	  unpaginate noerror reader buffer synchronous callback
	  errorback value extra)))))
  (t) nil
  "compiler-macro for `ghub--make-req'.\n\n(fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER BUFFER SYNCHRONOUS CALLBACK ERRORBACK VALUE EXTRA)"]