From b2284896b9ba3945bc5e2206445ccfbb1ee9cfd3 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 16 Apr 2023 21:20:01 +0200
Subject: write-xfdf: Add function documentation

---
 src/xfdf.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/xfdf.lisp b/src/xfdf.lisp
index fd8c8b7..d64aa29 100644
--- a/src/xfdf.lisp
+++ b/src/xfdf.lisp
@@ -1,6 +1,8 @@
 (in-package :xfdf)
 
 (defun write-xfdf (output-stream fields)
+  "Write an XFDF document to `output-stream` using cons cells in the `fields`
+list."
   (format output-stream "~
 <?xml version=\"1.0\" encoding=\"UTF-8\"?>
 <xfdf xmlns=\"http://ns.adobe.com/xfdf/\" xml:space=\"preserve\">
-- 
cgit v1.2.3