Use inravina-shim

Author: yitzchak

src/lisp/cscript.lisp

@@ -124,8 +124,7 @@
              #~"kernel/lsp/defvirtual.lisp"
              #~"kernel/clos/streams.lisp"
              #~"kernel/lsp/circle.lisp"
-             :incless-native
-             :inravina-intrinsic
+             :inravina-shim
              #~"kernel/lsp/pprint.lisp"
              #~"kernel/lsp/format-pprint.lisp"
              #~"kernel/clos/conditions.lisp"

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

@@ -468,11 +468,7 @@
   (error 'format-error
          :complaint "No corresponding open bracket."))
 
-(defclass printer-client (incless-native:native-client inravina-intrinsic:intrinsic-client)
-  ())
-
-(setf inravina-intrinsic:*client* (make-instance 'printer-client)
-      (first (cdr si::+io-syntax-progv-list+)) inravina-intrinsic:*standard-pprint-dispatch*)
+(setf (first (cdr si::+io-syntax-progv-list+)) inravina-intrinsic:*standard-pprint-dispatch*)
 
 (defmethod print-object ((obj structure-object) stream)
   (if *print-pretty*