From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 1 May 2006 09:37:05 +0000 (+0100)
Subject: mop: In print-object-with-slots, use write for the slot values.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/commitdiff_plain/f4df6cf47a48e12e3e18d3d2a6285147f6f1c147?hp=969cb2f41cca38bb09fbfde8d42602bf5365b297

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.
---

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 @@ (defun print-object-with-slots (obj stream)
                 (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 --------------------------------------------------