(in-package #:live-chat) (defun main () (create-messages-table) (start-chat-server))