Changeset 544

Timestamp:

Feb 15, 2004, 8:23:16 AM (21 years ago)

Author:

Gary Byers

Message:

Metaclass of user-defined class derived from class-name symbol, not foreign
string.

File:

• trunk/ccl/examples/objc-runtime.lisp (modified) (1 diff)

trunk/ccl/examples/objc-runtime.lisp

@@ -1117 +1117 @@
            (meta (id->objc-metaclass meta-id))
            (class (id->objc-class id))
-           (meta-name (intern (format nil "+~a" class-name)
+           (meta-name (intern (format nil "+~a" name)
                               (symbol-package name)))
            (meta-super (canonicalize-registered-metaclass