anchor.diff:    (car (post-messages client queue message)))
   
   (defun get-messages (client queue n)
  -  (let* ((endpoint (concatenate 'string "/queues/" queue "/messages?n=" 
  -				(write-to-string n)))
  +  (let* ((endpoint (resource :queue queue 
  +			     :messages t 
  +			     :n n))
   	 (result (request client :GET endpoint nil)))
       (st-json:getjso "messages" result)))
   
  
positive.code: 	((eq code 200) (st-json:read-json result))
  	(t "SOMETHING BAD HAPPENED")))))
  
  (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 "/queues" nil)))
  
  (defun queue-size (client queue)
    ""
    (let* ((endpoint (concatenate 'string "/queues/" queue))
  	 (result (request client :GET endpoint nil)))
      (st-json:getjso "size" result)))
  
  (defun post-messages (client queue &rest messages)
    ""
    (let* ((endpoint (concatenate 'string "/queues/" queue "/messages"))
  	 (messages (mapcar #'make-message-if-needed messages))
  	 (result (request client :POST endpoint
  			  (st-json:jso "messages" messages))))
  
negative.code: 		      path))
  	 (request-headers `((:Authorization . ,(format nil "OAuth ~A" 
  						       (getf client :token))))))
      (multiple-value-bind (result code headers)
  	(drakma:http-request url
  			     :method method
  