Update inravina:pretty-stream-p

Author: yitzchak

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

@@ -69,7 +69,7 @@
     (write-string spaces stream :end n)))
 
 (defun format-relative-tab (stream colrel colinc)
-  (if (inravina:pretty-stream-p stream)
+  (if (inravina-shim:pretty-stream-p stream)
       (pprint-tab :line-relative colrel colinc stream)
       (let* ((cur (#-(or ecl clasp) sys::charpos #+(or ecl clasp) sys::file-column stream))
              (spaces (if (and cur (plusp colinc))
@@ -78,7 +78,7 @@
         (output-spaces stream spaces))))
 
 (defun format-absolute-tab (stream colnum colinc)
-  (if (inravina:pretty-stream-p stream)
+  (if (inravina-shim:pretty-stream-p stream)
       (pprint-tab :line colnum colinc stream)
       (let ((cur (#-(or ecl clasp) sys::charpos #+(or ecl clasp) sys:file-column stream)))
         (cond ((null cur)

src/lisp/kernel/lsp/pprint.lisp

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