From: David Vazquez <davazp@gmail.com>
Date: Sun, 16 Dec 2012 21:47:27 +0000 (+0000)
Subject: Add code-char function
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c1c4c00715aaed3070758c71b7101b52c60b6f33;p=jscl.git

Add code-char function
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 57644e7..b637d10 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -345,6 +345,8 @@
 (define-compilation eq (x y)
   (concat "(" (ls-compile x env fenv) " === " (ls-compile y env fenv) ")"))
 
+(define-compilation code-char (x)
+  (concat "String.fromCharCode( " (ls-compile x env fenv) ")"))
 
 
 (defmacro with-eval-when-compilation (&body body)