diff options
| -rw-r--r-- | Lisp/class-definition.lisp | 2 | ||||
| -rw-r--r-- | Lisp/name-conversion.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index b8e23e4..9229270 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -286,5 +286,5 @@ (nothing :accessor ns-string-nothing :initarg :ns-string :initform 100)) - (:metaclass objective-c-classes::%ns-string) + (:metaclass objective-c-classes::+ns-string) (:wrapped-foreign-class "NSString")) diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp index 0c294fb..55ea829 100644 --- a/Lisp/name-conversion.lisp +++ b/Lisp/name-conversion.lisp @@ -112,7 +112,7 @@ (export-and-return (read-from-string (concatenate 'string - "%" + "+" (symbol-name (objc-class-name->symbol meta-class-name))))))) |