17 lines
492 B
Common Lisp
17 lines
492 B
Common Lisp
(print "Debug starts")
|
|
|
|
; nefunguje - api.nasdaq.com
|
|
;(define nasdaq_headers (quote (("Accept" "application/json, text/plain, */*") ("Connection" "keep-alive") ("Origin" "https://www.nasdaq.com/") ("User-Agent" "Mozilla/5.0 (Windows NT 10.0)"))))
|
|
;(define json_list2 (parse-json (read-url "https://api.nasdaq.com/api/calendar/dividends/?date=2021-02-01" nasdaq_headers)))
|
|
; (for x json_list2
|
|
; (print x))
|
|
|
|
|
|
|
|
|
|
|
|
(print (make-csv '(("r1c1" "r1c2") ("r2c1" "r2c2"))))
|
|
|
|
|
|
(print "Debug ends")
|