Merge pull request #1 from supermomonga/fix-git-repo-id-regexp

Fix to allow some special characters for repo-id

Author: fukamachi

src/release.lisp

@@ -133,14 +133,14 @@
              (domain (quri:uri-domain uri)))
         (cond
           ((string= domain "github.com")
-           (let ((repos-id (ppcre:scan-to-strings "/[^/]+/[^/\\.]+" (quri:uri-path uri))))
+           (let ((repos-id (ppcre:scan-to-strings "/[^/]+/[a-zA-Z0-9-_.]+" (quri:uri-path uri))))
              (concatenate 'string
                           "https://github.com"
                           repos-id)))
           ((string= domain "bitbucket.org")
            source-url)
           ((string= domain "gitlab.common-lisp.net")
-           (let ((repos-id (ppcre:scan-to-strings "/[^/]+/[^/\\.]+" (quri:uri-path uri))))
+           (let ((repos-id (ppcre:scan-to-strings "/[^/]+/[a-zA-Z0-9-_.]+" (quri:uri-path uri))))
              (concatenate 'string
                           "http://gitlab.common-lisp.net"
                           repos-id))))))))