diff options
| author | Teddy Wing | 2023-04-21 19:11:19 +0200 |
|---|---|---|
| committer | Teddy Wing | 2023-04-21 19:11:19 +0200 |
| commit | b353ac4dab798c6b5b70afa5da5101f3365a8985 (patch) | |
| tree | 5afe67dad2dca4803eb903a14e955cbe04a9dac9 | |
| parent | 8063f5533d66b487c9db5c83d12404647fc0c1ef (diff) | |
| download | xfdf-b353ac4dab798c6b5b70afa5da5101f3365a8985.tar.bz2 | |
xfdf.lisp: Remove debug prints
The traversal and field XML function works now.
| -rw-r--r-- | src/xfdf.lisp | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/xfdf.lisp b/src/xfdf.lisp index 83ada74..3e4effb 100644 --- a/src/xfdf.lisp +++ b/src/xfdf.lisp @@ -39,7 +39,6 @@ list." "" (let ((indent (+ +field-base-indentation+ nesting-level))) ;; TODO: Add checkbox default values. - (format t "debug1: n'~A' : v'~A' : n'~A'~%" name value nesting-level) (if (consp value) ;; TODO: We need to do something with value ;; TODO: How to concat results from dolist? @@ -68,7 +67,6 @@ indent (let ((value (cond ((eq value t) "Yes") ((eq value nil) "Off") (t value)))) - (format t "debug2: n'~A' : v'~A' : n'~A'~%" name value nesting-level) (format nil "~ ~v{~A~:*~}<field name=\"~A\"> ~v{~A~:*~} <value>~A</value> |