From: David Vazquez <davazp@gmail.com>
Date: Sun, 16 Dec 2012 22:59:43 +0000 (+0000)
Subject: Conditional compilation
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c0ec137f00c9eed5ce87c63b875afc7bb02d8c09;p=jscl.git

Conditional compilation
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index ab8118b..00ccb1d 100644
--- 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"))