string-upcase and string-downcase non primitives

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 961315c..e29f57b 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1443,9 +1443,6 @@
      "var x = " x ";" *newline*
      "return typeof(x) == 'object' && 'length' in x && x.stringp == 1;")))
 
-(define-builtin string-upcase (x)
-  (code "make_lisp_string(xstring(" x ").toUpperCase())"))
-
 (define-raw-builtin funcall (func &rest args)
   (js!selfcall
     "var f = " (ls-compile func) ";" *newline*

diff --git a/src/string.lisp b/src/string.lisp
index e4cd22c..7026cb3 100644 (file)
--- a/src/string.lisp
+++ b/src/string.lisp
@@ -77,3 +77,14 @@
 
 (defun concat (&rest strs)
   (!reduce #'concat-two strs ""))
+
+
+(defun string-upcase (string)
+  (let ((new (make-string (length string))))
+    (dotimes (i (length string) new)
+      (aset new i (char-upcase (char string i))))))
+
+(defun string-downcase (string)
+  (let ((new (make-string (length string))))
+    (dotimes (i (length string) new)
+      (aset new i (char-downcase (char string i))))))