anchor.diff: -;;; Copyright 2012-2013 CommonGoods Network, Inc.
  +;;; Copyright 2012-2018 CommonGoods Network, Inc.
   ;;;
   ;;; This file is part of Kindista.
   ;;;
  
positive.code:            long
             "&sensor=false&zoom="
             zoom
             (if marker
               (strcat "&markers=color:0x90B04B|" lat "," long)
               "")
  
negative.code:                                     :private)))))
  
  (defun geocode-address (address)
    (let* ((key *google-geocode-api-key*)
           (response (json:decode-json-from-string
                            (octets-to-string
                              (http-request
                                "https://maps.googleapis.com/maps/api/geocode/json"
                                :parameters `(("address" . ,address)
                                              ("key" . ,key)
                                              ("sensor" . "false")))
                              :external-format :utf-8)))
           (results (first (cdr (assoc :results response))))
  
           (location (cdr (assoc :location (cdr (assoc :geometry results)))))
           city
  