[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: Gregor.pa@Xerox.COM
- Subject: Re: no-applicable-method
- From: kanderso@DINO.BBN.COM
- Date: Thu, 10 Aug 89 13:25:38 -0400
- Cc: CHEEWEEI%ITIVAX.BITNET@cunyvm.cuny.edu, commonloops.pa@Xerox.COM
- In-reply-to: Your message of Wed, 09 Aug 89 20:12:00 -0700. <19890810031203.9.GREGOR@SPIFF.parc.xerox.com>
- Redistributed: commonloops.pa
Some small items on NO-APPLICALBLE-METHOD:
1. The example that cheeweei has trouble with works fine in my
system. At least, the example below works.
2. The problem that i have with NO-APPLICABLE-METHOD is that i'd
really like to specialize it on more than the first argument. For
example, say i define a class that uses NO-APPLICABLE-METHOD to do a
kind of simple delegation:
(defmethod no-applicable-method ((gf standard-generic-function) &rest args)
;; Try delegation.
(let ((method (apply #'find-delegated-method gf args)))
(if method (apply method args)
I don't need to change the behavior of STANDARD-GF, i just want to
do something different if one or more of the arguments can delegate.
Unfortuantely, i can't specialize on any of the args so i must do it
3. If i'm forced by Gregor not to change STANDARD-GENERIC-FUNCTION, i
must define my own and make every gf use it. This is a lot more work
than simply adding one new method.