http://common-lisp.net/project/bese/repos/trivial-sockets_until-i-can-merge-with-the-mainline
