anchor.diff:                                              :year #\space
                                               :hour #\: :min #\: :sec))
                       (+brief-time-format+ '(:year #\/ (:month 2) #\/ (:day 2)))
  -                    (+long-time-format+ '(:long-month #\space :day #\,
  +                    (+long-time-format+ '(#\space :short-month #\space :day #\,
                                             #\space :year))
                       (max-name-length (if brief 8 13))
                       (truncated-name (if (> (length (name-of tmp-ch))
  
positive.code:                   (cxn-write cxn "&b[&y~2d&b] &n~8a ~10a ~a ~a&n "
                               idx name-str laston-str status-str mail-str))
                   (t
                    (cxn-write cxn "&b[&y~2d&b] &n~13a ~3d ~3d  ~a  ~8a ~a ~13a ~a ~a&n~%"
                               idx name-str
                               (level-of tmp-ch) (remort-gen-of tmp-ch)
                               sex-str
  
negative.code:                                            (char-class-name (char-class-of tmp-ch))
                                             (char-class-color tmp-ch (remort-char-class-of tmp-ch))
                                             (char-class-name (remort-char-class-of tmp-ch)))
                                     (format nil "~a~9@a&n"
                                             (char-class-color tmp-ch (char-class-of tmp-ch))
                                             (char-class-name (char-class-of tmp-ch)))))
                      (sex-str (case (sex-of tmp-ch)
                                 (male "&bM")
                                 (female "&mF")
                                 (t "N")))
                      (laston-str (format-timestring nil (login-time-of tmp-ch)
                                                     :format (cond
                                                               (immort +immort-time-format+)
  