X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/969cb2f41cca38bb09fbfde8d42602bf5365b297..f4df6cf47a48e12e3e18d3d2a6285147f6f1c147:/mdw-mop.lisp?ds=sidebyside

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