Update inravina:pretty-stream-p

clasp-developers · Sep 15, 2023 · 52236d7 · 52236d7
1 parent 6672939
commit 52236d7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/lisp/kernel/lsp/format-pprint.lisp b/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)

diff --git a/src/lisp/kernel/lsp/pprint.lisp b/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