(when (or (not already) (< (length already) (length entry)))
;; Add new or replace shorter prior entry for name:
(puthash name entry tally)))
entries)
(when (or (not already) (< (length already) (length entry)))
;; Add new or replace shorter prior entry for name:
(puthash name entry tally)))
entries)