add giturl/gitweb support for full-dl-page

diff --git a/downloads.lisp b/downloads.lisp
index 7bd77bc4656b275c38de66391da31c6e1ad950c7..241dc666ea475dbf3e8ec7caf3bde7ea21a19ab6 100644 (file)
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -143,7 +143,7 @@
                        (("Unix (.tar.gz)" ,tgz-path)
                         ("Windows (.zip)" ,zip-path))))))))
 
-(defun full-dl-page (pkg-name pkg-base dl-base dl-url)
+(defun full-dl-page (pkg-name pkg-base dl-base dl-url &optional giturl gitweb)
   (let ((base (parse-namestring dl-base)))
     (let ((tgz-path (make-pathname :defaults base :type "gz" :name :wild))
           (zip-path (make-pathname :defaults base :type "zip" :name :wild))
@@ -160,7 +160,7 @@
                      (make-pathname :directory '(:relative "win32")
                                     :type :wild :name :wild)
                      base)))
-      (display-page pkg-name pkg-base dl-base dl-url
+      (display-page pkg-name pkg-base dl-base dl-url giturl gitweb
                     `(("Manual" ,doc-path)
                       ("Source Code"
                        (("Unix (.tar.gz)" ,tgz-path)