Defining aliases to standard Common Lisp functions?

Question

Lisp is said to enable redefinitions of its core functions. I want to define an alias to the function cl:documentation function, such that

(doc         


        

Answer 1

I use a simple macro for this:

(defmacro alias (to fn)
    `(setf (fdefinition ',to) #',fn))

e.g.

(alias neg -) => #

(neg 10) => -10

Other answers include detail about how to make this permanent.