anchor.diff:               (getf *user* :bio-skils)
                (getf *user* :bio-doing))
            (profile-activity-html id))
  -
  -        ((not editing)
  -         (profile-bio-html id))
  -
  -        ((string= editing "doing")
  -         (profile-bio-html id :editing 'doing))
  -
  -        ((string= editing "contact")
  -         (profile-bio-html id :editing 'contact))
  -
  -        ((string= editing "into")
  -         (profile-bio-html id :editing 'into))
  -
  -        ((string= editing "summary")
  -         (profile-bio-html id :editing 'summary))
  -
  -        ((string= editing "skills")
  -         (profile-bio-html id :editing 'skills))
   
           (t (not-found))))))
   
  
positive.code:                        :editable editable))))
              (htm (:h3 "This person hasn't written anything here."))))
          :right (if editing
                   (html (:h2 "Style guide"))
                   (when mutuals
                     (mutual-connections-sidebar mutual-links)))
          :top (profile-top-html userid)
  
negative.code: 
            (t
              (htm
                (:p (str (html-text content))))))))))
  
  (defun profile-top-html (userid)
    (let ((user (db userid))
  