Ignore /debug on host

[jscl.git] / src / compat.lisp

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