Function: cl--defsubst-expand

cl--defsubst-expand is an autoloaded and byte-compiled function defined in cl-macs.el.gz.

Signature

(cl--defsubst-expand ARGNS BODY SIMPLE WHOLE UNSAFE &rest ARGVS)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-macs.el.gz
(defun cl--defsubst-expand (argns body _simple whole _unsafe &rest argvs)
  (if (and whole (not (cl--safe-expr-p (macroexp-progn argvs))))
      whole
    ;; Function arguments are unconditionally statically scoped (bug#47552).
    (cl--slet (cl-mapcar #'list argns argvs) body 'nowarn)))