From d81b572762820d1c1a023d7cde06325d4b11f3fa Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 12:16:33 +0200
Subject: Add function DEBUG-LOG.

Ignore-this: 1521e8ded95ae1f8c5ae2e19dffeb36f

darcs-hash:c6b5765a68033982747e15789d15769b7a52f98e
---
 utils.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'utils.lisp')

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