Another expand-defmethod-internal bug

[Kerry Kimbrough <Kimbrough@dsg.csc.ti.com>]

Version: 7/7
System:  TI Explorer

Using kanderson's recently-posted version of this, I found the following
change necessary to avoid errors running setf methods.


**** original
		    (block ,generic-function-name ,@real-body))))

**** modified
		    (block ,(IF (LISTP generic-function-name) (SECOND  generic-function-name)
generic-function-name)
		      ,@real-body))))

***************