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:                                  (t
                                    "Dark red blood covers everything in sight.")))
                   (setf blood-shown t)))
        (when (and (= (vnum-of o) +ice-vnum+)
                   (not ice-shown))
          (send-to-char ch "&r~a.&n~%"
                        (cond
  
negative.code: (in-package #:tempus)
  
  (defparameter +dirs+ #("n" "e" "s" "w" "u" "d" "f" "p"))
  (defparameter +num-of-dirs+ (length +dirs+))
  