anchor.diff:                                    (append
                                      (when confidential  (list (format nil "confidential=~A"  (encode-boolean confidential))))
                                      (mapcar (lambda (assignee-id)
  -                                             (format nil "assignee_ids[]=~A" assignee-id))
  +                                             (format nil "assignee_ids%5B%5D=~A"
  +                                                     (if (integerp  assignee-id)
  +                                                         assignee-id
  +                                                         (user-id 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))))
  
positive.code: 
     "ISSUES" "CREATE-ISSUE" "DELETE-ISSUE" "UPDATE-ISSUE"
  
     "LIST-PROJECTS"))
  (in-package  "COM.INFORMATIMAGO.CLEXT.GITLAB")
  
  (defparameter *server* "149.202.216.117")
  
negative.code:                  (string= name (project-path project))
                   (string= name (project-path-with-namespace project))))
             (projects)))
  
  (defun ensure-project-id (project)
    (if (integerp project)
        project
        (project-id project)))
  (macroexpand-1 '
   (define-json-struct milestone
     id iid
     (project-id :project--id)
     title
     description
     state
     (created-at :created--at)
     (updated-at :updated--at)
     (due-date :due-date)
     (start-date :start-date)))
  
  (defun milestones (project &key id
                               (iids nil iidsp)
                               (state nil statep)
                               (search nil searchp))
    (check-type iids              (or null (vector integer)))
    (check-type state             (or null (member :active :closed)))
    (let ((query  (with-output-to-string (*standard-output*)
                    (format t "https://~A/api/v4/projects/~A" *server*
                            (ensure-project-id project))
                    (let ((attributes
                            (append
                             (when iidsp (map 'list (lambda (iid)
                                                      (format nil "iids%5B%5D=~A" iid))
                                              iids))
                             (when statep  (list (format nil "state=~(~A~)" state)))
                             (when searchp (list (format nil "search=~A" (url-encode search :utf-8)))))))
                      (format t "/~A~:[~;/~:*~A~]~:[~;?~:*~{~A~^&~}~]" "milestones" id attributes)))))
      (fetch-json-objects query)))
  
  (defun milestone-named (project name)
    (find-if (lambda (milestone)
                (string= name (milestone-title milestone)))
             (milestones project)))
  
  
  (define-json-struct issue
    id iid
  