Function: eieio--defalias

eieio--defalias is a byte-compiled function defined in eieio-compat.el.gz.

Signature

(eieio--defalias NAME BODY)

Documentation

Like defalias, but with less side-effects.

More specifically, it has no side-effects at all when the new function definition is the same (eq) as the old one.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/eieio-compat.el.gz
     #'byte-compile-file-form-defalias) ;;(get 'defalias 'byte-hunk-handler)
;;;###autoload
(defun eieio--defalias (name body)
  "Like `defalias', but with less side-effects.
More specifically, it has no side-effects at all when the new function
definition is the same (`eq') as the old one."
  (cl-assert (not (symbolp body)))
  (while (and (fboundp name) (symbolp (symbol-function name)))
    ;; Follow aliases, so methods applied to obsolete aliases still work.
    (setq name (symbol-function name)))
  (unless (and (fboundp name)
               (eq (symbol-function name) body))
    (defalias name body)))