anchor.diff:  (in-package #:tempus)
   
  -(defun show-room-obj (object ch stream)
  +(defun show-room-obj (object ch stream count)
     (let ((non-blank-ldesc (string/= (line-desc-of object) "")))
       (when (or non-blank-ldesc (immortalp ch))
         (princ "&g" stream)
  
positive.code:           (format stream "~a exists here."
                    (string-upcase (name-of object) :end 1)))
        (show-obj-bits object ch stream)
        (format stream "~%"))))
  
  (defun show-obj-bits (object ch stream)
  
negative.code: (defun show-obj-to-char (stream object ch mode count)
      (cond
        ((eql mode :room)
         (show-room-obj object ch stream count)
         (return-from show-obj-to-char))
        ((and (or (eql mode :inv)
                  (eql mode :content))
  