anchor.diff:  
         :top (profile-top-html userid)
   
  -      :right (let ((mutuals (mutual-connections userid)))
  -               (when mutuals
  -                 (html
  -                   (:div :class "item people"
  -                    (:h3 "Mutual Connections")
  -                    (:ul
  -                      (dolist (link (alpha-people-links mutuals))
  -                        (htm (:li (str link)))))))))
  +      :right (mutual-connections-html userid)
   
         :selected "people")))
   
  
positive.code:                        :editing (eql editing 'contact)
                         :editable editable))))
              (htm (:h3 "This person hasn't written anything here."))))
          :right (when editing (html (:h2 "Style guide")))
          :top (profile-top-html userid)
          :selected "people"))))
  
  
negative.code:            (:input :type "hidden" :name (if is-contact "remove" "add") :value userid)
             (:input :type "hidden" :name "next" :value *base-url*)
             (:input :class (when is-contact "cancel") :type "submit" :value (if is-contact "Remove from contacts" "Add to contacts")))))))))
  
  (defun mutual-connections-html (userid)
    (let ((mutuals (mutual-connections userid)))
          (when mutuals
            (html
              (:div :class "item people"
               (:h3 "Mutual Connections")
               (:ul
                 (dolist (link (alpha-people-links mutuals))
                   (htm (:li (str link))))))))))
  
  (defun profile-activity-html (userid &key type)
    (let* ((user (db userid))
  