Rewrite the REPL in Lisp using FFI

[jscl.git] / src / stream.lisp

diff --git a/src/stream.lisp b/src/stream.lisp
index 086b145..d08f52c 100644 (file)
--- a/src/stream.lisp
+++ b/src/stream.lisp
@@ -21,6 +21,9 @@
 
 (/debug "loading stream.lisp!")
 
+(defun %write-string (string)
+  (#j:jqconsole:Write string "jqconsole-output"))
+
 (defvar *standard-output*
   (vector 'stream
           (lambda (ch) (%write-string (string ch)))