From b353ac4dab798c6b5b70afa5da5101f3365a8985 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Fri, 21 Apr 2023 19:11:19 +0200
Subject: xfdf.lisp: Remove debug prints

The traversal and field XML function works now.
---
 src/xfdf.lisp | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src')

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>
-- 
cgit v1.2.3