bug#32728: Xemacs 23 times as fast as GNU Emacs

["Benninghofen, Benjamin Dr." <benjamin.benninghofen@airbus.com>]

[-- Attachment #1.1: Type: text/plain, Size: 2066 bytes --]



The versions of Xemacs and GNU Emacs are those that come with RHEL 7.5.

The attachment contains 2 files:

demo.el   : to be evaluated in Emacs Lisp
prog.sh  :  to be placed in the home directory

Furthermore a large text file "input.txt"  is needed in the home directory. The file should have 1000000 lines, each line longer than 80 characters. The file is not included in the attachment because this would be too big.


The file I used was created with the following ANSI-COMMON-LISP function:

(defun print-nums (&key (first 1) (last 1000000))
  (check-type first fixnum)
  (check-type last fixnum)
  (loop for k of-type fixnum from first to last do (format t "~%~B ^3 = ~B" k (expt k 3)))
  t)

Alternatively the "input.txt" file can be created as follows:

#! /bin/bash
  last=1000000
  function base2 {
      echo "obase=2;$1" | bc
  }
  for k in $(seq 1 $last); do
      x=$(( k * k * k ))
      echo $(base2 $k) '^3 =' $(base2 $x)
  done

generate the input like this:

  $ ./gen.sh > input.txt



The benchmark is executed by
(M-x) demo

At the end the time is printed and I received the following results:

Xemacs    : 51 seconds
GNU Emacs : 1205 seconds

So the Xemacs is more than 23 times as fast as the GNU Emacs.

---
Benjamin Benninghofen


The information in this e-mail is confidential. The contents may not be disclosed or used by anyone other than the addressee. Access to this e-mail by anyone else is unauthorised.
If you are not the intended recipient, please notify Airbus immediately and delete this e-mail.
Airbus cannot accept any responsibility for the accuracy or completeness of this e-mail as it has been sent over public networks. If you have any concerns over the content of this message or its Accuracy or Integrity, please contact Airbus immediately.
All outgoing e-mails from Airbus are checked using regularly updated virus scanning software but you should take whatever measures you deem to be appropriate to ensure that this message and any attachments are virus free.

[-- Attachment #1.2: Type: text/html, Size: 3414 bytes --]

[-- Attachment #2: A_POLICY_VIOLATED_FILE_WAS_DETECTED_AND_REMOVED.TXT --]
[-- Type: text/plain, Size: 189 bytes --]

ScanMail detected and removed a file named "files2.tgz" that violated attachment blocking policy from the original mail entity. You can safely save or delete this replacement attachment.