From dd8ca94746d0d842a72e95db4c5d94d76fed6bbf Mon Sep 17 00:00:00 2001
From: Daniel Kochmanski <daniel@turtleware.eu>
Date: Sat, 29 Apr 2017 09:13:40 +0200
Subject: [PATCH] find-class: make class-name access thread safe

---
 src/c/main.d | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/c/main.d b/src/c/main.d
index 16bda2905..aaf10be7c 100755
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -744,9 +744,12 @@ cl_boot(int argc, char **argv)
    * Set up infrastructure for CLOS.
    */
   ECL_SET(@'si::*class-name-hash-table*',
-          cl__make_hash_table(@'eq', ecl_make_fixnum(1024), /* size */
-                              cl_core.rehash_size,
-                              cl_core.rehash_threshold));
+          cl_make_hash_table(10,
+                             @':test', @'eq',
+                             @':size', ecl_make_fixnum(1024),
+                             @':rehash_size', cl_core.rehash_size,
+                             @':rehash_threshold', cl_core.rehash_threshold,
+                             @':synchronized', ECL_T));
 
   /*
    * Features.