From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 9 Apr 2023 08:45:43 +0000 (+0200)
Subject: * lisp/emacs-lisp/cl-extra.el (cl-parse-integer): side-effect-free.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb567e339a81c8b6d5bd24774c0da8c8402847de;p=emacs.git

* lisp/emacs-lisp/cl-extra.el (cl-parse-integer): side-effect-free.
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index de5eb9c2d92..e1c8ebe2559 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -408,6 +408,7 @@ Other non-digit chars are considered junk.
 RADIX is an integer between 2 and 36, the default is 10.  Signal
 an error if the substring between START and END cannot be parsed
 as an integer unless JUNK-ALLOWED is non-nil."
+  (declare (side-effect-free t))
   (cl-check-type string string)
   (let* ((start (or start 0))
 	 (len	(length string))