Function: make-ert--stats--cmacro

make-ert--stats--cmacro is a function defined in ert.el.gz.

Signature

(make-ert--stats--cmacro CL-WHOLE &cl-quote &key SELECTOR TESTS TEST-MAP TEST-RESULTS TEST-START-TIMES TEST-END-TIMES PASSED-EXPECTED PASSED-UNEXPECTED FAILED-EXPECTED FAILED-UNEXPECTED SKIPPED START-TIME END-TIME ABORTED-P CURRENT-TEST NEXT-REDISPLAY)

Documentation

compiler-macro for inlining make-ert--stats.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/ert.el.gz
;; Closure converted to defun by helpful.
(defun make-ert--stats--cmacro
    (cl-whole &rest --cl-rest--)
  "compiler-macro for inlining `make-ert--stats'.\n\n\\(fn CL-WHOLE &cl-quote &key SELECTOR TESTS TEST-MAP TEST-RESULTS TEST-START-TIMES TEST-END-TIMES PASSED-EXPECTED PASSED-UNEXPECTED FAILED-EXPECTED FAILED-UNEXPECTED SKIPPED START-TIME END-TIME ABORTED-P CURRENT-TEST NEXT-REDISPLAY)"
  (let*
      ((selector
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':selector)
	   '(nil
	     (cl-assert nil))))))
       (tests
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':tests)
	   '(nil
	     (cl-assert nil))))))
       (test-map
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':test-map)
	   '(nil
	     (cl-assert nil))))))
       (test-results
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':test-results)
	   '(nil
	     (cl-assert nil))))))
       (test-start-times
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':test-start-times)
	   '(nil
	     (cl-assert nil))))))
       (test-end-times
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':test-end-times)
	   '(nil
	     (cl-assert nil))))))
       (passed-expected
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':passed-expected)
	   '(nil 0)))))
       (passed-unexpected
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':passed-unexpected)
	   '(nil 0)))))
       (failed-expected
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':failed-expected)
	   '(nil 0)))))
       (failed-unexpected
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':failed-unexpected)
	   '(nil 0)))))
       (skipped
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':skipped)
	   '(nil 0)))))
       (start-time
	(car
	 (cdr
	  (plist-member --cl-rest-- ':start-time))))
       (end-time
	(car
	 (cdr
	  (plist-member --cl-rest-- ':end-time))))
       (aborted-p
	(car
	 (cdr
	  (plist-member --cl-rest-- ':aborted-p))))
       (current-test
	(car
	 (cdr
	  (plist-member --cl-rest-- ':current-test))))
       (next-redisplay
	(car
	 (cdr
	  (or
	   (plist-member --cl-rest-- ':next-redisplay)
	   '(nil 0.0))))))
    (progn
      (let
	  ((--cl-keys-- --cl-rest--))
	(while --cl-keys--
	  (cond
	   ((memq
	     (car --cl-keys--)
	     '(:selector :tests :test-map :test-results :test-start-times :test-end-times :passed-expected :passed-unexpected :failed-expected :failed-unexpected :skipped :start-time :end-time :aborted-p :current-test :next-redisplay :allow-other-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 (:selector :tests :test-map :test-results :test-start-times :test-end-times :passed-expected :passed-unexpected :failed-expected :failed-unexpected :skipped :start-time :end-time :aborted-p :current-test :next-redisplay)"
		   (car --cl-keys--))))))
      (cl-block make-ert--stats--cmacro
	(cl--defsubst-expand
	 '(selector tests test-map test-results test-start-times test-end-times passed-expected passed-unexpected failed-expected failed-unexpected skipped start-time end-time aborted-p current-test next-redisplay)
	 '(cl-block make-ert--stats
	    (record 'ert--stats selector tests test-map test-results test-start-times test-end-times passed-expected passed-unexpected failed-expected failed-unexpected skipped start-time end-time aborted-p current-test next-redisplay))
	 nil cl-whole nil selector tests test-map test-results test-start-times test-end-times passed-expected passed-unexpected failed-expected failed-unexpected skipped start-time end-time aborted-p current-test next-redisplay)))))