anchor.diff:                (sort aliases; (remove userid people :key #'result-id)
                       #'> :key #'person-rank)))))
   
  +(defun search-groups (query &key (userid *userid*))
  +  (let* ((aliases (remove-if-not #'alias-group-p (metaphone-index-query query)))
  +         (user (db userid)) 
  +         (lat (getf user :lat))
  +         (long (getf user :long)))
  +    (flet ((group-rank (alias)
  +             (let* ((result (alias-result alias))
  +                    (member-count (length (db (result-id result) :members)))
  +                    (distance (air-distance lat long (result-latitude result) (result-longitude result))))
  +               (+ (* 9 member-count)
  +                  (/ 50 (log (+ 4 distance) 10)))))
  +           (group-id (alias)
  +             (result-id (alias-result alias))))
  +
  +      (mapcar #'group-id
  +            (sort aliases
  +                  #'> :key #'group-rank)))))
  +
   (defun request-results-html (request-list)
     (html
       (dolist (item request-list)
  
positive.code: ;    (+ mutuals ) ) )
  
  (defun search-people (query &key (userid *userid*))
    (let* ((aliases (metaphone-index-query query))
           (user (db userid))
           (lat (getf user :lat))
           (long (getf user :long))
  
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))
  