field-xfdf: Add documentation to these functions

1 files changed, 3 insertions, 1 deletions

diff --git a/src/xfdf.lisp b/src/xfdf.lisp
index 5e0be7c..d88c15d 100644
--- a/src/xfdf.lisp
+++ b/src/xfdf.lisp
@@ -33,10 +33,12 @@ list."
 (defconstant +field-base-indentation+ 2)
 
 (defun field-xfdf (name value)
+  "Build an XFDF XML string for a field."
   (field-xfdf* name value 0))
 
 (defun field-xfdf* (name value nesting-level)
-  ""
+  "Build an XFDF XML string for a field. The `nesting-level` specifies the
+amount of indentation to use relative to the +field-base-indentation+."
   (let ((indent (+ +field-base-indentation+ nesting-level)))
     ;; TODO: Add checkbox default values.
     (if (consp value)