master 445029da580: Add two docstrings in cl-macs.el

[Stefan Monnier]

branch: master
commit 445029da580c8194c2400d6959911117b2ba665a
Author: Jeremy Bryant <jb@jeremybryant.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Add two docstrings in cl-macs.el
    
    * lisp/emacs-lisp/cl-macs.el (cl--simple-exprs-p)
    (cl--const-expr-p): Add docstrings
---
 lisp/emacs-lisp/cl-macs.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a4a241d9c63..71a9ad33f98 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -101,6 +101,7 @@
     (and (> size 0) (1- size))))
 
 (defun cl--simple-exprs-p (xs)
+  "Map `cl--simple-expr-p' to each element of list XS."
   (while (and xs (cl--simple-expr-p (car xs)))
     (setq xs (cdr xs)))
   (not xs))
@@ -116,8 +117,10 @@
             (while (and (setq x (cdr x)) (cl--safe-expr-p (car x))))
             (null x)))))
 
-;;; Check if constant (i.e., no side effects or dependencies).
 (defun cl--const-expr-p (x)
+  "Check if X is constant (i.e., no side effects or dependencies).
+
+See `macroexp-const-p' for similar functionality without cl-lib dependency."
   (cond ((consp x)
         (or (eq (car x) 'quote)
             (and (memq (car x) '(function cl-function))