diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 21:17:55 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 21:17:55 +0100 |
| commit | 5228a44274871f7367810cfcafed30815b083f9d (patch) | |
| tree | 8946baf8a20672e0e84de6397f5bfa365cd96fde /Lisp | |
| parent | d801ba9e2ef9c0f36a2ab07241c6777eb622c96b (diff) | |
Prefix metaclasses with #\+ instead of #\%.
darcs-hash:b6771564fc256067287ccae46f45e6dce9130268
Diffstat (limited to 'Lisp')
| -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))))))) |