summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Lisp/libobjcl.lisp8
-rw-r--r--Lisp/parameters.lisp10
2 files changed, 9 insertions, 9 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index fab195e..d633480 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -277,8 +277,8 @@ objects or classes, let alone send messages to them.
*errorp* --- a **generalized boolean**.
-Returns: *class* --- an __objc-class__ object representing the Objective
-C class whose name is *class-name*.
+Returns: *class* --- an __objective-c-class__ object representing the
+Objective C class whose name is *class-name*.
## Description:
@@ -309,8 +309,8 @@ __find-objc-class__.
## Examples:
- (find-objc-class \"NSObject\") ;=> #<OBJC-CLASS NSObject>
- (find-objc-class 'ns-object) ;=> #<OBJC-CLASS NSObject>
+ (find-objc-class \"NSObject\") ;=> #<NS:+NS-OBJECT NS:NS-OBJECT {B5C1C480}>
+ (find-objc-class 'ns-object) ;=> #<NS:+NS-OBJECT NS:NS-OBJECT {B5C1C480}>
(find-objc-class 'nsobject) ;=> NIL
diff --git a/Lisp/parameters.lisp b/Lisp/parameters.lisp
index a26908b..14a3f16 100644
--- a/Lisp/parameters.lisp
+++ b/Lisp/parameters.lisp
@@ -64,17 +64,17 @@ Objective-CL.
\(With __install-reader-syntax__ enabled.)
- (defvar *tmp*)
- (setq *trace-method-calls* t)
+ (defvar \\*tmp\\*)
+ (setq \\*trace-method-calls\\* t)
- (setq *tmp* [NSString new])
+ (setq \\*tmp\\* [NSString new])
; Invoking [new].
- (setq *tmp* [NSString string])
+ (setq \\*tmp\\* [NSString string])
; Invoking [string].
; Invoking [retain].
- (setq *tmp* nil)
+ (setq \\*tmp\\* nil)
(gc :full t)
; Invoking [release].
; Invoking [release].