summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-06 23:37:56 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-06 23:37:56 +0100
commit0715218c808240ab831007018f81527011f01e6c (patch)
treeba101aa0a86611e69fd728e089caed8b7b641e89
parente49885190142d1655cd4358d402dba5237445409 (diff)
Fix code formatting.
darcs-hash:b5c8b31cd5192c30558be767843ef375ef1889e1
-rw-r--r--Lisp/method-definition.lisp29
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)