anchor.diff:     "PROJECT-ID" "PROJECT-DESCRIPTION" "PROJECT-NAME" "PROJECT-PATH"
      "PROJECT-OWNER" "PROJECT-PATH-WITH-NAMESPACE" "MAKE-PROJECT"
   
  +   "MILESTONE-ID" "MILESTONE-IID" "MILESTONE-PROJECT-ID"
  +   "MILESTONE-TITLE" "MILESTONE-DESCRIPTION" "MILESTONE-STATE"
  +   "MILESTONE-CREATED-AT" "MILESTONE-UPDATED-AT" "MILESTONE-DUE-DATE"
  +   "MILESTONE-START-DATE" "MAKE-MILESTONE" "MILESTONES" "MILESTONE-NAMED"
  +
      "ISSUE-ID" "ISSUE-IID" "ISSUE-PROJECT-ID" "ISSUE-TITLE"
      "ISSUE-DESCRIPTION" "ISSUE-STATE" "ISSUE-CREATED-AT"
      "ISSUE-UPDATED-AT" "ISSUE-CLOSED-AT" "ISSUE-DUE-DATE" "ISSUE-LABELS"
  
positive.code:                                   (append
                                     (when confidential  (list (format nil "confidential=~A"  (encode-boolean confidential))))
                                     (mapcar (lambda (assignee-id)
                                               (format nil "assignee_ids[]=~A" assignee-id))
                                             assignees)
                                     (when milestone     (list (format nil "milestone_id=~A"  milestone)))
                                     (when updated-at    (list (format nil "updated_at=~A"    (encode-datetime updated-at))))
  
negative.code:                           :method operation
                            :additional-headers (list (cons "PRIVATE-TOKEN" *private-token*))))))
  
  (defun obtain-json-object (query parameters) (operate-json-object query parameters :get))
  (defun create-json-object (query parameters) (operate-json-object query parameters :post))
  (defun update-json-object (query parameters) (operate-json-object query parameters :put))
  (defun delete-json-object (query)            (operate-json-object query nil        :delete))
  