let-alias

[Helmut Eller]

After the recent discussion about namespaces, it occurred to me that it
would be useful to have a special form that allows one to create
lexically scoped aliases for function bindings.

The idea is quite simple and is supposed to provide a locally scoped
version of defalias.  A possible syntax would be:

  (let-alias ((new-name old-name) ...)
     body...)

Inside BODY, wherever NEW-NAME is used as function name it should
produce the same result as using OLD-NAME would.  E.g.

  (let-alias ((c car)) (c x))            ===  (car x)
  (let-alias ((c car)) #'c)              ===  #'car
  (let-alias ((c car)) (setf (c x) y))   ===  (setf (car x) y)
  (let-alias ((when-not unless)) (when-not x y)) === (unless x y)

Would somebody be opposed to such a new special form? Or better yet, is
there already some way to achieve this?

Helmut