X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fstream.lisp;h=d08f52c5b140412686de069ebf5276d008099a4b;hb=c482b4547542853e71a3af2870c87ea366069913;hp=086b145d81a69e245dc8d7bf4d9ebf24e12366c9;hpb=c296885ca974898925b89af066b1b14a6fca0f57;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)))