Is it possible to have an alias for the function name in Lisp?

Question

...just like packages do.

I use Emacs (maybe, it can offer some kind of solution).

For example (defun the-very-very-long-but-good-name () ...) is no

Answer 1

You could use setf to assign the function to the function cell of another, for example:

(defmacro alias (new-name prev-name)
  `(setf (symbol-function ,new-name) (symbol-function ,prev-name)))