anchor.diff:  
   (defun main ()
     (let ((socket-server (socket-listen *host* *port*)))
  -    (handler-case (server-loop socket-server)
  -      (usocket:address-in-use-error () (format t "Address ~a\@~a already busy."
  -                                               *host*
  -                                               *port*))
  -      (sb-sys:interactive-interrupt () (format t "Closing the server...")))
  -    (socket-close socket-server))
  +    (unwind-protect (handler-case (server-loop socket-server)
  +                      (usocket:address-in-use-error () (format t "Address ~a\@~a already busy."
  +                                                               *host*
  +                                                               *port*))
  +                      (sb-sys:interactive-interrupt () (format t "Closing the server...")))
  +      (socket-close socket-server)))
     (sb-ext:exit))
  
positive.code: 
  (defun message-broadcast ()
    (loop when (sb-thread:wait-on-semaphore *message-semaphore*)
            do (sb-thread:with-mutex (*message-mutex*)
                 (let ((message (formated-message (pop *messages-stack*))))
                   (push message *messages-log*)
                   (loop for client in *clients*
                      do (handler-case (send-message client message)
                           (sb-int:simple-stream-error () (client-delete client))
                           (sb-bsd-sockets:not-connected-error () (client-delete client))))))))
  
  (defun connection-handler (socket-server)
    (loop for connection = (socket-accept socket-server)
          do (sb-thread:make-thread #'create-client
                                    :arguments (list connection)
                                    :name "create client")))
  
  (defun server-loop (socket-server)
    (format t "Running server... ~%")
  
negative.code: ;; Common Lisp Script
  ;; Manoel Vilela
  
  (when (not (find-package 'usocket))
    (ql:quickload :usocket))
  
  (when (not (find-package 'lisp-chat-config))
    (load "config"))
  
  
  (defpackage :lisp-chat-server
    (:use :usocket :cl :lisp-chat-config)
  