diff options
| -rw-r--r-- | Lisp/libobjcl.lisp | 8 | ||||
| -rw-r--r-- | Lisp/parameters.lisp | 10 |
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]. |