Adding websocket support.

Simple implementation which binds one thread for each websocket client
connection. To create a websocket echo server:

(def websocket-entry-point (*my-application* "/echo" message type client others)
  (dolist (o others)
    (send-text-message o message)))