(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
- (cant-go string)\r
+ ;(cant-go string) <- doesn't provide by default\r
(has :light :enterable))\r
\r
(ifclass item () (description string) (article string)\r
\r
(defun default-glance (obj)\r
"Default initial description of object"\r
- (format t "[Default glance for ~a]~%" obj)\r
+ ;;(format t "[Default glance for ~a]~%" obj)\r
(sprint "~a~%" \r
(with-output-to-string (out)\r
(princ "There is " out) (princ (print-name obj) out) \r