Re: Emacs-30 performances

["Mattias Engdegård" <mattias.engdegard@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 933 bytes --]

15 juni 2024 kl. 07.32 skrev Thierry Volpiatto <thievol@posteo.net>:

> My setup is not involved here, you only have to install psession.el and
> run (benchmark-run 1 (psession--dump-object-to-file-save-alist)) after
> adding some variables to psession-object-to-save-alist.

Some variables? Which ones, exactly? And containing what?

To make progress we need a bit more precision. As a starting point I'm attaching the benchmark that I used but it's pure guesswork on my side. It shows a 1.3× speedup between Emacs 29.3 and master, which is nice but not quite your reported 16× improvement. This is with byte-compilation only, no native compilation.
Run it with

  emacs -Q -batch -f package-initialise -l psession-bench.elc

If you are unhappy with this benchmark, please propose an amendment that reproduces the effect you observed and that we can run, and which does not depend on your personal Emacs settings.


[-- Attachment #2: psession-bench.el --]
[-- Type: application/octet-stream, Size: 821 bytes --]

;;; -*- lexical-binding: t -*-

(require 'psession)

(defvar my-big-list
  (mapcar (lambda (n)
            (mapcar (lambda (m)
                      (let ((s (format "hello-%d-%d" m n)))
                        (list m n s (intern s))))
                    (number-sequence 1 100)))
            (number-sequence 1 1000)))

(push '(my-big-list . "my-big-list.el")
      psession-object-to-save-alist)

(defun bench ()
  (garbage-collect)
  (let* ((gcs0 gcs-done)
         (gc-elapsed0 gc-elapsed)
         (t0 (float-time))
         (_result (psession--dump-object-to-file-save-alist))
         (dt (- (float-time) t0))
         (gcs (- gcs-done gcs0))
         (gc-time (- gc-elapsed gc-elapsed0)))
    (message "%.3f s elapsed, %d GCs, %.3f s in GC, %.3f s non-GC"
             dt gcs gc-time (- dt gc-time))))

(bench)

[-- Attachment #3: Type: text/plain, Size: 2 bytes --]