anchor.diff:  (defvar *facebook-user-token* nil)
   (defvar *facebook-user-token-expiration* nil)
   (defvar *fb-id* nil)
  +
  +(defun find-nil-fb-actions (&aux items)
  +  (dolist (result *recent-activity-index*)
  +    (when (find (result-type result) '(:gratitude :offer :request))
  +      (let* ((id (result-id result))
  +             (data (db id)))
  +        (when (and (getf data :fb-actions)
  +                   (not (getf (first (getf data :fb-actions))
  +                              :fb-action-id)))
  +          (push (list :userid (or (getf data :author)
  +                                  (getf data :by))
  +                      :item-id id)
  +                items)))))
  +  items)
   
   (defun fix-fb-link-active-error ()
     (dolist (id *active-people-index*)
  
positive.code:       (http-request
          (s+ +base-url+ "publish-facebook")
          :parameters (list (cons "item-id" (strcat item-id))
                            (cons "fb-action-id" (strcat fb-action-id))
                            (cons "fb-action-type" action-type)
                            (cons "fb-object-id" (strcat fb-object-id))
  
negative.code: 
  (defun post-new-facebook-data
    (&aux (item-id (post-parameter-integer "item-id"))
          (userid (post-parameter-integer "userid"))
          (fb-action-id (post-parameter-integer "fb-action-id"))
          (fb-object-id (post-parameter-integer "fb-object-id"))
          (fb-id (post-parameter-integer "fb-id"))
  