From 3a35930787e6caf4bb126fd828221dab79d939fc Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 5 Mar 2008 14:12:58 +0100 Subject: Fix documentation formatting. darcs-hash:511ea4147397dc61baabcd0ddc39c7ec01097163 --- Lisp/class-definition.lisp | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'Lisp/class-definition.lisp') diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index 729c19a..d6cc6a9 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -79,7 +79,7 @@ per (4) above), the behaviour is undefined. slot ::= (*slot-name* [[*slot-option* | *foreign-slot-option*]]\\*) -foreign-slot-option ::= {:foreign-type *typespec*} | {:foreign-name *foreign-name*} +foreign-slot-option ::= \\{:foreign-type *typespec*\\} | \\{:foreign-name *foreign-name*\\} *typespec* --- a **list** or a **symbol**. @@ -120,16 +120,16 @@ transforming it to Lower Camel Case as follows: (foo-count :foreign-type :int))) ;foreign name will be \"fooCount\" => # - (defvar *x* (invoke (find-objc-class 'mlk-my-class) 'new)) - => *X* + (defvar \\*x\\* (invoke (find-objc-class 'mlk-my-class) 'new)) + => \\*X\\* - (slot-boundp *x* 'foo-count) => T - (setf (slot-value *x* 'foo-count) 100) => 100 - (slot-value *x* 'foo-count) => 100 + (slot-boundp \\*x\\* 'foo-count) => T + (setf (slot-value \\*x\\* 'foo-count) 100) => 100 + (slot-value \\*x\\* 'foo-count) => 100 - (slot-boundp *x* 'foos) => NIL - (setf (slot-value *x* 'foos) (list 'a 'b 'c)) => (A B C) - (slot-value *x* 'foos) => (A B C) + (slot-boundp \\*x\\* 'foos) => NIL + (setf (slot-value \\*x\\* 'foos) (list 'a 'b 'c)) => (A B C) + (slot-value \\*x\\* 'foos) => (A B C) ## Note: @@ -158,7 +158,7 @@ Because of this, one has to be very careful when using _:string_ as the ## See also: - __defclass__, __define-objective-c-generic-function, + __defclass__, __define-objective-c-generic-function__, __define-objective-c-method__" (let* ((objc-superclasses (remove-if-not #'(lambda (c) -- cgit v1.2.3