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