Add function DEBUG-LOG.

Ignore-this: 1521e8ded95ae1f8c5ae2e19dffeb36f

darcs-hash:c6b5765a68033982747e15789d15769b7a52f98e

1 files changed, 4 insertions, 0 deletions

diff --git a/utils.lisp b/utils.lisp
index 4b09584..f49820e 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -23,6 +23,10 @@
 (in-package #:mulk.journal)
 
 
+(defun debug-log (thing)
+  (format *error-output* "~S " thing)
+  thing)
+
 (defun keywordify (thing)
   (if (null thing)
       thing