kmx.io/cl-thot

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))))