X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompat.lisp;h=aeabc42d6f273a401d4a1a71e8fbd2e088a020a8;hb=916539de6153df7b4f6838c5e03ef420a890256c;hp=3eaf4ffabba3ec09e2279a5320ab8b4d97fa1a93;hpb=dcfa70bbdc04e0571e94b99f1a2c8e1ae3237f03;p=jscl.git

diff --git a/src/compat.lisp b/src/compat.lisp
index 3eaf4ff..aeabc42 100644
--- a/src/compat.lisp
+++ b/src/compat.lisp
@@ -44,3 +44,7 @@
 (eval-when-compile
   (defun concat (&rest strs)
     (apply #'concatenate 'string strs)))
+
+(defun /debug (x)
+  ;; (write-line x)
+  )