X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=iflib.lisp;fp=iflib.lisp;h=4ba5b5dfde16d40b7918bf717fd7fcf78a7e8ae0;hb=f2bc208b79cb4993115ec0c9c4a9e12adcbc519b;hp=0154b718e83198fb3af6b7c2042da93f41f87c8e;hpb=2624b2069897898a92d247cab9781989df240110;p=lifp.git

diff --git a/iflib.lisp b/iflib.lisp
index 0154b71..4ba5b5d 100644
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -100,7 +100,7 @@
 	 (n-to object) (ne-to object) (e-to object) (se-to object)
 	 (s-to object) (sw-to object) (w-to object) (nw-to object)
 	 (u-to object) (d-to object) (in-to object) (out-to object)
-	 (cant-go string)
+	 ;(cant-go string) <- doesn't provide by default
 	 (has :light :enterable))
 
 (ifclass item () (description string) (article string)
@@ -356,7 +356,7 @@
 
 (defun default-glance (obj)
   "Default initial description of object"
-  (format t "[Default glance for ~a]~%" obj)
+  ;;(format t "[Default glance for ~a]~%" obj)
   (sprint "~a~%" 
 	  (with-output-to-string (out)
 	    (princ "There is " out) (princ (print-name obj) out)