Changeset 12956

Timestamp:

10/08/10 18:03:13 (11 years ago)

Author:

ehuelsmann

Message:

Make FIND-CLASS use a class which supports non-blocking reading
from a hash: ConcurrentHashMap?.

File:

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

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

@@ -34 +34 @@
 package org.armedbear.lisp;
 
+import java.util.concurrent.ConcurrentHashMap;
 import static org.armedbear.lisp.Lisp.*;
 
 public abstract class LispClass extends StandardObject
 {
-  private static final EqHashTable map = new EqHashTable(256, NIL, NIL);
+  private static final ConcurrentHashMap<Symbol, LispObject> map
+          = new ConcurrentHashMap<Symbol, LispObject>();
 
   public static LispClass addClass(Symbol symbol, LispClass c)
   {
-    synchronized (map)
-      {
-        map.put(symbol, c);
-      }
+    map.put(symbol, c);
     return c;
   }
@@ -51 +50 @@
   public static LispObject addClass(Symbol symbol, LispObject c)
   {
-    synchronized (map)
-      {
-        map.put(symbol, c);
-      }
+    map.put(symbol, c);
     return c;
   }
@@ -60 +56 @@
   public static void removeClass(Symbol symbol)
   {
-    synchronized (map)
-      {
-        map.remove(symbol);
-      }
+    map.remove(symbol);
   }
 
   public static LispClass findClass(Symbol symbol)
   {
-    synchronized (map)
-      {
-        return (LispClass) map.get(symbol);
-      }
+    return (LispClass)map.get(symbol);
   }
 
@@ -79 +69 @@
     final Symbol symbol = checkSymbol(name);
     final LispObject c;
-    synchronized (map)
-      {
-        c = map.get(symbol);
-      }
+    c = map.get(symbol);
     if (c != null)
       return c;