Function: elisp-scope--analyze-cl-tagbody-1

elisp-scope--analyze-cl-tagbody-1 is a byte-compiled function defined in elisp-scope.el.gz.

Signature

(elisp-scope--analyze-cl-tagbody-1 &rest BODY)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/elisp-scope.el.gz
(elisp-scope-define-macro-analyzer cl-tagbody (&rest body)
  (let (labels statements)
    (while body
      (let ((head (pop body)))
        (if (consp head)
            (push head statements)
          (push head labels))))
    (elisp-scope-cl-tagbody (nreverse labels) (nreverse statements))))