From 5228a44274871f7367810cfcafed30815b083f9d Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 4 Feb 2008 21:17:55 +0100
Subject: Prefix metaclasses with #\+ instead of #\%.

darcs-hash:b6771564fc256067287ccae46f45e6dce9130268
---
 Lisp/class-definition.lisp | 2 +-
 Lisp/name-conversion.lisp  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'Lisp')

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)))))))
 
 
-- 
cgit v1.2.3