anchor.diff:          (look-at-char ch vict :look)
           (send-to-char ch "There's no '~a' here.~%" thing))))
   
  +(defcommand (ch "look" "at" thing) (:resting)
  +  (let ((vict (resolve-alias ch thing)))
  +    (if vict
  +        (look-at-char ch vict :look)
  +        (send-to-char ch "There's no '~a' here.~%" thing))))
  +
   (defcommand (ch "examine" thing) (:resting)
  -  (look-at-char ch thing :examine))
  -
  -(defcommand (ch "glance" vict) (:resting)
  -  (look-at-char ch vict :glance))+  (let ((vict (resolve-alias ch thing)))
  +    (if vict
  +        (look-at-char ch vict :examine)
  +        (send-to-char ch "There's no '~a' here.~%" thing))))
  +
  +(defcommand (ch "glance" thing) (:resting)
  +  (let ((vict (resolve-alias ch thing)))
  +    (if vict
  +        (look-at-char ch vict :glance)
  +        (send-to-char ch "There's no '~a' here.~%" thing))))
positive.code:                         (sex-of i)
                          (aref +player-races+ (race-of i))))))
  
    (diag-char-to-char ch i)
  
    (when (eql mode :look)
      (desc-char-trailers ch i))
  
    ;; Describe soilage
    (when (and (not (eql mode :glance)) (typep i 'player))
  
negative.code:                 (format stream " &g(afk: ~a)&y" (afk-reason-of i))
                  (format stream " &g(afk)&y"))))
  
          (format stream "~%")
  
          (unless (pref-flagged ch +pref-notrailers+)
            (desc-char-trailers stream ch i))))))
  
  
  (defun char-list-desc (people ch)
    "Returns two values, a string containing the description of all the seen creatures in PEOPLE, and the number of unseen creatures.  This function may send another creature notification that they've been seen."
  