Changeset 12356

Timestamp:

01/10/10 14:57:39 (11 years ago)

Author:

ehuelsmann

Message:

Make LispClass?.addClass return the added class, for convenience.

File:

• trunk/abcl/src/org/armedbear/lisp/LispClass.java (modified) (2 diffs)

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

@@ -40 +40 @@
   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)
@@ -46 +46 @@
         map.put(symbol, c);
       }
+    return c;
   }