(defun print-inside (obj stream)\r
"Return the string containing the status of contents of the object"\r
(when (has obj :container)\r
(defun print-inside (obj stream)\r
"Return the string containing the status of contents of the object"\r
(when (has obj :container)\r