Lisp Test

[Tim McNerney <TIM@MIT-MC.ARPA>]

    Date: Sun, 22 Sep 85 21:15:09 EDT
    From: George J. Carrette <GJC at MIT-MC.ARPA>

    [4] (flet ((g () 5)) (setf #'g #'(lambda () 7)) (g))

George,

I had been wondering about this for a while.  I thought that FUNCTION
might be magic, but (SETF (FUNCTION ...) ...) does not appear to be
defined in CLtL.  Perhaps you meant to use SYMBOL-FUNCTION instead.
If so, it would indeed make a good teaser for testing to see if people
had carefully read page 90.

Folks,

Does Common Lisp provide any way to side effect "lexical function cells"
such as G above?