anchor.diff:                                 origin destination i
                                  (cdr (assoc :text (cdr (assoc :duration element))))
                                  (cdr (assoc :text (cdr (assoc :distance element)))))
  -                      (respond event "[~a  → ~a] Error: ~a"
  -                               origin destination
  -                               (cdr (assoc :status element)))))))))
  +                      (progn
  +                        (respond event "[~a  → ~a] Error: ~a"
  +                                 origin destination
  +                                 (cdr (assoc :status element)))
  +                        (respond event "[~a  → ~a] Est: ~a"
  +                                 origin destination
  +                                 (estimated-distance origin destination)))))))))
   
   (defun distance (origin destination &key (mode "driving") (departure-timestamp (get-unix-time)))
     (let ((json (json-request "https://maps.googleapis.com/maps/api/distancematrix/json"
  
positive.code:         (mapcar #'(lambda (a) (cdr (assoc :elements a))) (cdr (assoc :rows json)))
          (error (cdr (assoc :status json))))))
  
  
negative.code: (defvar *unix-epoch-difference* (encode-universal-time 0 0 0 1 1 1970 0))
  (defun get-unix-time ()
    (- (get-universal-time) *unix-epoch-difference*))
  (define-command (google timezone) (&rest address) (:documentation "Retrieve timezone data about a geographical location.")
    (multiple-value-bind (latitude longitude) (coordinates (format NIL "~{~a~^ ~}" address))
      (multiple-value-bind (id name dst raw) (timezone latitude longitude)
        (respond event "~a, ~a (UTC~@f, DST~@f)" id name (/ raw 60 60) (/ dst 60 60)))))
  
  (defun timezone (latitude longitude &optional (timestamp (get-unix-time)))
    (let ((json (json-request "https://maps.googleapis.com/maps/api/timezone/json"
  