X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fstream.lisp;h=d08f52c5b140412686de069ebf5276d008099a4b;hb=a819b141b8133f2d9241edfde3878a45cf6c2642;hp=086b145d81a69e245dc8d7bf4d9ebf24e12366c9;hpb=a541d0c330c4cb2fbeebf05eab6a79e54eeb28ad;p=jscl.git

diff --git a/src/stream.lisp b/src/stream.lisp
index 086b145..d08f52c 100644
--- 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)))