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