1 files changed, 13 insertions, 0 deletions
diff --git a/src/xfdf.lisp b/src/xfdf.lisp
new file mode 100644
index 0000000..315c63c
--- /dev/null
+++ b/src/xfdf.lisp
@@ -0,0 +1,13 @@
+(in-package :xfdf)
+
+(defun write-xfdf (output-stream fields)
+  (format output-stream "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
+<xfdf xmlns=\"http://ns.adobe.com/xfdf/\" xml:space=\"preserve\">
+	<fields>
+")
+
+  ;; TODO
+  ; (loop do)
+
+  (format output-stream "	</fields>
+</xfdf>"))