anchor.diff:  (defparameter *store* (make-hash-table :test 'equal))
   
   (defun initialize (port &optional (host usocket:*wildcard-host*))
  -  "Initialize the server at the host's port"
  +  "Initialize the server at the host's port."
     (let ((socket (usocket:socket-listen host port :reuse-address t)))
       (setf *server*
   	  (bt:make-thread #'(lambda ()
  
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:       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."
  