[Sbcl-devel] (SETF %FUN-NAME) in closures

[Tobias C. R. <tc...@fr...>]

commit df871446529da0e83d670f35a9566c11d814be32
Author: Nikodemus Siivola <...>
Date:   Sat Jun 20 13:48:46 2009 +0000

    1.0.29.23: simple-fun and closure cleanups

    ...
    
    * Make (SETF %FUN-NAME) to work: on closures just change the name of
      the underlying function and let the callers beware. On interpreted
      functions change the new DEBUG-NAME slot instead of NAME. Use in
      DEFMACRO and DEFINE-COMPILER-MACRO.

   ...

I was just bitten by (SETF %FUN-NAME) changing the underlying function
which may be shared among several closures.

In particular, I tried to set the %FUN-NAME of structure
accessors. Having %FUN-NAME work on those is a prerequisite for
SB-INTROSPECT:FUNCTION-TYPE which I finally want to add. (Reason: the
declared type of a structure is more specific that the derived type, so
FUNCTION-TYPE will give priority to the globaldb entry -- but for that,
it needs an accessor's name.)

Any suggestions?

  -T.