[armedbear-cvs] r12534 - branches/metaclass/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Mar 14 15:15:40 2010
New Revision: 12534

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

Re #38.

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

Modified: branches/metaclass/abcl/src/org/armedbear/lisp/StandardObject.java
==============================================================================
--- branches/metaclass/abcl/src/org/armedbear/lisp/StandardObject.java	(original)
+++ branches/metaclass/abcl/src/org/armedbear/lisp/StandardObject.java	Sun Mar 14 15:15:40 2010
@@ -145,7 +145,7 @@
     if (name != NIL && name != UNBOUND_VALUE)
       {
         // TYPE-OF.9
-        final LispObject c2 = LispClass.findClass(checkSymbol(name));
+        final LispObject c2 = LispClass.findClass(name, false);
         if (c2 == c1)
           return name;
       }