diff options
Diffstat (limited to 'src/base32.lisp')
| -rw-r--r-- | src/base32.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/base32.lisp b/src/base32.lisp index 0ed4624..ec0340b 100644 --- a/src/base32.lisp +++ b/src/base32.lisp @@ -183,9 +183,13 @@ base32-bytes)) (defun base32-to-bytes-unpadded (base32-string) + "Return the bytes decoded from the supplied base32 string that was produced with +padding removed." (let ((padding (make-array (- 8 (mod (length base32-string) 8)) :element-type 'character :initial-element #\=))) (base32-to-bytes (concatenate 'string base32-string padding)))) (defun bytes-to-base32-unpadded (bytes) + "Return a base32 string encoding of the provided vector of bytes, without any +padding." (let ((string (bytes-to-base32 bytes))) (subseq string 0 (position #\= string)))) |