Rewrite the REPL in Lisp using FFI

[jscl.git] / src / stream.lisp

diff --git a/src/stream.lisp b/src/stream.lisp
index b563338..d08f52c 100644 (file)
--- a/src/stream.lisp
+++ b/src/stream.lisp
@@ -19,6 +19,11 @@
 ;;; TODO: Use structures to represent streams, but we would need
 ;;; inheritance.
 
+(/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)))