From 0715218c808240ab831007018f81527011f01e6c Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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