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 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 form)
  ((cl-block cl--block-wrapper--cmacro
     (pcase form
       (`(let ((,var \, val)) (catch ,var \, body))
	(let*
	    ((cl-entry (cons var nil))
	     (cl--active-block-names
	      (cons cl-entry cl--active-block-names))
	     (cl-body
	      (macroexpand-all (macroexp-progn body)
			       macroexpand-all-environment)))
	  (if (cdr cl-entry)
	      `(let ((,var \, val))
		 (catch ,var ,@(macroexp-unprogn cl-body)))
	    cl-body)))
       (_ form))))
  (t)]