diff --git a/code/pprint.lisp b/code/pprint.lisp index 5eddd974bba763aab8daef4eb7a931b220eeed06..ab94907b2eb8a6e34fd66abc8cf9c454487bbb35 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))