[armedbear-cvs] r12356 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jan 10 09:57:39 2010
New Revision: 12356

Log:
Make LispClass.addClass return the added class, for convenience.

Modified:
   trunk/abcl/src/org/armedbear/lisp/LispClass.java

Modified: trunk/abcl/src/org/armedbear/lisp/LispClass.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispClass.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispClass.java	Sun Jan 10 09:57:39 2010
@@ -39,12 +39,13 @@
 {
   private static final EqHashTable map = new EqHashTable(256, NIL, NIL);
 
-  public static void addClass(Symbol symbol, LispClass c)
+  public static LispClass addClass(Symbol symbol, LispClass c)
   {
     synchronized (map)
       {
         map.put(symbol, c);
       }
+    return c;
   }
 
   public static void removeClass(Symbol symbol)