82992 foox (let [ts (TimeSeries. "TataSteel" Second) ts-col (TimeSeriesCollection.)] (doseq [] (doseq [tick (map #(vector (:date %) ((comp second (fn [x] (nth x 2)) :ticks) %)) *data-buffer*)] (if (and tick (second tick)) (.add ts (Second. (first tick)) (second tick)))) (.addSeries ts-col ts) (let [frame (ChartFrame. "Test" (ChartFactory/createTimeSeriesChart "TataSteel" "Time" "Price" ts-col true true false))] (.pack frame) (.setVisible frame true)))) 3455674355 None Basic Lisp TRUE