anchor.diff:                       (str (people-results-html people)))
                      (htm
                        (:p "no results"))))))
  +
  +            ((string= scope "groups")
  +             (let ((groups (search-groups q)))
  +               (htm
  +                 (:p "Searching for groups. Would you like to "
  +                     (:a :href (s+ "/search?q=" (url-encode q)) "search everything")
  +                     "?")
  +                 (if groups
  +                   (htm
  +                     (str (groups-results-html groups)))
  +                   (htm
  +                     (:p "no results"))))))
               
               (t ; all
                (let ((requests (search-inventory :request q :distance (user-rdist)))
                      (offers (search-inventory :offer q :distance (user-rdist)))
  -                   (people (search-people q)))
  -
  -               (if (or requests offers people)
  +                   (people (search-people q))
  +                   (groups (search-groups q)))
  +
  +               (if (or requests offers people groups)
                    (progn
                      (when people
                        (htm
  
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:                        (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")
  