From: David Vazquez <davazp@gmail.com>
Date: Thu, 20 Dec 2012 17:39:56 +0000 (+0000)
Subject: STRING-UPCASE
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=39bb9e81c1a8df12269d0a37f41400121a3f7b60;p=jscl.git

STRING-UPCASE
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 13b53f3..d71f675 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -496,6 +496,9 @@
 (define-compilation string (x)
   (concat "String.fromCharCode(" (ls-compile x env fenv) ")"))
 
+(define-compilation string-upcase (x)
+  (concat "(" (ls-compile x env fenv) ").toUpperCase()"))
+
 (define-compilation char (string index)
   (concat "("
           (ls-compile string env fenv)