Function: cps--special-form-p

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

Signature

(cps--special-form-p DEFINITION)

Documentation

Non-nil if and only if DEFINITION is a special form.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/generator.el.gz
(defun cps--special-form-p (definition)
  "Non-nil if and only if DEFINITION is a special form."
  ;; Copied from ad-special-form-p
  (if (and (symbolp definition) (fboundp definition))
      (setf definition (indirect-function definition)))
  (and (subrp definition) (eq (cdr (subr-arity definition)) 'unevalled)))