Naming Method Functions

[Jim Kempf <kempf%hplabsc@hplabs.HP.COM>]

Since the naming of LAMBDA's is likely to be implementation dependent,
I wonder if the code in EXPAND-DEFMETH-INTERNAL in class-prot.l could
be modified to take an implementation dependent DECLARE specification.
I've modified mine to look like this:

(defvar *method-name-declaration*
  #-HP 'method-function-name
  #+HP 'extn:name
)

(defmeth expand-defmeth-internal 

     ..... internals, down to where a LAMBDA is generated ...

        #'(lambda ,merged-args
            ,@documentation
            (declare
              (,*method-name-declaration* ,method-name)
            )

           .....
)

This would allow each CL implementation to add their way of naming
methods.

		Jim Kempf	kempf@hplabs.hp.com