Merge branch 'codegen'

[jscl.git] / src / compat.lisp

diff --git a/src/compat.lisp b/src/compat.lisp
index 3eaf4ff..d682604 100644 (file)
--- 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))