Fix pretty-stream-p

Author: yitzchak

src/lisp/kernel/lsp/format-pprint.lisp

@@ -26,7 +26,7 @@
 (defun %print-unreadable-object (object stream type identity body)
   (cond (*print-readably*
          (error 'print-not-readable :object object))
-        ((and *print-pretty* (pretty-stream-p stream))
+        ((and *print-pretty* (inravina:pretty-stream-p inravina:*client* stream))
          (pprint-logical-block (stream nil :prefix "#<" :suffix ">")
            (print-unreadable-object-contents object stream type identity body)))
         (t