;;; in our production, we get geojson data from real boats.
;;; but we can reproduce the problem with 
;;; "mock geojson" like this:


(use medea)

(let loop ()
  (write-json
   `((type . "Feature")
     (geometry . ((type . "Point")
                  (coordinates . ,(vector (/ (random 10000) 100) (/ (random 10000) 100)))))
     (properties . ((mmsi . ,(random 10000))
                    (name . "debug")
                    (sog . 5)))))
  (newline)
  (loop))

;;; so to start this thing, do this:
;;; csi -s geojson-generator.scm  | csi -s arp-boats.scm 8181
;; then, in another terminal, see that the mock boats show up:
;;; curl "localhost:8181/arp-boats?fleet=&bb=67.1016555307692/-28.256835937499996/53.61857936489517/46.669921875"
;;; {"type":"FeatureCollection","features":[{"type":"Feature","geometry":
;;; {"type":"Point","coordinates":[31.56,60.76]},"properties":......

;;; Great, it's running and working. Now wait patiently, and after about 1-2 days, the arp-boats.scm program will hang forever in a GC loop for some reason.