Common Lisp simple thread-safe channels with timeout
It's very basic implementation of channels and queue for Common Lisp.