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: (defun make-message (body &rest options)
    ""
    (setf (getf options :body) body)
    (dbg "make-message" (apply #'st-json:jso (plist-keywords-to-strings options))))
  
  (defun make-message-if-needed (m)
    (if (stringp m)
  
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
  