anchor.diff:                                                                                 (:any  "Any")
                                                                                  (otherwise (url-encode milestone :utf-8))))))
                             (when iidsp (map 'list (lambda (iid)
  -                                                   (format nil "iids[]=~A" iid))
  +                                                   (format nil "iids%5B%5D=~A" iid))
                                              iids))
                             (when author-id   (list (format nil "author_id=~A" author-id)))
                             (when assignee-id (list (format nil "assignee_id=~A" (ecase assignee-id
  
positive.code:                           (when created-before (list (format nil "created_before=~A" (encode-datetime created-before))))
                            (when updated-after  (list (format nil "updated_after=~A"  (encode-datetime updated-after))))
                            (when updated-before (list (format nil "updated_before=~A" (encode-datetime updated-before)))))))
                     (format t "/issues~:[~;/~:*~A~]~:[~;?~:*~{~A~^&~}~]" id attributes)))))
      (fetch-json-objects query)))
  
  (defun create-issue (project-id title
  
negative.code:                                 (append
                                   (when iid           (list (format nil "iid=~A"          iid)))
                                   (mapcar (lambda (assignee-id)
                                             (format nil "assignee_ids%5B%5D=~A" assignee-id))
                                           assignee-ids)
                                   (when milestone-id  (list (format nil "milestone_id=~A"  milestone-id)))
                                   (when weight        (list (format nil "weight=~A"        weight)))
  