[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Compute-applicable-methods not working properly in Victoria Day PCL
- To: kanderso@dino.bbn.com
- Subject: Re: Compute-applicable-methods not working properly in Victoria Day PCL
- From: Darrell <shane%blackcomb@rand.org>
- Date: Wed, 12 Jul 89 14:59:43 PDT
- Cc: CommonLoops.PA@Xerox.COM, David_McArthur <dave@rand.org>, Darrell_Shane <shane@rand.org>
- In-reply-to: Your message of Wed, 12 Jul 89 09:44:00 D. <8907121340.AA18214@rand.org>
- Redistributed: CommonLoops.PA
>> When i do this in AKCL, it seems to work:
>>
>> PCL>(generic-function-methods #'foo)
>> (#<Standard-Method FOO :AROUND ((EQL A)) 16332660>
>> #<Standard-Method FOO :AFTER ((EQL A)) 16332700>
>> #<Standard-Method FOO :BEFORE ((EQL A)) 16332720>
>> #<Standard-Method FOO ((EQL A)) 16333220>)
>>
>> PCL>(foo 'a)
>> Before foo method.
>> Main foo method.
>> After foo method.
>> Around foo method.
>> NIL
>>
>> PCL>(compute-applicable-methods #'foo (list 'a))
>> (#<Standard-Method FOO :AROUND ((EQL A)) 16332660>
>> #<Standard-Method FOO :AFTER ((EQL A)) 16332700>
>> #<Standard-Method FOO :BEFORE ((EQL A)) 16332720>
>> #<Standard-Method FOO ((EQL A)) 16333220>)
Try computing the applicable methods before invoking (foo 'a). I think
that you will get the same incorrect results I did.
Darrell Shane