From 39bb9e81c1a8df12269d0a37f41400121a3f7b60 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Thu, 20 Dec 2012 17:39:56 +0000 Subject: [PATCH] STRING-UPCASE --- lispstrack.lisp | 3 +++ 1 file changed, 3 insertions(+) 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) -- 1.7.10.4