Changeset 12534

Timestamp:

03/14/10 19:15:40 (13 years ago)

Author:

ehuelsmann

Message:

Make sure non-standard (meta) classes aren't cast to LispClass?
as they are StandardObject?-s.

Re #38.

File:

• branches/metaclass/abcl/src/org/armedbear/lisp/StandardObject.java (modified) (1 diff)

branches/metaclass/abcl/src/org/armedbear/lisp/StandardObject.java

@@ -146 +146 @@
       {
         // TYPE-OF.9
-        final LispObject c2 = LispClass.findClass(checkSymbol(name));
+        final LispObject c2 = LispClass.findClass(name, false);
         if (c2 == c1)
           return name;