;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\300\302!\210\300\303!\210\300\304!\210\305\306!\203\300\307!\210\310\311\312\313\314\315%\210\316\317\320\321\322DD\323\324\325\314\311&\210\316\326\320\321\327DD\330\324\325\314\311&\207" [require cl-lib benchmark outline org featurep native-compile comp custom-declare-group elb nil "Emacs Lisp benchmarks." :group lisp custom-declare-variable elb-runs funcall function #[0 "\300\207" [3] 1] "Total number of benchmark iterations." :type number elb-speed #[0 "\300\207" [3] 1] "Default `native-comp-speed' to be used for native compiling the benchmarks."] 8) (defconst elb-bench-directory (byte-code "\302\206 !\303P\207" [load-file-name buffer-file-name file-name-directory "benchmarks/"] 2)) #@42 Buffer name where results are presented. (defconst elb-result-buffer-name "elisp-benchmarks-results" (#$ . 1137)) #@67 Return the standard deviation of the elements in LIST. (fn LIST) (defalias 'elb-std-deviation #[257 "\211G\300\301:\203@\262\211\\\262A\262\202\266\202\245\302\300\301:\203=@\262\211\303Z\304\"\\\262A\262\202\"\266\202S\245!\207" [nil 0 sqrt expt 2] 11 (#$ . 1257)]) #@309 Run all the benchmarks and present the results. If non nil SELECTOR is a regexp to match the benchmark names to be executed. The test is repeated RUNS number of times. If RUNS is nil `elb-runs' is used as default. RECOMPILE all the benchmark folder when non nil. (fn &optional SELECTOR (RECOMPILE t) RUNS) (defalias 'elisp-benchmarks-run #[384 "\211\203 \211A\262\242\202\306\211A\262\242\203#\307\310\311\312G\\D\"\210\313\314!\203/\314\2020\315\316\317\320\"\321\n\306\322#\203e\211\323\211:\203^@\262\324\n\"\203WB\262A\262\202A\211\237\266\203\202f\211\203{\325\326\327\330\331\332 !\333\"\334\335%\"\210\325\336\337\340\314!\203\216\313\341!\203\216\341\202\217\342\"\"\210\323C\343\326\327\344\331\332!\345\"\346\347%!\210\211\242\262\206\256 \211\350S\211\262\351Y\203\352\353\"\210\323\211:\203\371@\262\354\355\356Q!\262\357 \210\352\360\"\210\361\362\323CE\306\" \363\364\"B#\266A\262\202\302\266\211T\262\202\260\365\f!\210\366 \210\367c\210\370c\210\371c\210\323\211\211\211\211\211\351\211\211\323 :\203\344 @\262 \364 \"\262\323\351:\203K@\262\211@\\\262A\262\2025\266\202\262\323\351:\203j@\262\211A@\\\262A\262\202S\266\202\262\323\351:\203\212@\262\211AA@\\\262A\262\202r\266\202\262\372\337\373\n\"!\262\374\375\376 \337\326\327\377\331\332!\201A\"\312\201B%\f Z  F\"$c\210\375\201C\"c\210\\\262\\\262 \\\211C\244\262 A\262\n\202\371c\210\374\375\201D\337\326\327\377\331\332!\201A\"\312\201B% Z \nF\"#c\210\375\201C\201E\374\201F\337\201G\"\"!\"c\210)\266\n\201H \210eb\210@\203=\352\201I !\210\202G\201J \210\201K \210\323\266\203\262)\266\204\207" [elb-speed native-comp-speed elb-bench-directory elb-runs elb-result-buffer-name gc-elapsed t signal wrong-number-of-arguments elisp-benchmarks-run 3 fboundp native-compile byte-compile-file make-hash-table :test equal directory-files "\\.el\\'" nil string-match mapc make-byte-code 257 "\301\302\"\210\300!\207" vconcat vector [message "Compiling... %s"] 4 "\n\n(fn F)" load mapcar featurep comp-el-to-eln-filename file-name-sans-extension mapatoms "\301!\302\303\"\205\300\304\305\"\300\242B\240\207" [symbol-name string-match "\\`elb-\\(.*\\)-entry\\'" match-string 1] 6 "\n\n(fn S)" 1 0 message "Iteration number: %d" intern "elb-" "-entry" garbage-collect "Running %s..." eval benchmark-run puthash gethash pop-to-buffer erase-buffer "* Results\n\n" " |test|non-gc avg (s)|gc avg (s)|gcs avg|tot avg (s)|tot avg err (s)\n" "|-\n" elb-std-deviation car apply format "|%s|%.2f|%.2f|%d|%.2f" "\211\300\245\207" noninteractive [] "\n\n(fn X)" "|%.2f\n" "|total|%.2f|%.2f|%d|%.2f" sqrt + #[257 "\300\301\"\207" [expt 2] 4 "\n\n(fn X)"] org-table-align buffer-string org-mode outline-show-subtree] 33 (#$ . 1558) (byte-code "\205\301\302!C\207" [current-prefix-arg read-regexp "Run benchmark matching: "] 2)]) (provide 'elisp-benchmarks)