anchor.diff:                                       (oauth-path              . "https://www.facebook.com/dialog/oauth")
                                        (query-params            . (("scope"  . "email")))
                                        (access-token-path       . "https://graph.facebook.com/oauth/access_token")
  -				     (token-params            . ())
  +                                     (token-params            . ())
                                        (encode-uri              . nil)
                                        (api-host                . "https://graph.facebook.com/"))
   
  
positive.code: (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
  
negative.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
  