(n-to object) (ne-to object) (e-to object) (se-to object)\r
(s-to object) (sw-to object) (w-to object) (nw-to object)\r
(u-to object) (d-to object) (in-to object) (out-to object)\r
(n-to object) (ne-to object) (e-to object) (se-to object)\r
(s-to object) (sw-to object) (w-to object) (nw-to object)\r
(u-to object) (d-to object) (in-to object) (out-to object)\r
(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