From bc54c1b57ff0926aef617718e34ff3687f004f2f Mon Sep 17 00:00:00 2001
From: Yaroslav Shirokov <slava@hackinggibsons.com>
Date: Thu, 10 May 2012 03:12:40 -0400
Subject: [PATCH] [compat] Option flagging the synchronized flag to the hash
 table for sbcl. Now can serve web requests from CCL, but it's RNG seems to be
 lockstep in the worker threads.

---
 src/pool.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/pool.lisp b/src/pool.lisp
index b892685..7d48575 100644
--- a/src/pool.lisp
+++ b/src/pool.lisp
@@ -5,7 +5,10 @@
   "Wrapper to return a hash table that is safe
 to use concurrently. `args' are passed on as to `make-hash-table'"
   ;; TODO: Feature checks for other lisps
-  (apply #'make-hash-table :synchronized t args))
+  (apply #'make-hash-table
+         (append
+          #+sbcl (list :synchronized t)
+          args)))
 
 ;; Classes
 ;;; Job Class