From 9a0d8649511377a160f410fd73f74558f4a8e9dc Mon Sep 17 00:00:00 2001 From: Jeremy Bryant Date: Tue, 31 Oct 2023 22:24:20 +0000 Subject: [PATCH] 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 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 43207ce7026..fd19bca60d9 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -101,6 +101,7 @@ cl--simple-expr-p (and (> size 0) (1- size)))) (defun cl--simple-exprs-p (xs) + "Check if no side effects, and executes quickly, for each element of list XS." (while (and xs (cl--simple-expr-p (car xs))) (setq xs (cdr xs))) (not xs)) @@ -118,6 +119,7 @@ cl--safe-expr-p ;;; 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)." (cond ((consp x) (or (eq (car x) 'quote) (and (memq (car x) '(function cl-function)) -- 2.40.1