🚀 go-pugleaf

In article <CHYDE.92Aug10150355@pecos.ads.com>, chyde@pecos.ads.com (Clinton Hyde) writes:
|> 
|> i have a method I want to remove. to do so, I need to find it with
|> find-method, but i haven't been able to figure out what FIND-METHOD
|> really wants as args.
|> 
|> here's CLtL2:
|> 
|> (find-method generic-fn qualifiers specializers)
|> 
|> here's an example:
|> 
|> (find-method (ensure-generic-function my-method-name) NIL '(t))

The problem is that find-method is looking for a list of classes for
specializers....

(find-method (fdefinition 'my-method-name) nil `(,(find-class 't)))

should handle it.... fdefinition from CLtL2...
however Lucid 4.0.2 uses clos-sys:function-from-name

> (defmethod my-method-name (arg) 'foo)
#<Standard-Method MY-METHOD-NAME (T)>

> (defmethod my-method-name ((arg symbol)) 'bar) 
#<Standard-Method MY-METHOD-NAME (SYMBOL)>

These are two random methods.

> (my-method-name 'hi)
BAR

Now, the method specializing on t and on symbol can each be 
found as following:

> (find-method (clos-sys:function-from-name 'my-method-name) 
	       nil 
	       `(,(find-class 't)))
#<Standard-Method MY-METHOD-NAME (T)>


> (find-method (clos-sys:function-from-name 'my-method-name) nil `(,(find-class 'symbol)))
#<Standard-Method MY-METHOD-NAME (SYMBOL)>


The method specializing on symbol can be removed as follows:

> (remove-method (clos-sys:function-from-name 'my-method-name)
                 (find-method (clos-sys:function-from-name 'my-method-name) 
                              nil 
                              `(,(find-class 'symbol))))
#<Standard-Generic-Function MY-METHOD-NAME (1)>

This removes the method specializing on symbol as shown below.

> (my-method-name 'hi)
FOO




Whitney Winston
<wwinston@speckle.ncsl.nist.gov>
<wwinston@athena.mit.edu>