anchor.diff:  (in-package #:saluto)
   
  -;(break "one")
   (eval-when (:load-toplevel :execute)
  - ;(break "two")
     (new-oauth-provider "FACEBOOK.COM"
   
   ;;; ==================================================================
  -                      
  +
                         :init-values '((provider-name           . "facebook.com")
                                        (oauth-host              . "")
                                        ;;; There are two different hosts
  
positive.code:                                             "url"))
                                 (email      (jsown:val parsed-answer "email"))
                                 (uid        (jsown:val parsed-answer "id")))
                            (info-message (format nil "ANSWER: ~A" parsed-answer))
                            (list :first-name first-name
                                  :last-name  last-name
                                  :avatar     avatar
  
negative.code:                           (let ((parsed-userinfo (parse-userinfo module userinfo)))
                              (store-userinfo module parsed-userinfo)))
                          (redirect "/"))
  
  ;;; ==================================================================
  
                        :prepare-userinfo-fun
  