Clean up docstrings and type declarations.

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))))