Function: byte-compile-set-default

byte-compile-set-default is a byte-compiled function defined in bytecomp.el.gz.

Signature

(byte-compile-set-default FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/bytecomp.el.gz
(defun byte-compile-set-default (form)
  (let ((varexp (car-safe (cdr-safe form))))
    (if (eq (car-safe varexp) 'quote)
        ;; If the varexp is constant, check the var's name.
        (let ((var (car-safe (cdr varexp))))
          (and (or (not (symbolp var))
                   (macroexp--const-symbol-p var t))
               (byte-compile-warning-enabled-p 'constants
                                               (and (symbolp var) var))
               (byte-compile-warn-x
                var
                "variable assignment to %s `%s'"
                (if (symbolp var) "constant" "nonvariable")
                var))))
    (byte-compile-normal-call form)))