(bench-multi :times 1000 :ensure-equal t
:forms (("buffer-local-value" (--filter (equal 'magit-status-mode (buffer-local-value 'major-mode it))
(buffer-list)))
("with-current-buffer" (--filter (equal 'magit-status-mode (with-current-buffer it
major-mode))
(buffer-list)))))
Form | x faster than next | Total runtime | # of GCs | Total GC runtime |
buffer-local-value | 61.40 | 0.012090980 | 0 | 0.0 |
with-current-buffer | slowest | 0.742442806 | 0 | 0.0 |
(bench-multi-lexical :times 1000 :ensure-equal t
:forms (("buffer-local-value" (--filter (equal 'magit-status-mode (buffer-local-value 'major-mode it))
(buffer-list)))
("with-current-buffer" (--filter (equal 'magit-status-mode (with-current-buffer it
major-mode))
(buffer-list)))))
Form | x faster than next | Total runtime | # of GCs | Total GC runtime |
buffer-local-value | 76.37 | 0.009417102 | 0 | 0.0 |
with-current-buffer | slowest | 0.719142089 | 0 | 0.0 |
(bench-multi :times 1000 :ensure-equal t
:forms (("buffer-local-value" (cl-count-if (lambda (buffer)
(equal 'magit-status-mode (buffer-local-value 'major-mode buffer)))
(buffer-list)))
("with-current-buffer" (cl-count-if (lambda (buffer)
(equal 'magit-status-mode (with-current-buffer buffer
major-mode)))
(buffer-list)))))
Form | x faster than next | Total runtime | # of GCs | Total GC runtime |
buffer-local-value | 37.55 | 0.021833004 | 0 | 0.0 |
with-current-buffer | slowest | 0.819851933 | 0 | 0.0 |
(bench-multi-lexical :times 1000 :ensure-equal t
:forms (("buffer-local-value" (cl-count-if (lambda (buffer)
(equal 'magit-status-mode (buffer-local-value 'major-mode buffer)))
(buffer-list)))
("with-current-buffer" (cl-count-if (lambda (buffer)
(equal 'magit-status-mode (with-current-buffer buffer
major-mode)))
(buffer-list)))))
Form | x faster than next | Total runtime | # of GCs | Total GC runtime |
buffer-local-value | 41.35 | 0.019799543 | 0 | 0.0 |
with-current-buffer | slowest | 0.8186816659999999 | 0 | 0.0 |
(bench-multi :times 1000 :ensure-equal t
:forms (("buffer-local-value" (cl-loop for buffer in (buffer-list)
count (equal 'magit-status-mode
(buffer-local-value 'major-mode buffer))))
("with-current-buffer" (cl-loop for buffer in (buffer-list)
count (equal 'magit-status-mode
(with-current-buffer buffer
major-mode))))))
Form | x faster than next | Total runtime | # of GCs | Total GC runtime |
buffer-local-value | 65.69 | 0.012199154 | 0 | 0.0 |
with-current-buffer | slowest | 0.801342764 | 0 | 0.0 |
(bench-multi-lexical :times 1000 :ensure-equal t
:forms (("buffer-local-value" (cl-loop for buffer in (buffer-list)
count (equal 'magit-status-mode
(buffer-local-value 'major-mode buffer))))
("with-current-buffer" (cl-loop for buffer in (buffer-list)
count (equal 'magit-status-mode
(with-current-buffer buffer
major-mode))))))
Form | x faster than next | Total runtime | # of GCs | Total GC runtime |
buffer-local-value | 72.82 | 0.011035178999999999 | 0 | 0.0 |
with-current-buffer | slowest | 0.8036216380000001 | 0 | 0.0 |
(bench-multi :times 1000 :ensure-equal t
:forms (("buffer-local-value" (cl-loop for buffer in (buffer-list)
do (buffer-local-value 'major-mode buffer)))
("with-current-buffer" (cl-loop for buffer in (buffer-list)
do (with-current-buffer buffer
major-mode)))))
Form | x faster than next | Total runtime | # of GCs | Total GC runtime |
buffer-local-value | 72.36 | 0.011224456 | 0 | 0.0 |
with-current-buffer | slowest | 0.8121976470000001 | 0 | 0.0 |
(bench-multi-lexical :times 1000 :ensure-equal t
:forms (("buffer-local-value" (cl-loop for buffer in (buffer-list)
do (buffer-local-value 'major-mode buffer)))
("with-current-buffer" (cl-loop for buffer in (buffer-list)
do (with-current-buffer buffer
major-mode)))))
Form | x faster than next | Total runtime | # of GCs | Total GC runtime |
buffer-local-value | 83.94 | 0.009519662 | 0 | 0.0 |
with-current-buffer | slowest | 0.799119664 | 0 | 0.0 |