diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 23:37:56 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 23:37:56 +0100 |
| commit | 0715218c808240ab831007018f81527011f01e6c (patch) | |
| tree | ba101aa0a86611e69fd728e089caed8b7b641e89 /Lisp | |
| parent | e49885190142d1655cd4358d402dba5237445409 (diff) | |
Fix code formatting.
darcs-hash:b5c8b31cd5192c30558be767843ef375ef1889e1
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/method-definition.lisp | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 9541a49..9824c19 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -230,20 +230,21 @@ __super__" (find-class 'objective-c-method)))) (defmethod ,real-name argtypes-start ,@type-specifiers argtypes-end - ,@qualifiers ((,class-arg-sym (eql ',class-name)) - ,@lambda-list) - (let ((,captured-args-sym (list ,@arg-names))) - (flet ((super (&rest ,super-args-sym) - (invoke-by-name-super-v - (first ,captured-args-sym) - ,(generic-function-name->method-name - name) - (objcl-class-superclass - (find-objc-class ',class-name)) - (or ,super-args-sym - (rest ,captured-args-sym))))) - (declare (ignorable (function super))) - ,@body))))))))))) + ,@qualifiers + ((,class-arg-sym (eql ',class-name)) + ,@lambda-list) + (let ((,captured-args-sym (list ,@arg-names))) + (flet ((super (&rest ,super-args-sym) + (invoke-by-name-super-v + (first ,captured-args-sym) + ,(generic-function-name->method-name + name) + (objcl-class-superclass + (find-objc-class ',class-name)) + (or ,super-args-sym + (rest ,captured-args-sym))))) + (declare (ignorable (function super))) + ,@body))))))))))) (defun super (&rest args) |