Skip to content

Commit

Permalink
[compat] Option flagging the synchronized flag to the hash table for …
Browse files Browse the repository at this point in the history
…sbcl.

Now can serve web requests from CCL, but it's RNG seems to be lockstep
in the worker threads.
  • Loading branch information
sshirokov committed May 10, 2012
1 parent 0bec4cf commit bc54c1b
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion src/pool.lisp
Expand Up @@ -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
Expand Down

0 comments on commit bc54c1b

Please sign in to comment.