anchor.diff:      (sb-thread:join-thread connection-thread)
       (sb-thread:join-thread broadcast-thread)))
   
  -
   (defun main ()
     (let ((socket-server (socket-listen *host* *port*)))
       (handler-case (server-loop socket-server)
  
positive.code:                                   :arguments (list connection)
                                    :name "create client")))
  
  
  (defun server-loop (socket-server)
    (format t "Running server... ~%")
    (let* ((connection-thread (sb-thread:make-thread #'connection-handler
  
negative.code:   (format nil "~{~a~^~%~}" (reverse (subseq *messages-log* 0
                                              (min depth (length *messages-log*))))))
  
  (defun push-message (from content)
    (sb-thread:with-mutex (*message-mutex*)
      (push (make-message :from from
  