* Tobias C. Rittweiler [2009-01-09 12:53+0100] writes:
Looking at the source, CCL does indeed make the *STANDARD-FOO* bindings thread-local by default. Changing the current implementation of SPAWN to
(defimplementation spawn (fn &key name) (ccl:process-run-function `(:name ,(or name "Anonymous (Swank)") :use-standard-initial-bindings nil) fn))
will probably solve the issue. I'm not sure how reasonable it would be, though.
That would only affect threads created by SWANK. I think the threads created by the webserver are the more interesting problem.
(defimplementation spawn (fn &key name) (let ((initial-bindings (set-difference (ccl::standard-initial-bindings)
We could probably mess around with those ccl::standard-initial-bindings
Helmut.