anchor.diff:      (values (cdr (assoc :lat location))
               (cdr (assoc :lng location))
               (cdr (assoc :formatted--address results))
  -            city
  +            (or city neighborhood)
               state
               country
               (format nil "~a ~a" number street)
  
positive.code:               ((member "postal_code" types :test #'string=)
                 (setf zip (cdr (assoc :short--name component))))
  
                ((member "locality" types :test #'string=)
                 (setf city (cdr (assoc :long--name component)))))))
  
  
negative.code: 
           (location (cdr (assoc :location (cdr (assoc :geometry results)))))
           city
           neighborhood
           country
           number
           street
           state
           zip)
      ;; google doesn't reliably return the city name, so we are using the neighborhood name as a backup
  
      (iter (for component in (cdr (assoc :address--components results)))
            (until (and city state country number street zip))
  