Conditional compilation

diff --git a/lispstrack.lisp b/lispstrack.lisp
index ab8118b..00ccb1d 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -1,5 +1,6 @@
 ;;; Utils
 
+#+common-lisp
 (defmacro while (condition &body body)
   `(do ()
        ((not ,condition))
@@ -446,6 +447,7 @@
                 code)
       (setq *literals* nil))))
 
+#+common-lisp
 (defun ls-compile-file (filename output)
   (with-open-file (in filename)
     (with-open-file (out output :direction :output :if-exists :supersede)
@@ -455,7 +457,6 @@
          for compilation = (ls-compile-toplevel x)
          when compilation do (write-line (concat compilation "; ") out)))))
 
-
 ;;; Testing
 (defun compile-test ()
   (ls-compile-file "test.lisp" "test.js"))