STRING-UPCASE

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 13b53f3..d71f675 100644 (file)
--- 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)