anchor.diff:      (sb-thread:join-thread connection-thread)
       (sb-thread:join-thread broadcast-thread)))
   
  -(defun main (&optional (retry 1000))
  +(defun main ()
     (let ((socket-server (socket-listen *host* *port*)))
       (unwind-protect (handler-case (server-loop socket-server)
                         (usocket:address-in-use-error ()
  
positive.code: ;; Manoel Vilela
  
  (defpackage :lisp-chat-server
    (:use :usocket :cl :lisp-chat-config :sb-ext)
    (:export :main))
  
  (in-package :lisp-chat-server)
  
negative.code:                                 *host*
                                  *port*))
                        (sb-sys:interactive-interrupt ()
                          (format t "Closing the server...")))
        (socket-close socket-server))))
  