Try different methods to compute sha1

It seems quicklisp and ultralisp differ how they compute sha1 sums

Author: digikar99

content-hash.lisp

@@ -127,7 +127,7 @@ starting storage block in STREAM, and the total file size."
           until (= byte (char-code #\Newline))
           do (write-char (code-char byte) string))))
 
-(defun content-hash (tarfile)
+(defun content-hash (tarfile &optional content-info-processor)
   "Return a hash string of TARFILE. The hash is computed by creating
 the digest of the files in TARFILE in order of their name."
   (uiop:with-temporary-file (:pathname temp)
@@ -150,7 +150,10 @@ the digest of the files in TARFILE in order of their name."
                         (read-sequence buffer stream)
                         (write-sequence buffer digest-stream :end partial))))
                (let ((contents (content-info stream)))
-                 (setf contents (sort contents #'string< :key #'first))
+                 (setf contents
+                       (if content-info-processor
+                           (funcall content-info-processor contents)
+                           contents))
                  (dolist (info contents)
                    (destructuring-bind (position size)
                        (rest info)

ql-https.lisp

@@ -95,12 +95,15 @@
   "Checks that the md5 and size of FILE are as expected from the quicklisp
 dist."
   (let ((release (ql-dist:find-release name)))
+    (unless (= (ql-dist:archive-size release) (file-size file))
+      (error "file size mismatch for ~A" name))
     (unless (string-equal (ql-dist:archive-md5 release) (md5 file))
       (error "md5 mismatch for ~A" name))
-    (unless (string-equal (ql-dist:archive-content-sha1 release) (content-hash file))
-      (error "sha1 mismatch for ~A" name))
-    (unless (= (ql-dist:archive-size release) (file-size file))
-      (error "file size mismatch for ~A" name))))
+    (unless (member (ql-dist:archive-content-sha1 release)
+                    (list (content-hash file (lambda (c) (sort c #'string< :key #'first)))
+                          (content-hash file #'reverse))
+                    :test #'string-equal)
+      (error "sha1 mismatch for ~A" name))))
 
 (defun register-fetch-scheme-functions ()
   (setf ql-http:*fetch-scheme-functions*