Do not use streams for reverse-geocode

process-locations.lisp

@@ -12,7 +12,10 @@
    (floor (get-element "timestampMs" doc) 1000)))
 
 (defun day-kv (date)
-  (ts->kv (local-time:parse-timestring date))
+  (ts->kv (local-time:parse-timestring date)))
+
+(defun $between (a from to)
+  (kv ($>= a from) ($< a to)))
 
 (defun ts->kv (ts)
   (let ((nd (local-time:timestamp+ ts 1 :day)))
@@ -22,11 +25,11 @@
 
 (defun reverse-geocode (lat lon)
   (let* ((data (yason:parse
-               (drakma:http-request
-                (format nil
-                        "http://open.mapquestapi.com/nominatim/v1/reverse.php?format=json&lat=~A&lon=~A"
-                        lat lon)
-                :want-stream t)))
+                (flexi-streams:octets-to-string
+                 (drakma:http-request
+                  (format nil
+                          "http://open.mapquestapi.com/nominatim/v1/reverse.php?format=json&lat=~A&lon=~A"
+                          lat lon)))))
          (address (gethash "address" data)))
     (values (gethash "display_name" data)
             address)))