Commit 4e515e32ee28d02a60b64799959bb4984f394cc6

Thomas de Grivel 2017-02-26T12:56:45

revert dependency on positional

diff --git a/digest.lisp b/digest.lisp
index 3b0d12e..ecff040 100644
--- a/digest.lisp
+++ b/digest.lisp
@@ -19,18 +19,10 @@
 (in-package :RoL-assets)
 
 (defvar *digest* :sha1)
-(defvar *digest-base* positional:+b64uri+)
-
-(defun digest-length ()
-  (values (ceiling (log (expt 2 (* 8 (ironclad:digest-length *digest*)))
-                        (positional:base *digest-base*)))))
 
 (defun digest-file (path)
-  (positional:to-string
-   (ironclad:octets-to-integer
-    (ironclad:digest-file *digest* path))
-   *digest-base*
-   :padding (digest-length)))
+  (let ((n (ironclad:octets-to-integer (ironclad:digest-file *digest* path))))
+    (cl-base64:integer-to-base64-string n :uri t)))
 
 (defmethod digest-asset ((asset asset) (path pathname))
   (setf (asset-digest asset) (digest-file path))
diff --git a/rol-assets.asd b/rol-assets.asd
index ad2621e..bd1b611 100644
--- a/rol-assets.asd
+++ b/rol-assets.asd
@@ -39,7 +39,6 @@
 	       "exec-js"
                "external-program"
                "ironclad"
-               "positional"
                "re"
 	       "rol-files"
 	       "rol-uri"