anchor.diff:                ((member "postal_code" types :test #'string=)
                  (setf zip (cdr (assoc :short--name component))))
   
  +              ((member "sublocality_level_1" types :test #'string=)
  +               (setf neighborhood (cdr (assoc :short--name component))))
  +
                 ((member "locality" types :test #'string=)
                  (setf city (cdr (assoc :long--name component)))))))
   
  
positive.code: 
           (location (cdr (assoc :location (cdr (assoc :geometry results)))))
           city
           country
           number
           street
           state
           zip)
  
      (iter (for component in (cdr (assoc :address--components results)))
            (until (and city state country number street zip))
  
negative.code:     (values (cdr (assoc :lat location))
              (cdr (assoc :lng location))
              (cdr (assoc :formatted--address results))
              (or city neighborhood)
              state
              country
              (format nil "~a ~a" number street)
  