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