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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Mar 21 06:38:37 2010
New Revision: 12568

Log:
Remove checkClass() function no longer in use.

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

Modified: branches/metaclass/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- branches/metaclass/abcl/src/org/armedbear/lisp/Lisp.java	(original)
+++ branches/metaclass/abcl/src/org/armedbear/lisp/Lisp.java	Sun Mar 21 06:38:37 2010
@@ -1634,15 +1634,6 @@
               type_error(obj, Symbol.STRING);
   }
   
-  public final static LispClass checkClass(LispObject obj) 
-
-   {
-          if (obj instanceof LispClass)         
-                  return (LispClass) obj;                         
-          return (LispClass)// Not reached.                    
-                type_error(obj, Symbol.CLASS);
-   }   
-
   public final static Layout checkLayout(LispObject obj) 
 
   {