anchor.diff:                         (when (> (length people) 5)
                            (htm
                              (:div :class "more-results" (:a :href (s+ "/search?scope=people&q=" (url-encode q)) (fmt "see ~d more people" (- (length people) 5))))))))
  +                   (when groups
  +                     (htm
  +                       (:h2 (:a :href (s+ "/search?scope=groups&q=" (url-encode q)) "Groups"))
  +                       (str (groups-results-html (sublist groups 0 5)))
  +                       (when (> (length groups) 5)
  +                         (htm
  +                           (:div :class "more-results" (:a :href (s+ "/search?scope=groups&q=" (url-encode q)) (fmt "see ~d more groups" (- (length groups) 5))))))))
                      (when requests
                        (htm
                          (:h2 (:a :href (s+ "/requests?q=" (url-encode q)) "Requests")
  
positive.code:               (sort aliases; (remove userid people :key #'result-id)
                      #'> :key #'person-rank)))))
  
  (defun request-results-html (request-list)
    (html
      (dolist (item request-list)
  
negative.code:     (:div 
        (dolist (person person-list)
          (str (person-card (car person) (cdr person)))))))
  
  (defun groups-results-html (group-list)
    (html
      (:div 
        (dolist (group group-list)
          (str (group-card group))))))
  
  (defun search-nearby-people (query &key (userid *userid*) (distance 10))
    (let* ((user (db userid))
  