anchor.diff:                            (let ((parsed-userinfo (parse-userinfo module userinfo)))
                               (store-userinfo module parsed-userinfo)))
                           (redirect "/"))
  -                      
  +
   ;;; ==================================================================
   
                         :prepare-userinfo-fun
  
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: (in-package #:saluto)
  
  (eval-when (:load-toplevel :execute)
    (new-oauth-provider "FACEBOOK.COM"
  
  ;;; ==================================================================
  
                        :init-values '((provider-name           . "facebook.com")
                                       (oauth-host              . "")
                                       ;;; There are two different hosts
  