Function: make-ert--test-execution-info--cmacro

make-ert--test-execution-info--cmacro is a function defined in ert.el.gz.

Signature

(make-ert--test-execution-info--cmacro CL-WHOLE &cl-quote &key TEST RESULT EXIT-CONTINUATION NEXT-DEBUGGER ERT-DEBUG-ON-ERROR)

Documentation

compiler-macro for inlining make-ert--test-execution-info.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/ert.el.gz
;; Closure converted to defun by helpful.
(defun make-ert--test-execution-info--cmacro
    (cl-whole &rest --cl-rest--)
  "compiler-macro for inlining `make-ert--test-execution-info'.\n\n\\(fn CL-WHOLE &cl-quote &key TEST RESULT EXIT-CONTINUATION NEXT-DEBUGGER ERT-DEBUG-ON-ERROR)"
  (let*
      ((test
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':test)
	   '(nil
	     (cl-assert nil))))))
       (result
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':result)
	   '(nil
	     (cl-assert nil))))))
       (exit-continuation
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':exit-continuation)
	   '(nil
	     (cl-assert nil))))))
       (next-debugger
	(car
	 (cdr
	  (plist-member --cl-rest-- ':next-debugger))))
       (ert-debug-on-error
	(car
	 (cdr
	  (plist-member --cl-rest-- ':ert-debug-on-error)))))
    (progn
      (let
	  ((--cl-keys-- --cl-rest--))
	(while --cl-keys--
	  (cond
	   ((memq
	     (car --cl-keys--)
	     '(:test :result :exit-continuation :next-debugger :ert-debug-on-error :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 (:test :result :exit-continuation :next-debugger :ert-debug-on-error)"
		   (car --cl-keys--))))))
      (cl-block make-ert--test-execution-info--cmacro
	(cl--defsubst-expand
	 '(test result exit-continuation next-debugger ert-debug-on-error)
	 '(cl-block make-ert--test-execution-info
	    (record 'ert--test-execution-info test result exit-continuation next-debugger ert-debug-on-error))
	 nil cl-whole nil test result exit-continuation next-debugger ert-debug-on-error)))))