anchor.diff:  
             (t
               (htm
  -              (:p (str content)))))))))
  +              (:p (str (html-text content))))))))))
   
   (defun profile-top-html (userid)
     (let ((user (db userid))
  
positive.code:        ;   (profile-bio-html id)
         ;   (profile-activity-html id)))
  
          ((or (not (eql id *userid*))
               (getf *user* :bio-summary)
               (getf *user* :bio-into)
  
negative.code:              (getf *user* :bio-skils)
               (getf *user* :bio-doing))
           (profile-activity-html id))
  
          (t (not-found))))))
  
  