anchor.diff:  (defun show-obj-to-char (stream object ch mode count)
       (cond
         ((eql mode :room)
  -       (show-room-obj object ch stream)
  +       (show-room-obj object ch stream count)
          (return-from show-obj-to-char))
         ((and (or (eql mode :inv)
                   (eql mode :content))
  
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: (in-package #:tempus)
  
  (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)
  