anchor.diff:        ((<= (second reply) 200)
          (quri.decode:url-decode-params (octets-to-string (first reply))))
         ((>= (second reply) 400)
  -       (with-open-file (s (s+ +db-path+ "/tmp/log") :direction :output :if-exists :supersede)
  -         (format s "~S~%"
  -                 (cdr (assoc :message
  -                             (cdr (assoc :error
  -                                         (decode-json-octets (first reply))))))))
  +       (facebook-debugging-log
  +         (cdr (assoc :message
  +                     (cdr (assoc :error
  +                                 (decode-json-octets (first reply)))))))
          nil)
         (t
          (with-open-file (s (s+ +db-path+ "/tmp/log") :direction :output :if-exists :supersede)
  
positive.code: (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)
      (progn
        (modify-db item-id :fb-action-id (publish-facebook-action item-id
                                                                  userid
  
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)
  