From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 11 Jun 2021 18:06:29 +0000 (-0400)
Subject: * lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak
X-Git-Tag: emacs-28.0.90~2142
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e775ef2f57e7889e29edbf44e6f6a2deb79d2635;p=emacs.git

* lisp/emacs-lisp/benchmark.el (benchmark-elapse): Tweak
---

diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el
index 439d3bd363e..64c628822df 100644
--- a/lisp/emacs-lisp/benchmark.el
+++ b/lisp/emacs-lisp/benchmark.el
@@ -37,8 +37,7 @@
   "Return the time in seconds elapsed for execution of FORMS."
   (declare (indent 0) (debug t))
   (let ((t1 (make-symbol "t1")))
-    `(let (,t1)
-       (setq ,t1 (current-time))
+    `(let ((,t1 (current-time)))
        ,@forms
        (float-time (time-since ,t1)))))