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

[Mattias Engdegård]

branch: master
commit bb567e339a81c8b6d5bd24774c0da8c8402847de
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    * lisp/emacs-lisp/cl-extra.el (cl-parse-integer): side-effect-free.
---
 lisp/emacs-lisp/cl-extra.el | 1 +
 1 file changed, 1 insertion(+)

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))