anchor.diff:  
   #+bordeaux-threads
   (defun terminate ()
  -  "Terminate the server thread"
  +  "Terminate the server thread."
     (let ((server (shiftf *server* nil)))
       (when server
         (bt:destroy-thread server))))
   
   (defun client (port command &optional (host usocket:*wildcard-host*))
  -  "Client function to write to the server stream"
  +  "Client function to write to the server stream."
     (let* ((socket (usocket:socket-connect host port))
   	 (stream (usocket:socket-stream socket)))
       (write-line command stream)
  
positive.code:       result)))
  
  (defun set-key-in-store (key value store)
    "Set key in hashtable to value"
    (let* ((exists (gethash key store)))
      (if exists
  	"Key exists. Delete before re-inserting."
  
negative.code: 	  "Stored."))))
  
  (defun get-value-from-store (key store)
    "Get value of key from hashtable."
    (let* ((value (gethash key store)))
      (if value
  	(format nil "~a" value)
  	(format nil "~a wasn't found." key))))
  
  (defun remove-from-store (key store)
    "Remove key and value from hashtable."
    (let* ((value (remhash key store)))
      (if value
  	(format nil "~a has been removed." key)
  