Function: cps--atomic-p

cps--atomic-p is a byte-compiled function defined in generator.el.gz.

Signature

(cps--atomic-p FORM)

Documentation

Return nil if FORM can yield, non-nil otherwise.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/generator.el.gz
(defun cps--atomic-p (form)
  "Return nil if FORM can yield, non-nil otherwise."
  (and (not cps-inhibit-atomic-optimization)
       (let* ((cps--yield-seen))
         (ignore (macroexpand-all
                  `(cl-macrolet ((cps-internal-yield
                                     (_val)
                                   (setf cps--yield-seen t)))
                     ,form)
                  macroexpand-all-environment))
         (not cps--yield-seen))))