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: 
  (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"))
  