From f4df6cf47a48e12e3e18d3d2a6285147f6f1c147 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 1 May 2006 10:37:05 +0100
Subject: [PATCH] mop: In print-object-with-slots, use write for the slot
 values.

Also print unbound slots as `#<unbound>'.  This is what the SLIME
inspector does and it makes sense.
---
 mdw-mop.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mdw-mop.lisp b/mdw-mop.lisp
index 04cc933..e88ff12 100644
--- a/mdw-mop.lisp
+++ b/mdw-mop.lisp
@@ -274,7 +274,7 @@
                 (progn (format stream " ~@_~:I") (setf sep t)))
             (let ((name (pprint-pop))
                   (value (pprint-pop)))
-              (format stream "~S ~@_~:[~S~;<unbound>~*~]"
+              (format stream "~S ~@_~:[~W~;#<unbound>~*~]"
                       name (eq value magic) value))))))))
 
 ;;;----- That's all, folks --------------------------------------------------
-- 
2.11.0