write-string and write-char work with streams

[jscl.git] / src / compiler.lisp

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 22b318f..66a734c 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1249,7 +1249,7 @@
 (define-builtin functionp (x)
   (js!bool (code "(typeof " x " == 'function')")))
 
-(define-builtin write-string (x)
+(define-builtin %write-string (x)
   (code "lisp.write(" x ")"))