From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Thu, 25 Apr 2013 16:08:24 +0000 (+0200)
Subject: ls-compile: add compiling support for floats
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4d962d7fdf41361791a77f9f899ac651d75aa4f0;p=jscl.git

ls-compile: add compiling support for floats
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 08932fc..a59dc3a 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1637,6 +1637,7 @@
              (t
               (ls-compile `(symbol-value ',sexp))))))
         ((integerp sexp) (integer-to-string sexp))
+        ((floatp sexp) (float-to-string sexp))
         ((stringp sexp) (code "\"" (escape-string sexp) "\""))
         ((arrayp sexp) (literal sexp))
         ((listp sexp)