From 9b90f92de7da2d4dff6c49d18b1fc34784c14a2d Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 10 Jul 1990 18:26:03 +0000
Subject: [PATCH] Initial MIPS branch.  Just call the regular printer.

---
 code/pprint.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/code/pprint.lisp b/code/pprint.lisp
index 5eddd974b..ab94907b2 100644
--- a/code/pprint.lisp
+++ b/code/pprint.lisp
@@ -19,6 +19,7 @@
 (in-package "EXTENSIONS")
 (export '(grindef))
 (in-package "LISP")
+
 #|
 (defun pprin1 (object &optional stream)
   "Prettily outputs the Object to the Stream slashifying special characters."
@@ -45,6 +46,7 @@
 (defun output-pretty-object (object stream)
   (assert *print-pretty*)
   (typecase object
+    #+nil
     ((or list structure vector array)
      (xp::basic-write object stream))
     (t (let ((*print-pretty* nil))
@@ -83,8 +85,5 @@
 
 ;;; Initialize Water's pretty printer.
 (defun pprint-init ()
-  (xp::install :shadow nil)
-  (define-print-dispatch (cons (and symbol (satisfies fboundp)))
-			 ((:priority 5) (:table *print-dispatch*))
-    #'fill-style))
+  (xp::install :package "XP" :shadow nil))
 
-- 
GitLab