blob: 315c63ce7d0a01aef153314e48dd9cbeea1e2ee5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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>"))
|
