Special Form Question

[shebs%utah-orion@utah-cs.arpa (Stanley Shebs)]

This may seem like an exceptionally stupid question, but what should
the following do?

  (setf (symbol-function 'foo) (symbol-function 'quote))
  (foo (a b c))

While CLtL prohibits defining new special forms, it's not clear
that this use is defining a "new" form.  Also, symbol-function on
special forms is allowed to return something (whose exact nature is
carefully left vague) which presumably can be used elsewhere.  The
whole thing sure looks like a nod to implementations which still have
nasty fexprs :-), and for which the above trick would be valid.
Am I right?  Or is it OK for symbol-function of a special form to
signal an error?

							stan shebs