anchor.diff:                          (t
                            "Everything is covered with a thick coating of ice")))
           (setf ice-shown t))))
  -#+nil
  -  (list-obj-to-char (contents-of room) ch +show-obj-room+ nil)
  +  (send-to-char ch "&g~a&n"
  +          (with-output-to-string (s)
  +            (list-obj-to-char s (contents-of room) ch :room nil)))
   #+nil
     (list-char-to-char (people-of room) ch))
       
  
positive.code:                                  (format nil "|~a|" dir)
                                   (format nil "~a" dir))))))
  
  (defun look-at-room (ch room ignore-brief)
    (unless (link-of ch)
      (return-from look-at-room))
  
negative.code:   (let ((blood-shown nil)
          (ice-shown nil))
      (dolist (o (contents-of room))
        (when (and (= (vnum-of (shared-of o)) +blood-vnum+)
                   (not blood-shown)
                   (send-to-char ch "&r~a.&n~%"
                                 (cond
  