diff options
| -rw-r--r-- | Lisp/method-definition.lisp | 58 |
1 files changed, 56 insertions, 2 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 0579299..0484ca9 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -165,6 +165,15 @@ __enable-method-syntax__ to write method names for __define-objective-c-generic-function__. +## Note 4: + +Do not call __call-next-method__ in the body of an +__objective-c-method__. Its behaviour is quite different from +__super__, ill-defined, and probably not desirable anyway. + +Use __super__ instead. + + ## See also: __define-objective-c-generic-function__, __define-objective-c-class__, @@ -212,8 +221,53 @@ __super__" ,(generic-function-name->method-name name) (find-objc-class ',(cadar lambda-list)) - ,super-real-args-sym)))) - ,@body))))))))) + (or ,super-args-sym + (rest ,captured-args-sym))))) + ,@body)))))))))) + + +(defun super (&rest args) + "Send a super message to the receiver of the current message. + +## Syntax: + +*args* --- a **list**. + + +## Description: + +A _super_ call is only valid inside the body of a **method** defined by +means of __define-objective-c-method__. In this case, the Objective-C +**method** of the same name defined in the superclass of the class +specialised over by the method is called. In other words, a super call +is made. + +The behaviour is similar in spirit to calling __call-next-method__ in +the body of a __standard-method__ except that it will be done by the +Objective-C runtime, thereby ignoring any pure-Lisp superclasses. +__super__ is therefore single-inheritance only. + +If __super__ is called with no arguments, the original method arguments +are passed to the super method. Otherwise, the supplied arguments are +passed. + + +## Note: + +Do not call __call-next-method__ in the body of an +__objective-c-method__. Its behaviour is quite different from +__super__, ill-defined, and probably not desirable anyway. + + +## Examples: + + (define-objective-c-generic-function #/characterAtIndex: (self index)) + (define-objective-c-method #/characterAtIndex: :short ((self ns::my-string) (index :unsigned-long)) + (if (weird-string-p self) + (super (1+ index)) + (super)))" + (declare (ignore args)) + (error "Tried to call ~S outside an Objective-C method." 'super)) (defmacro defobjcgeneric (name lambda-list &body options) |