Commit ff84bd46b1a5ca195e480760b5bbd6226187161f

Thomas de Grivel 2018-06-08T15:18:53

debug mime

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/mime.lisp b/mime.lisp
index d24bf5a..e2e7576 100644
--- a/mime.lisp
+++ b/mime.lisp
@@ -52,7 +52,9 @@
                       ((not (symbolp sym)))
                       ((mime-type-p sym) (setf mime-type sym))
                       (mime-type (let ((ext (ext sym)))
-                                   (format t "~S ~S~%" ext mime-type)
+                                   (when (debug-p :mime)
+                                     (format t "~S ~S~%" ext mime-type)
+                                     (force-output))
                                    (setf (mime-type ext)
                                          mime-type)))))))
       (cl:close in))))