Function: cl--block-throw--cmacro

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

Signature

(cl--block-throw--cmacro _CL-WHOLE-ARG CL-TAG CL-VALUE)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-macs.el.gz
;; Closure converted to defun by helpful.
(defun cl--block-throw--cmacro
    (_cl-whole-arg cl-tag cl-value)
  (cl-block cl--block-throw--cmacro
    (let
	((cl-found
	  (assq
	   (nth 1 cl-tag)
	   cl--active-block-names)))
      (if cl-found
	  (setcdr cl-found t)))
    `(throw ,cl-tag ,cl-value)))