From 0715218c808240ab831007018f81527011f01e6c Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 6 Mar 2008 23:37:56 +0100
Subject: Fix code formatting.
darcs-hash:b5c8b31cd5192c30558be767843ef375ef1889e1
---
Lisp/method-definition.lisp | 29 +++++++++++++++--------------
1 file changed, 15 insertions(+), 14 deletions(-)
(limited to 'Lisp')
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)
--
cgit v1.2.3