anchor.diff:    (car (get-messages client queue 1)))
   
   (defun delete-message (client queue message)
  -  (let ((endpoint (concatenate 'string "/queues/" queue "/messages/" 
  -			       (st-json:getjso "id" message))))
  +  (let ((endpoint (resource :queue queue 
  +			    :message (st-json:getjso "id" message))))
       (request client :DELETE endpoint nil)))
  
positive.code: 		      path))
  	 (request-headers `((:Authorization . ,(format nil "OAuth ~A" 
  						       (getf client :token))))))
      (dbg "BODY (RAW)" body)
      (dbg "BODY (JSO)" (st-json:write-json-to-string body))
      (multiple-value-bind (result code headers)
  	(drakma:http-request url
  			     :method method
  
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))))
  