diff --git a/src/lisp/kernel/cleavir/inline.lisp b/src/lisp/kernel/cleavir/inline.lisp
index 118a2f5bbc..8487f90440 100644
--- a/src/lisp/kernel/cleavir/inline.lisp
+++ b/src/lisp/kernel/cleavir/inline.lisp
@@ -325,25 +325,6 @@
     (symbol (fdefinition fdesignator))))
 (declaim (ftype (function (t) function) core:coerce-to-function)))
 
-;;; ------------------------------------------------------------
-;;;
-;;;  Copied from clasp/src/lisp/kernel/lsp/pprint.lisp
-;;;    and put here so that the inline definition is available
-;;;
-(in-package "SI")
-
-#-bytecode
-(progn (declaim (inline index-posn posn-index posn-column))
-(defun index-posn (index stream)
-  (declare (type index index) (type pretty-stream stream))
-  (+ index (pretty-stream-buffer-offset stream)))
-(defun posn-index (posn stream)
-  (declare (type posn posn) (type pretty-stream stream))
-  (- posn (pretty-stream-buffer-offset stream)))
-(defun posn-column (posn stream)
-  (declare (type posn posn) (type pretty-stream stream))
-  (index-column (posn-index posn stream) stream))
-
 #+(or)
 (eval-when (:execute)
   (format t "Setting core:*echo-repl-read* to NIL~%")