Remove char-to-string

diff --git a/src/compiler.lisp b/src/compiler.lisp
index c4b8f66..09d5c0a 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1431,12 +1431,6 @@
      "var x = " x ";" *newline*
      "return (typeof(" x ") == \"string\") && x.length == 1;")))
 
-(define-builtin char-to-string (x)
-  (js!selfcall
-    "var r = [" x "];" *newline*
-    "r.type = 'character';"
-    "return r"))
-
 (define-builtin char-upcase (x)
   (code x ".toUpperCase()"))
 

diff --git a/src/string.lisp b/src/string.lisp
index 8fe6368..574c8b7 100644 (file)
--- a/src/string.lisp
+++ b/src/string.lisp
@@ -19,13 +19,10 @@
 (defun make-string (n &key initial-element)
   (make-array n :element-type 'character :initial-element initial-element))
 
-;; (defun char-to-string (x)
-;;   (make-string 1 :initial-element x))
-
 (defun string (x)
   (cond ((stringp x) x)
         ((symbolp x) (symbol-name x))
-        (t (char-to-string x))))
+        (t (make-string 1 :initial-element x))))
 
 (defun string= (s1 s2)
   (let* ((s1 (string s1))