anchor.diff:  (defun post-new-facebook-action
     (&aux (item-id (get-parameter-integer "item-id"))
           (userid (get-parameter-integer "userid"))
  -        (action-type (get-parameter-string "action-type")))
  -  (if (server-side-request-p)
  +        (action-type (get-parameter-string "action-type"))
  +        (server-side-request-p (server-side-request-p)))
  +  (facebook-debugging-log (strcat "Server-side-p: " server-side-request-p))
  +  (if server-side-request-p
       (progn
         (modify-db item-id :fb-action-id (publish-facebook-action item-id
                                                                   userid
  
positive.code:                                          (json:encode-json-to-string
                                             (list (cons "value" "SELF"))))))))))
  
    (when (= (second reply) 200)
      (parse-integer (cdr (assoc :id
                                 (decode-json-octets (first reply)))))))
  
negative.code:                            "redirect_uri" (url-encode (s+ +base-url+ redirect-uri)))
          (str button-text))))
  
  (defun facebook-debugging-log (message)
    (with-open-file (s (s+ +db-path+ "/tmp/log") :direction :output :if-exists :append)
      (format s "~S~%" message)))
  
  (defun register-facebook-user
    (&optional (redirect-uri "home")
               &aux reply)
  