Re: How to add slots to method objects

[kanderso@DINO.BBN.COM]

  Date: Mon, 19 Jun 89 10:15:36 EDT
  From: Martin Boyer <gamin%moe.mcrcim.mcgill.edu@dino.bbn.com>
  Message-Id: <8906191415.AA17070@Moe.McRCIM.McGill.EDU>
  To: CommonLoops.PA@xerox.com
  Subject: How to add slots to method objects
  
  The first one was easy.  Unfortunately, DEFGENERIC doesn't yet accept
  options and FIND-METHOD is not implemented yet.
  
  I tried ENSURE-GENERIC-FUNCTION, but it ignores the relevant options.  I
  tried CHANGE-CLASS on a method, but there is no method defined for
  CHANGE-CLASS on action-method classes.  I also looked in the section on
  Meta-Objects (p. 1-33, 1-34), but chapter 3 is not available yet for
  non-initiated.
  
  It there a solution to this?  I am considering modifications to the PCL
  source to add those slots as part of the STANDARD-METHOD definition but
  that is an ugly hack.

Use ENSURE-GNERIC-FUNCTION to get an empty gf.  Then set its
generic-function-method-class to be (find-class 'action-method).  Use
GET-METHOD for FIND-METHOD.