anchor.diff:                      ("prerelease" . ,(if prerelease t :false))))
            (content (jonathan:to-json to-json :from :alist))
            (cl-gists:*credentials* t))
  -    (jonathan:parse (cl-gists.util:post-request uri :content content))))
  +    (jonathan:parse (cl-gists.util:post-request uri :content content)
  +                    :as as)))
   
  -(defun release-edit (owner repo id tagname &key commitish (name "") (body "") draft prerelease)
  +(defun release-edit (owner repo id tagname &key commitish (name "") (body "") draft prerelease (as :plist))
     (let* ((uri (quri:uri (format nil "~A/repos/~A/~A/releases/~A"
                                   cl-gists.api::+api-base-uri+
                                   owner
  
positive.code: (in-package :cl-user)
  (defpackage sn.github.release
    (:use :cl))
  (in-package :sn.github.release)
  
  (defun releases-list (owner repo)
    (jonathan:parse (cl-gists.util:get-request (quri:uri (format nil "~A/repos/~A/~A/releases"
                                                 cl-gists.api::+api-base-uri+   
                                                 owner
                                                 repo)))))
  
  (defun release-by-id (owner repo id)
    (jonathan:parse (cl-gists.util:get-request (quri:uri (format nil "~A/repos/~A/~A/releases/~A"
                                                 cl-gists.api::+api-base-uri+
                                                 owner
                                                 repo id)))))
  
  (defun release-latest (owner repo)
    (jonathan:parse (cl-gists.util:get-request
                     (quri:uri (format nil "~A/repos/~A/~A/releases/latest"
                                       cl-gists.api::+api-base-uri+
                                       owner
                                       repo)))))
  
  (defun release-by-tag (owner repo tag)
    (jonathan:parse (cl-gists.util:get-request
                     (quri:uri (format nil "~A/repos/~A/~A/releases/tags/~A"
                                       cl-gists.api::+api-base-uri+
                                       owner
                                       repo
                                       tag)))))
  
  (defun release-create (owner repo tagname &key commitish (name "") (body "") draft prerelease)
    (let* ((uri (quri:uri (format nil "~A/repos/~A/~A/releases"
                                  cl-gists.api::+api-base-uri+
                                  owner
  
negative.code:                     ,@(when label `(("label" . ,label)))))
           (content (jonathan:to-json to-json :from :alist))
           (cl-gists:*credentials* t))
      (jonathan:parse (cl-gists.util:patch-request uri :content content) :as as)))
  
  (defun release-asset-delete (owner repo id &optional (as :plist))
    (let ((uri (quri:uri (format nil "~A/repos/~A/~A/releases/assets/~A"
                                 cl-gists.api::+api-base-uri+
                                 owner
                                 repo
                                 id)))
          (cl-gists:*credentials* t))
      (jonathan:parse (cl-gists.util:delete-request uri) :as as)))
  