anchor.diff:  (defpackage org.tymoonnext.colleen.mod.google
     (:use :cl :colleen :events :split-sequence))
   (in-package :org.tymoonnext.colleen.mod.google)
  +
   (eval-when (:compile-toplevel :load-toplevel :execute)
     (ql:quickload :parse-number))
   
  
positive.code: 
  
  (define-command (google distance) (origin destination &optional (mode "driving") departure-timestamp) (:documentation "Look up google maps distance data.")
    (assert (find mode '("walking" "driving" "bicycling") :test #'string-equal) () "Mode has to be one of walking, driving, bycicling.")
    (let ((departure-timestamp (if departure-timestamp (parse-integer departure-timestamp) (get-unix-time))))
      (let ((data (distance origin destination :mode mode :departure-timestamp departure-timestamp)))
        (loop for row in data
  
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"
  