From a03ddbbfd49d3d65880f6341e9dea34e442a8ad7 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Tue, 6 Jan 2015 16:34:31 -0500
Subject: [PATCH] Add some more pretty-printers in lieu of print-object for
 warm init.

---
 src/cold/warm.lisp | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index cbaaea6d9..363a70a48 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -214,6 +214,24 @@
            (list (cons '*print-pprint-dispatch* ppd)))
           (*print-pprint-dispatch* ppd))
      (set-pprint-dispatch
+      'sb-kernel:layout (lambda (stream obj)
+                          (print-unreadable-object (obj stream :type t)
+                            (write (sb-int:awhen (sb-kernel:layout-classoid obj)
+                                     (sb-kernel:classoid-name sb-int:it))
+                                   :stream stream))))
+     (set-pprint-dispatch
+      'sb-kernel:classoid (lambda (stream obj)
+                            (print-unreadable-object (obj stream :type t)
+                              (write (sb-kernel:classoid-name obj) :stream stream))))
+     (set-pprint-dispatch
+      'package (lambda (stream obj)
+                 (print-unreadable-object (obj stream :type t)
+                   (write (package-name obj) :stream stream))))
+     (set-pprint-dispatch
+      'pathname (lambda (stream obj)
+                  (write-string "#P" stream)
+                  (write (namestring obj) :stream stream)))
+     (set-pprint-dispatch
       'sb-thread:thread (lambda (stream obj)
                           (declare (ignore obj))
                           (write-string "#<main-thread>" stream)))
-- 
2.11.4.GIT