From 67d00dc4ce131d5cc46f4041dbf40391697e281d Mon Sep 17 00:00:00 2001
From: Piotr Szarmanski
Date: Sun, 25 Sep 2022 00:55:55 +0200
Subject: Clean up docstrings and type declarations.

---
 src/base32.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/base32.lisp')

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))))
-- 
cgit v1.2.3