* lisp/subr.el (list-of-strings-p): Declare pure and error-free

diff --git a/lisp/subr.el b/lisp/subr.el
index caea2b9f933c476032e314074878c0080f6b5d79..d7cdc28abbad9b379b81aa17a8a461c48a85b733 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4028,6 +4028,7 @@ Otherwise, return nil."
 
 (defun list-of-strings-p (object)
   "Return t if OBJECT is nil or a list of strings."
+  (declare (pure t) (side-effect-free error-free))
   (while (and (consp object) (stringp (car object)))
     (setq object (cdr object)))
   (null object))