diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/package.lisp | 2 | ||||
| -rw-r--r-- | src/xfdf.lisp | 13 |
2 files changed, 15 insertions, 0 deletions
diff --git a/src/package.lisp b/src/package.lisp new file mode 100644 index 0000000..d535a24 --- /dev/null +++ b/src/package.lisp @@ -0,0 +1,2 @@ +(defpackage :xfdf + (:use :cl)) 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>")) |