kmx.io/cl-thot

diff --git a/thot.lisp b/thot.lisp
index 2eee9f0..7b8fab6 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -5,7 +5,9 @@
 
 (in-package :thot)
 
-(setf (debug-p :thot) t)
+;;(setf (debug-p :thot) t)
+;;(setf (debug-p :directory) t)
+;;(setf (debug-p :file) t)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (unless (boundp '+crlf+)