Websockets + static content with clack

ws-example.lisp

(defvar *static-server* (lack.app.file:make-app))
(defun my-server (env)
  (cond
    ((equal (getf env :path-info) "/socket")
     (let ((ws (websocket-driver:make-server env)))
       (websocket-driver:on
	:message ws
	(lambda (message)
	  (websocket-driver:send ws message)))
       (lambda (responder)
	 (declare (ignorable responder))
	 (websocket-driver:start-connection ws))))
    (t (funcall *static-server* env))))

(defun runme ()
 (clack:clackup 'my-server :port 5000))