anchor.diff:  (defun make-message (body &rest options)
     ""
     (setf (getf options :body) body)
  -  (dbg "make-message" (apply #'st-json:jso (plist-keywords-to-strings options))))
  +  (apply #'st-json:jso (plist-keywords-to-strings options)))
   
   (defun make-message-if-needed (m)
     (if (stringp m)
  
positive.code:   (car (post-messages client queue message)))
  
  (defun get-messages (client queue n)
    (let* ((endpoint (concatenate 'string "/queues/" queue "/messages?n=" 
  				(write-to-string n)))
  	 (result (request client :GET endpoint nil)))
      (st-json:getjso "messages" result)))
  
  
negative.code: 	((eq code 200) (st-json:read-json result))
  	(t "SOMETHING BAD HAPPENED")))))
  
  (defun resource (&key queue (messages nil) message n)
    (concatenate 'string
  	       "/queues" 
  	       (if queue (format nil "/~A" queue))
  	       (if (or messages message) "/messages")
  	       (if message (format nil "/~A" message))
  	       (if n (format nil "?n=~A" n))))
  
  (defun queues (client)
    "Returns a list of queues that a client has access to."
    (mapcar (lambda (q) (st-json:getjso "name" q))
  	  (request client :GET (resource) nil)))
  
  (defun queue-size (client queue)
    ""
    (let* ((endpoint (resource :queue queue))
  	 (result (request client :GET endpoint nil)))
      (st-json:getjso "size" result)))
  
  (defun post-messages (client queue &rest messages)
    ""
    (let* ((endpoint (resource :queue queue 
  			     :messages t))
  	 (messages (mapcar #'make-message-if-needed messages))
  	 (result (request client :POST endpoint
  			  (st-json:jso "messages" messages))))
  