anchor.diff:  			  :name (format nil "Server at ~a port" port)))))
   
   (defun serve (socket)
  -  "Create a socket stream and open it"
  +  "Create a socket stream and open it."
     (loop
        (usocket:wait-for-input socket :timeout 5)
        (let ((stream (usocket:socket-stream (usocket:socket-accept socket))))
  
positive.code: (defparameter *store* (make-hash-table :test 'equal))
  
  (defun initialize (port &optional (host usocket:*wildcard-host*))
    "Initialize the server at the host's port"
    (let ((socket (usocket:socket-listen host port :reuse-address t)))
      (setf *server*
  	  (bt:make-thread #'(lambda ()
  
negative.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)
  