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
;; Could not find source code, showing raw function object.
#[(_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))))
  (t)]