mop: In print-object-with-slots, use write for the slot values.

[lisp] / mdw-mop.lisp

diff --git a/mdw-mop.lisp b/mdw-mop.lisp
index 04cc9339e5d7147de7d21f8200953e9432d6caef..e88ff1227a007e10fd375b154f3288b11d6960f9 100644 (file)
--- 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 --------------------------------------------------