anchor.diff:        result)))
   
   (defun set-key-in-store (key value store)
  -  "Set key in hashtable to value"
  +  "Set key in hashtable to value."
     (let* ((exists (gethash key store)))
       (if exists
   	"Key exists. Delete before re-inserting."
  
positive.code: 
  #+bordeaux-threads
  (defun terminate ()
    "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"
    (let* ((socket (usocket:socket-connect host port))
  	 (stream (usocket:socket-stream socket)))
      (write-line command stream)
  
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)
  