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

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