diff options
| -rw-r--r-- | src/xfdf.lisp | 21 | ||||
| -rw-r--r-- | test/xfdf.lisp | 2 |
2 files changed, 11 insertions, 12 deletions
diff --git a/src/xfdf.lisp b/src/xfdf.lisp index a61fcdd..fd8c8b7 100644 --- a/src/xfdf.lisp +++ b/src/xfdf.lisp @@ -7,18 +7,17 @@ <fields> ") - ;; TODO - ; (loop do) - (format output-stream " <field name=\"checkbox-on\"> - <value>Yes</value> + (loop for (name . value) in fields + do + (let ((value (cond ((eq value t) "Yes") + ((eq value nil) "Off") + (t value)))) + (format output-stream " <field name=\"~A\"> + <value>~A</value> </field> - <field name=\"checkbox-off\"> - <value>Off</value> - </field> - <field name=\"text\"> - <value>123 Fake Street, Springfield</value> - </field> -") +" +name +value))) (format output-stream " </fields> </xfdf>") diff --git a/test/xfdf.lisp b/test/xfdf.lisp index 87accaf..31af6a3 100644 --- a/test/xfdf.lisp +++ b/test/xfdf.lisp @@ -16,7 +16,7 @@ (with-output-to-string (xfdf-stream) (xfdf:write-xfdf xfdf-stream - '(("checkbox-on" . T) + '(("checkbox-on" . t) ("checkbox-off" . nil) ("text" . "123 Fake Street, Springfield")))))) (is (string= |