anchor.diff:  					:messages t 
   					:n n) 
   			 nil)))
  -    (st-json:getjso "messages" result)))
  +    (mapcar #'jso->message 
  +	    (st-json:getjso "messages" result))))
   
   (defun get-message (client queue)
     (car (get-messages client queue 1)))
  
positive.code: 			 :POST (resource :queue queue 
  					 :messages t)
  			 (st-json:jso "messages" 
  				      (mapcar #'make-message-if-needed 
  					      messages)))))
      (st-json:getjso "ids" result)))
  
  
negative.code:        :collect (string key)
         :collect val))
  
  (defun make-out-message (body &rest options)
    ""
    (setf (getf options :body) body)
    (apply #'st-json:jso (plist-keywords-to-strings options)))
  
  (defun make-out-message-if-needed (m)
    (if (stringp m)
        (make-out-message m)
        m))
  
  (defstruct message
    id
    body)
  
  (defun jso->message (jso)
    (make-message :id (st-json:getjso "id" jso)
  		:body (st-json:getjso "body" jso)))
  
  (defun request (client method endpoint body)
    (let* ((path (format nil "/~A/projects/~A~A"
  