anchor.diff:             (if (< rcode 400) `(302 (:location ,(format nil "~a" uri)))
                content))))))
   
  -(auth-entry-point google-login-entry *goog-endpoint-schema*)
  -(auth-entry-point facebook-login-entry *fbook-endpoint-schema*)
  -
   (defmacro def-callback-generator (name generator-args callback-args &body body)
     `(defun ,name ,generator-args
        (lambda ,callback-args
  
positive.code:         (let* ((a-t (get-access-token *fbook-endpoint-schema* (get-code params)))
                 (id-token (get-id-token a-t))
                 (user-info (get-user-info *fbook-endpoint-schema* id-token)))
            (setf accesstoken a-t
              app-user (funcall get-app-user-cb user-info id-token a-t)
              idtoken id-token
              userinfo user-info)
  
negative.code:          (saved-state (gethash :state session)))
      (equal saved-state received-state)))
  
  (defmacro auth-entry-point (name endpoint-schema)
    `(defun ,name (params)
       (declare (ignore params))
  