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: (defun list-projects ()
    (map nil
         (lambda (project)
           (format t "~40A~:[ \"\"~;~:*~S~]~%   ~S~2%"
                   (project-name project)
                   (user-name (project-owner project))
                   (project-description project)))
         (projects)))
  
  
  
  
  
  #|
  (dolist (issue (remove-if (lambda (issue)
                              (string/= (issue-title issue) "test"))
                            (issues :project-id (project-id (project-named "sbde/laboite"))
  
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))
  