anchor.diff:                                              "url"))
                                  (email      (jsown:val parsed-answer "email"))
                                  (uid        (jsown:val parsed-answer "id")))
  -                          (info-message (format nil "ANSWER: ~A" parsed-answer))
  +                          ;(info-message (format nil "ANSWER: ~A" parsed-answer))
                             (list :first-name first-name
                                   :last-name  last-name
                                   :avatar     avatar
  
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: 
                        :parse-userinfo-fun
                        (alexandria:named-lambda parse-userinfo-fun (module answer)
                          (declare (ignore module))
                          (let* ((parsed-answer (jsown:parse (sb-ext:octets-to-string answer)))
                                 (first-name (jsown:val parsed-answer "first_name"))
                                 (last-name  (jsown:val parsed-answer "last_name"))
                                 (avatar     (jsown:val
  