Function: cl--push-clause-loop-body

cl--push-clause-loop-body is a macro defined in cl-macs.el.gz.

Signature

(cl--push-clause-loop-body CLAUSE)

Documentation

Apply CLAUSE to both cl--loop-conditions and cl--loop-body.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-macs.el.gz
(defmacro cl--push-clause-loop-body (clause)
  "Apply CLAUSE to both `cl--loop-conditions' and `cl--loop-body'."
  (macroexp-let2 nil sym clause
    `(progn
       (push ,sym cl--loop-conditions)
       (push ,sym cl--loop-body))))