From 8d18782f12e2316ce4f66a7a25ebe8f70eb97522 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 21 Mar 2008 19:16:27 +0100
Subject: Improve DEFINE-OBJECTIVE-C-METHOD documentation.

darcs-hash:9972c12e79f49e8556b974500bc967fe8dabf21c
---
 Lisp/method-definition.lisp | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index 377247e..caedec9 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -74,9 +74,12 @@ undefined."))
 (defmacro define-objective-c-method (name &rest args)
   "Define a new Objective-C method.
 
+*args* ::= \\{*qualifier*\\}\\* *lambda-list* [[\\{*declaration*\\}\\* | *docstring*]] \\{*form*\\}\\*
+
+
 ## Arguments and Values:
 
-*name* --- a *symbol*.
+*name* --- a **symbol**.
 
 *qualifier* --- a **method qualifier**.
 
@@ -84,7 +87,11 @@ undefined."))
 
 *lambda-list* --- a **modified lambda list**.
 
-*body* --- an **implicit progn**.
+*docstring* --- a **string** (not evaluated).
+
+*declaration* --- a **local declaration** (not evaluated).
+
+*forms* --- an **implicit progn**.
 
 
 ## Description:
@@ -126,7 +133,9 @@ function __super__.
                   ~&~A, respectively.~
                   ~&Have a nice day.\" z a)
       (+ y 20))
-      => #<OBJECTIVE-C-METHOD OBJECTIVE-C-METHODS::|foo:bar:stuff:do:| ((EQL NS:MLK-MY-CLASS) NS:MLK-MY-CLASS T T T NS:NS-NUMBER) {CE8E531}>
+      => #<OBJECTIVE-C-METHOD
+           OBJECTIVE-C-METHODS::|foo:bar:stuff:do:|
+           ((EQL NS:MLK-MY-CLASS) NS:MLK-MY-CLASS T T T NS:NS-NUMBER) {CE8E531}>
 
     (#/foo:bar:stuff:do: (#/new (find-objc-class 'ns::mlk-my-class))
                          100
-- 
cgit v1.2.3