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: 
            (t
              (htm
                (:p (str content)))))))))
  
  (defun profile-top-html (userid)
    (let ((user (db userid))
  
negative.code:           (editing
              (htm
                (:form :method "post" :action "/settings"
                  (:input :type "hidden" :name "next" :value (strcat *base-url* "/about"))
                  (:textarea :name (strcat "bio-" section-name)
                             (str (escape-for-html content)))
                  (:button :class "yes" :type "submit" :name "save" "Save")
                  (:a :class "cancel" :href *base-url* "Cancel")
                  )))
  