anchor.diff:                                    :arguments (list connection)
                                     :name "create client")))
   
  -
   (defun server-loop (socket-server)
     (format t "Running server... ~%")
     (let* ((connection-thread (sb-thread:make-thread #'connection-handler
  
positive.code:       (sb-sys:interactive-interrupt () (format t "Closing the server...")))
      (socket-close socket-server))
    (sb-ext:exit))
  
  
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
  