anchor.diff:        (http-request
           (s+ +base-url+ "publish-facebook")
           :parameters (list (cons "item-id" (strcat item-id))
  +                          (cons "userid" (strcat userid))
                             (cons "fb-action-id" (strcat fb-action-id))
                             (cons "fb-action-type" action-type)
                             (cons "fb-object-id" (strcat fb-object-id))
  
positive.code:   (if (server-side-request-p)
      (progn
        (facebook-debugging-log
          nil
          nil
          "modifying the DB"
          (post-parameters*)
          (strcat* "fb-object-id: " fb-object-id)
          (amodify-db item-id :fb-object-id fb-object-id
                              :fb-publishing-in-process nil
                              :fb-actions (cons (list :fb-id fb-id
                                                      :fb-action-type fb-action-type
                                                      :fb-action-id fb-action-id)
                                                it)))
        (setf (return-code*) +http-no-content+)
        nil)
      (progn
  
negative.code: (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*)
  