anchor.diff:    (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
  
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:       (sb-sys:interactive-interrupt () (format t "Closing the server...")))
      (socket-close socket-server))
    (sb-ext:exit))
  