Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/testcover.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303!\210\304\303\305\306\307\310\311\312\313\314& \210\315\316\317\320\321DD\322\307\303\323\324&\210\315\325\317\320\326DD\327\307\303\323\330&\210\315\331\317\320\332DD\333\307\303\323\334&\210\315\335\317\320\336DD\337\307\303\323\340&\210\315\341\317\320\342DD\343\307\303\323\344&\210\315\345\317\320\346DD\347\307\303\323\350&\210\315\351\317\320\352DD\353\307\303\323\354&\210\355\356\357\360\307\303%\210\355\361\362\363\307\303%\207" [require edebug provide testcover custom-declare-group nil "Code-coverage tester." :group lisp :prefix "testcover-" :version "21.1" custom-declare-variable testcover-constants funcall function #[0 "\300\207" [(nil t emacs-build-time emacs-version emacs-major-version emacs-minor-version)] 1] "Variables whose values never change. No brown splotch is shown for\nthese. This list is quite incomplete!" :type (repeat variable) testcover-1value-functions #[0 "\300\207" [(backward-char barf-if-buffer-read-only beginning-of-line buffer-disable-undo buffer-enable-undo current-global-map deactivate-mark delete-backward-char delete-char delete-region ding forward-char function* insert insert-and-inherit kill-all-local-variables kill-line kill-paragraph kill-region kill-sexp minibuffer-complete-and-exit narrow-to-region next-line push-mark put-text-property run-hooks set-match-data signal substitute-key-definition suppress-keymap undo use-local-map while widen yank)] 1] "Functions that always return the same value, according to `equal'.\nNo brown splotch is shown for these. This list is quite\nincomplete! Notes: Nobody ever changes the current global map." (repeat symbol) testcover-noreturn-functions #[0 "\300\207" [(error noreturn throw signal)] 1] "Subset of `testcover-1value-functions' -- these never return. We mark\nthem as having returned nil just before calling them." (repeat symbol) testcover-compose-functions #[0 "\300\207" [(+ - * / = append length list make-keymap make-sparse-keymap message propertize replace-regexp-in-string run-with-idle-timer set-buffer-modified-p)] 1] "Functions that are 1-valued if all their args are either constants or\ncalls to one of the `testcover-1value-functions', so if that's true then no\nbrown splotch is shown for these. This list is quite incomplete! Most\nside-effect-free functions should be here." (repeat symbol) testcover-progn-functions #[0 "\300\207" [(define-key fset function goto-char mapc overlay-put progn save-current-buffer save-excursion save-match-data save-restriction save-selected-window save-window-excursion set set-default set-marker-insertion-type setq setq-default with-current-buffer with-output-to-temp-buffer with-syntax-table with-temp-buffer with-temp-file with-temp-message with-timeout)] 1] "Functions whose return value is the same as their last argument. No\nbrown splotch is shown for these if the last argument is a constant or a\ncall to one of the `testcover-1value-functions'. This list is probably\nincomplete!" (repeat symbol) testcover-prog1-functions #[0 "\300\207" [(prog1 unwind-protect)] 1] "Functions whose return value is the same as their first argument. No\nbrown splotch is shown for these if the first argument is a constant or a\ncall to one of the `testcover-1value-functions'." (repeat symbol) testcover-potentially-1value-functions #[0 "\300\207" [(add-hook and beep or remove-hook unless when)] 1] "Functions that are potentially 1-valued. No brown splotch if actually\n1-valued, no error if actually multi-valued." (repeat symbol) custom-declare-face testcover-nohits ((t (:background "DeepPink2"))) "Face for forms that had no hits during coverage test." testcover-1value ((t (:background "Wheat2"))) "Face for forms that always produced the same value during coverage test."] 10)
#@81 Symbols declared with defconst in the last file processed by
`testcover-start'.
(defvar testcover-module-constants nil (#$ . 4196))
#@131 Symbols declared with defun in the last file processed by
`testcover-start', whose functions should always return the same value.
(defvar testcover-module-1value-functions nil (#$ . 4335))
#@130 Symbols declared with defun in the last file processed by
`testcover-start', whose functions might always return the same value.
(defvar testcover-module-potentially-1value-functions nil (#$ . 4531))
#@60 Locally bound to coverage vector for function in progress.
(defvar testcover-vector nil (#$ . 4737))
#@191 Use Edebug to instrument for coverage all macros and functions in FILENAME.
If BYTE-COMPILE is non-nil, byte compile each function after instrumenting.
(fn FILENAME &optional BYTE-COMPILE)
(defalias 'testcover-start #[513 "\306!\307\211\307\211\310\311\312 \313!\210+\210\211\205@ \314!\211\205> \211@\315@!\2037 \316\317@\"\210\320@!\210A\266\202\202 \262\207" [edebug-form-data testcover-module-constants testcover-module-1value-functions testcover-module-potentially-1value-functions edebug-new-definition-function edebug-after-instrumentation-function find-file nil t testcover-after-instrumentation testcover-init-definition eval-buffer reverse fboundp message "Compiling %s..." byte-compile edebug-all-defs] 8 (#$ . 4845) "fStart covering file: "])
#@41 Start coverage on function under point.
(defalias 'testcover-this-defun #[0 "\303\304\305\306\307!+\207" [edebug-new-definition-function edebug-after-instrumentation-function edebug-all-defs t testcover-after-instrumentation testcover-init-definition eval-defun nil] 3 (#$ . 5623) nil])
#@82 Turn off instrumentation of all macros and functions in FILENAME.
(fn FILENAME)
(defalias 'testcover-end #[257 "\300!\301!\207" [find-file-noselect eval-buffer] 4 (#$ . 5919) "fStop covering file: "])
#@44 Analyze FORM for code coverage.
(fn FORM)
(defalias 'testcover-after-instrumentation #[257 "\300!\210\207" [testcover-analyze-coverage] 3 (#$ . 6129)])
#@44 Mark SYM as under test coverage.
(fn SYM)
(defalias 'testcover-init-definition #[257 "\300\301\"\210\302\303\304#\207" [message "Testcover: %s" put edebug-behavior testcover] 5 (#$ . 6289)])
#@179 Begin execution of a function under coverage testing.
Bind `testcover-vector' to the code-coverage vector for FUNC and
return the result of evaluating BODY.
(fn FUNC ARGS BODY)
(defalias 'testcover-enter #[771 "\301N\211 )\207" [testcover-vector edebug-coverage] 5 (#$ . 6490)])
#@133 Update code coverage before a form is evaluated.
BEFORE-INDEX is the form's index into the code-coverage vector.
(fn BEFORE-INDEX)
(defalias 'testcover-before #[257 "H\211\242\301=\205 \211A\302I\262\207" [testcover-vector noreturn edebug-ok-coverage] 6 (#$ . 6779)])
#@177 Update code coverage with the result of a form's evaluation.
AFTER-INDEX is the form's index into the code-coverage
vector. Return VALUE.
(fn BEFORE-INDEX AFTER-INDEX VALUE)
(defalias 'testcover-after #[771 "H\211\301\267\202' \302!I\210\202] \303I\210\202] \302!BI\210\202] \211\242\304=\203H \3051: \211A\2320\202< \210\306\204H \307\310#\210\202] \3111S \2320\202U \210\312\204] \303I\210\210\207" [testcover-vector #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (edebug-unknown 9 maybe 19 1value 27)) testcover--copy-object edebug-ok-coverage 1value (circular-list) t error "Value of form expected to be constant does vary, from %s to %s" (circular-list) nil] 9 (#$ . 7061)])
(byte-code "\301\302\"\204 \303B\301\207" [edebug-behavior-alist assoc testcover (testcover testcover-enter testcover-before testcover-after)] 3)
#@251 Make a copy of OBJ.
If OBJ is a cons cell, copy both its car and its cdr.
Contrast to `copy-tree' which does the same but fails on circular
structures, and `copy-sequence', which copies only along the
cdrs. Copy vectors as well as conses.
(fn OBJ)
(defalias 'testcover--copy-object #[257 "\300\301\302\"\303\304#\207" [make-hash-table :test eq testcover--copy-object1 t] 6 (#$ . 7956)])
#@235 Make a copy of OBJ, using a HASH-TABLE of objects already copied.
If OBJ is a cons cell, this recursively copies its car and
iteratively copies its cdr. When VECP is non-nil, copy
vectors as well as conses.
(fn OBJ VECP HASH-TABLE)
(defalias 'testcover--copy-object1 #[771 ":\204 \203 \300!\204 \207\301\302#\211\204\253 :\203~ \302\211\211B\262\262\303#\210\211\211\304@#\240\266A\262:\204U \211\211\304#\241\266\202y \301\302#\203k \211\211\301\302#\241\266\202y \211\211\302\211B\241\262\211\262\204) \266\202\253 \305!\262\303#\210\211G\306\211W\203\251 \211\304H #I\266\211T\262\202\214 \266\211\207" [vectorp gethash nil puthash testcover--copy-object1 copy-sequence 0] 13 (#$ . 8354)])
#@626 Marks one DEF (a function or macro symbol) to highlight its contained forms
that did not get completely tested during coverage tests.
A marking with the face `testcover-nohits' (default = red) indicates that the
form was never evaluated. A marking using the `testcover-1value' face
(default = tan) indicates that the form always evaluated to the same value.
The forms throw, error, and signal are not marked. They do not return and
would always get a red mark. Some forms that always return the same
value (e.g., setq of a constant), always get a tan mark that can't be
eliminated by adding more test cases.
(fn DEF)
(defalias 'testcover-mark #[257 "\211\300N\211@\3018\211G\302 \303N\304\211\203 \203 \204$ \305\306\n\"\210\307V\205\215 \310!q\210\311\312\313 \314 SH\315#\"\"\210\307V\203\212 S\262H\262\316=\204C \242\317>\204C H\\\211\262\203C \320S\"\262\321\322\n\323>\203\204 \324\202\205 \325#\210\202C \326!\207" [edebug 2 buffer-modified-p edebug-coverage nil error "Missing edebug data for function %s" 0 marker-buffer mapc delete-overlay overlays-in + 1 edebug-ok-coverage (1value maybe noreturn) make-overlay overlay-put face (edebug-unknown maybe 1value) testcover-nohits testcover-1value set-buffer-modified-p] 17 (#$ . 9115)])
#@145 Mark all forms in BUFFER that did not get completely tested during
coverage tests. This function creates many overlays.
(fn &optional BUFFER)
(defalias 'testcover-mark-all #[256 "\211\203 \301!\210\302b\210\211\205% \211@\211@\303N\203 \304@!\210A\266\202\202\f \207" [edebug-form-data switch-to-buffer 1 edebug testcover-mark] 5 (#$ . 10414) "bMark forms in buffer: "])
#@49 Remove all overlays from FILENAME.
(fn BUFFER)
(defalias 'testcover-unmark-all #[257 "\3001 \211q\210\301\302\303\304\305 \"\"0\207\210\306\207" [(error) mapc delete-overlay overlays-in 1 buffer-size nil] 6 (#$ . 10799) "bUnmark forms in buffer: "])
#@64 Moves point to next line in current buffer that has a splotch.
(defalias 'testcover-next-mark #[0 "\300`!b\210\301\207" [next-overlay-change nil] 2 (#$ . 11057) nil])
#@252 Analyze FORM and initialize coverage vectors for definitions found within.
Return 1value, maybe or nil depending on if the form is determined
to return only a single value, potentially return only a single value,
or return multiple values.
(fn FORM)
(defalias 'testcover-analyze-coverage #[257 "\304:\203@\211\305\267\202\376A\211:\203\310\211@\211:\203\266\211@\211\306=\203\242A\211:\203\216\211@A\211\204yA\211:\203d\211A\211:\203O\211@\211:\203:\211@\211\307=\203%A\211:\203\211@\211:\203\373 \211@\211\310=\203\346 A\211:\203\321 \211@\211\204\274 AA\211\204\247 A\211\204\222 \211\311N\312!)\266\202\202\242 \313!\203\235 \314\202\242 \315\316\"\262\202\267 \313!\203\262 \314\202\267 !\266\202\202\314 \313!\203\307 \314\202\314 !\262\202\341 \313!\203\334 \314\202\341 !\262\202\366 \313!\203\361 \314\202\366 !\262\202 \313!\203\314\202
!\262\202 \313!\203\314\202 \f!\262\2025\313
!\2030\314\2025
!\262\202J\313\f!\203E\314\202J\n\f!\262\202_\313 !\203Z\314\202_ !\262\202t\313\n!\203o\314\202t\n!\262\202\211\313 !\203\204\314\202\211 !\266\202\202\235\313!\203\231\314\202\235!\262\202\261\313!\203\255\314\202\261!\262\202\303\313!\203\300\314\202\303!\262\202\325\313!\203\322\314\202\325!\262\202 A\211:\203 \211@\211:\203\261\211@\211\317=\203EA\211:\203\330\211@A\211\204kA\211:\203V\211@A\211:\203A\211@A\211\204,\f\320%\266\204\202<\313!\2037\314\202<\f!\266\202\202Q\313\f!\203L\314\202Q\n\f!\266\202\202f\313\n!\203a\314\202f\n!\262\202\323A\211:\203\301\211@A\211:\203\254\211@A\211\204\227 \211\320%\266\204\202\247\313!\203\242\314\202\247\f!\266\202\202\274\313\f!\203\267\314\202\274\n\f!\266\202\202\321\313\n!\203\314\314\202\321\n!\262\266\202\202@A\211:\203.\211@A\211:\203\211@A\211\204 \211\320%\266\204\202\313\f!\203\314\202\n\f!\266\202\202)\313\n!\203$\314\202)\n!\266\202\202>\313!\2039\314\202>!\262\262\202\254A\211:\203\233\211@A\211:\203\206\211@A\211\204q\211\320%\266\204\202\201\313 !\203|\314\202\201 !\266\202\202\226\313 !\203\221\314\202\226 !\266\202\202\252\313!\203\246\314\202\252!\262\262\202A\211:\203\211@A\211:\203\362\211@A\211\204\335\211\320%\266\204\202\355\313\n!\203\350\314\202\355\n!\266\202\202\313!\203\375\314\202!\266\202\202\313!\203\314\202!\262\262\202*\313!\203'\314\202*!\262\202 A\211:\203L\211@A\211\211 B\312!\210\314\266\202\266\202\202Y\313!\203V\314\202Y!\262\202 A\211:\203\252\211@A\211:\203\226\211A\211\312!\211\314=\203\202\nB\202\214\211\321=\203\214 B\322\262\266\202\262\202\245\313!\203\241\314\202\245!\266\202\202\267\313!\203\264\314\202\267!\262\202 \314\202 A\211:\203\354\211@A\211\204\330\323!\262\202\347\313!\203\343\314\202\347!\266\202\202\371\313!\203\366\314\202\371!\262\202 \313!\203\314\202 !\262\202I\324>\203\314\202I\313!\203$\314\202I\325!\2034\315\326\322\"\316\"\202I9\203=\322\202I:\204F\314\202I\211!\207" [testcover-vector testcover-module-constants testcover-module-1value-functions testcover-module-potentially-1value-functions #[257 "\300\301\"\207" [testcover-analyze-coverage-compose testcover-analyze-coverage] 4 "\n\n(fn FORM)"] #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (edebug-enter 14 edebug-after 474 defconst 1071 defun 1118 quote 1212 \` 1216)) quote function lambda edebug-coverage testcover-analyze-coverage-progn keywordp 1value testcover-analyze-coverage-compose testcover-analyze-coverage edebug-before testcover-analyze-coverage-edebug-after maybe nil testcover-analyze-coverage-backquote-form (nil t) vectorp append] 25 (#$ . 11232)])
#@318 Analyze FORMS, which should be a list of forms, for code coverage.
Analyze all the forms in FORMS and return 1value, maybe or nil
depending on the analysis of the last one. Find the coverage
vectors referenced by `edebug-enter' forms nested within FORMS and
update them with the results of the analysis.
(fn FORMS)
(defalias 'testcover-analyze-coverage-progn #[257 "\300:\203 \301\211A\262\242!\262\202 \211\207" [1value testcover-analyze-coverage] 5 (#$ . 15241)])
#@435 Analyze a _FORM wrapped by `edebug-after' for code coverage.
_FORM should be either:
(edebug-after (edebug-before BEFORE-ID) AFTER-ID WRAPPED-FORM)
or:
(edebug-after 0 AFTER-ID WRAPPED-FORM)
where BEFORE-FORM is bound to either (edebug-before BEFORE-ID) or
0. WRAPPER may be 1value or noreturn, and if so it forces the
form to be treated accordingly.
(fn FORM BEFORE-FORM BEFORE-ID AFTER-ID WRAPPED-FORM &optional WRAPPER)
(defalias 'testcover-analyze-coverage-edebug-after #[1541 "\302\303\304\"\204 \305I\210\306!\262\307=\204 \211\203& \206$ \307I\210\310=\2043 \242 >\203F \310BI\210\307I\210\307\262\202U \242\307=\203U \307\262\307I\210\211\207" [testcover-vector testcover-noreturn-functions nil eql 0 edebug-ok-coverage testcover-analyze-coverage-wrapped-form 1value noreturn] 11 (#$ . 15722)])
#@126 Analyze a FORM for code coverage which was wrapped by `edebug-after'.
FORM is treated as if it will be evaluated.
(fn FORM)
(defalias 'testcover-analyze-coverage-wrapped-form #[257 "\302\303\304\305\306\307!\203 \310\202\2149\203% >\204! >\205\214\310\202\214:\204. \310\202\214:\203\213@\211\311\267\202yA\211:\203a \211@A\211\204T \312!\262\202\\ \313\"\266\202\266\202\202i \211\313\"\266\202\262\202\206A\211:\203\240 \211@A\211:\203\223 \211@\211\211 B\314!\210\310\266\202\262\202\233 \313\"\266\202\266\202\202\250 \211\313\"\266\202\262\202\206A\211:\203\365\211@\211:\203p\211A\211:\203\351 \211@AA\211\314!\210\315!\210\315!\203\337 \211\202\340 \310\262\266\203\266\203\202k\316\267\202cA\"\262\202kA\211:\203\211@A#\266\202\202\313\"\266\202\262\202k!\202kA\211:\203:\211@A\n\"\266\202\202B\313\"\266\202\262\202kA\211\204V \"\202^\313\"\266\202\262\202k\313\"\266\202\262\202\360\317\267\202\350A\"\262\202\360A\211:\203\230\211@A#\266\202\202\240\313\"\266\202\262\202\360!\202\360A\211:\203\300\211@A \"\266\202\202\310\313\"\266\202\262\202\360A\211\204\333\"\202\343\313\"\266\202\262\202\360\313\"\266\202\262\202 \320=\203!\202 \211\313\"\266\202\262\202\206A\211:\203#\211@A\"\266\202\2027\320=\203/!\2027\211\313\"\266\202\262\202\206A\211:\203j\211@A\211:\203]\211@A#\266\202\202e\313\"\266\202\266\202\202r\211\313\"\266\202\262\202\206A!\262\202\206A\211:\203\254\211A\211:\203\237\211@A\"\266\202\202\247\313\"\266\202\262\202\264\211\313\"\266\202\262\202\206A\211:\203:\211@\211:\203-\211@\211\321=\203 A\211:\203\211@\2119\203A\211\204\367A\211\211B\322!\262\266\202\262\202 \313\"\266\202\262\202\313\"\266\202\262\202\313\"\266\202\262\202(\313\"\266\202\262\2025\313\"\266\202\262\202B\211\313\"\266\202\262\202\206A\211:\203l\211@A\211\204_\"\202g\313\"\266\202\266\202\202t\211\313\"\266\202\262\202\206A\211\313\"\266\202\262\262\202\214\323\207" [testcover-constants testcover-module-constants #[514 "\211\300=\203\n \300\202 \301:\203\317@\211\302=\203\307A\211:\203\277\211@\211:\203r\211@\211\303=\203%A\211:\203\330 \211@A\211\204\212 A\211:\203\201 \211@A\211:\203w \211@A\211\204m \f\304&\266\202r \305!\210\266\202| \305
!\210\266\202\206 \305 !\210\210\202\323 A\211:\203\315 \211@A\211:\203\303 \211@A\211\204\271 \211\304&\266\202\276 \305!\210\266\202\310 \305
!\210\266\202\322 \305 !\210\210\266\202!A\211:\203\211@A\211:\203\211@A\211\204 \211\304&\266\202\f\305
!\210\266\202\305 !\210\266\202 \305 !\210\210\210\202nA\211:\203h\211@A\211:\203^\211@A\211\204T\211\304&\266\202Y\305\f!\210\266\202c\305\n!\210\266\202m\305!\210\210\210\202\273A\211:\203\265\211@A\211:\203\253\211@A\211\204\241\211\304&\266\202\246\305 !\210\266\202\260\305 !\210\266\202\272\305!\210\210\210\202\303\305!\210\210\202\313\305!\210\210\202\323\305!\210\211\207" [1value maybe edebug-after edebug-before testcover-analyze-coverage-edebug-after testcover-analyze-coverage] 26 "\n\n(fn INNER-FORM FUNC)"] #[514 "\300!\301\302\303\"\304\"\205 \211\205 \305\207" [testcover-analyze-coverage testcover-analyze-coverage-compose mapcar cdr testcover-analyze-coverage-progn maybe] 7 "\n\n(fn HANDLERS BODY-FORM)"] #[257 "\300\301\"\205 \302\207" [testcover-analyze-coverage-compose testcover-analyze-coverage-progn maybe] 4 "\n\n(fn CLAUSES)"] #[771 "\300!\210\300!\300!\205 \211\205 \301\207" [testcover-analyze-coverage maybe] 6 "\n\n(fn ELSE-BODY THEN-FORM TEST)"] #[514 "\300!\210\300!\207" [testcover-analyze-coverage-progn] 4 "\n\n(fn BODY BINDINGS)"] keywordp 1value #s(hash-table size 12 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (\` 59 defconst 110 dolist 173 dotimes 173 let* 526 let 526 if 572 cond 631 condition-case 642 apply 697 noreturn 839 1value 839)) testcover-analyze-coverage-backquote-form testcover-analyze-coverage-wrapped-application testcover-analyze-coverage testcover-analyze-coverage-progn #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (let* 239 let 239 if 250 cond 286 condition-case 293 noreturn 327 1value 327)) #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (let* 374 let 374 if 385 cond 421 condition-case 427 noreturn 461 1value 461)) cond quote testcover-analyze-coverage-wrapped-form nil] 19 (#$ . 16568)])
#@76 Analyze the application of FUNC to ARGS for code coverage.
(fn FUNC ARGS)
(defalias 'testcover-analyze-coverage-wrapped-application #[514 "\306=\203 \307\207>\204 >\203 \310!\210\307\207\n>\204& >\203, \310!\210\311\207\f>\2036 \310!\207
>\203F \310A!\210\312@!\207
>\203R \313\312\"\207\310!\210\314\207" [testcover-1value-functions testcover-module-1value-functions testcover-potentially-1value-functions testcover-module-potentially-1value-functions testcover-progn-functions testcover-prog1-functions quote 1value testcover-analyze-coverage-progn maybe testcover-analyze-coverage testcover-analyze-coverage-compose nil testcover-compose-functions] 5 (#$ . 21370)])
#@211 Combine RESULT with VAL and return the new result.
If either argument is nil, return nil, otherwise if either
argument is maybe, return maybe. Return 1value only if both arguments
are 1value.
(fn RESULT VAL)
(defalias 'testcover-coverage-combine #[514 "\211\300\267\202 \207\205 \301\207\302\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1value 6 maybe 8)) maybe nil] 4 (#$ . 22069)])
#@145 Analyze a list of FORMS for code coverage using FUNC.
The list is 1valued if all of its constituent elements are also 1valued.
(fn FORMS FUNC)
(defalias 'testcover-analyze-coverage-compose #[514 "\300:\203 \301@!\"\262A\262\202 \203\" \301!\"\262\211\207" [1value testcover-coverage-combine] 7 (#$ . 22513)])
#@82 Analyze BQ-LIST, the body of a backquoted list, for code coverage.
(fn BQ-LIST)
(defalias 'testcover-analyze-coverage-backquote #[257 "\300:\203/ @\301\302\303D>\203 \304A!\262\301\262\202& \305!\262A\262\306\"\266\203\202 \211\207" [1value nil \, \,@ testcover-analyze-coverage testcover-analyze-coverage-backquote-form testcover-coverage-combine] 7 (#$ . 22843)])
#@76 Analyze a single FORM from a backquoted list for code coverage.
(fn FORM)
(defalias 'testcover-analyze-coverage-backquote-form #[257 "\300!\203
\301\302\303\"!\207\211:\204 \304\207\211@\305\306D>\203# \307A@!\207\301!\207" [vectorp testcover-analyze-coverage-backquote append nil 1value \, \,@ testcover-analyze-coverage] 5 (#$ . 23230)])
Mini Shell