=== Go-like channels for atomically passing information between threads, and some other stuff. ===

(channel:make-channel) ; make new channel
(channel:make-channel 2) ; make new channel with max size of 2 (untested)

(channel:-> chan item) ; send item to channel
(channel:<- chan) ; receive from channel (values item is-not-closed), blocks until there is one
(channel:release chan) ; close channel
(channel:closed chan) ; is channel closed
(channel:¬closed chan) ; (not (closed chan))

--- Signalling ---

(dispatcher:make-dispatcher) ; make dispatcher

(dispatcher:hook disp name lambda) ; add hook
(dispatcher:sig name (optional value)) ; signal name in parallel
(dispatcher:sig-serial name (optional value)) ; signal name in serial

--- Atomic operations ---

(box:make &optional value) ; make a box with default value

(box:<- box) ; get value atomically
(box:-> box value) ; set value atomically
(box:<-! box) ; get value without lock
(box:->! box vlaue) ; set value without lock
(setf (box:@ box) value) ; set value atomically

(box:--> box &body things) ; do (progn ,@things) with lock held then set value to box
(box:<-- box &body things) ; do (progn ,@things) with lock held. return value of box.
	; these two macros flet functions (box:<-) and (box:-> thing) to get&set from box while lock is held.