Function: cl--block-wrapper--cmacro

cl--block-wrapper--cmacro is a function defined in cl-macs.el.gz.

Signature

(cl--block-wrapper--cmacro _CL-WHOLE-ARG CL-FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-macs.el.gz
;; Closure converted to defun by helpful.
(defun cl--block-wrapper--cmacro
    (_cl-whole-arg cl-form)
  (cl-block cl--block-wrapper--cmacro
    (let*
	((cl-entry
	  (cons
	   (nth 1
		(nth 1 cl-form))
	   nil))
	 (cl--active-block-names
	  (cons cl-entry cl--active-block-names))
	 (cl-body
	  (macroexpand-all
	   (macroexp-progn
	    (cddr cl-form))
	   macroexpand-all-environment)))
      (if
	  (cdr cl-entry)
	  `(catch ,(nth 1 cl-form)
	     ,@(macroexp-unprogn cl-body))
	cl-body))))