small lisp updates

.gitignore

@@ -4,3 +4,4 @@ build
 ml
 .DS_Store
 CMakeFiles
+Testing

stdlib/stdlib.lisp

@@ -38,6 +38,9 @@
 ; return fourth element of list
 (defun fourth (l) (index l 3))
 
+; return fifth element of list
+(defun fifth (l) (index l 4))
+
 
 
 ; from list of lists creates csv string
@@ -61,3 +64,6 @@
 
         rows_str
     ))
+
+
+(defun setq (var val) (define var val))

tmp/divi-dates.lsp

@@ -1,4 +1,4 @@
-
+; (print (make-csv (divi-dates "2021-02-01")))
 (defun divi-dates (date-str)
     (do
         (define curl_cmd (+ "curl -H \"Accept: application/json, text/plain, */*\" -H \"Origin: https://www.nasdaq.com/\" -H \"User-Agent: Mozilla/5.0 (Windows NT 10.0)\" https://api.nasdaq.com/api/calendar/dividends/?date=" date-str " 2>/dev/null"))
@@ -13,7 +13,8 @@
         (define rows (index (index calendar_data 1) 1))
 
         ; (define csv_list '())
-        (define csv_list '("symbol" "ex-date" "pay-date" "div-rate"))
+        (define csv_list '(("symbol" "ex-date" "pay-date" "div-rate")))
+        (if (!= rows '@)
             (for e rows
                 ; (("announcement_Date" "01/07/2021") ("companyName" "Itau Unibanco Banco Holding SA") ("dividend_Ex_Date" "02/01/2021") ("dividend_Rate" 0.003) ("indicated_Annual_Dividend" 0.033) ("payment_Date" "03/11/2021") ("record_Date" "02/02/2021") ("symbol" "ITUB"))
                 (define symbol (second  (first (filter (lambda (x) (= (first x) "symbol")) e))))
@@ -25,8 +26,8 @@
                 (define rdate (second  (first (filter (lambda (x) (= (first x) "record_Date")) e))))
 
                 (define csv_list (push csv_list (list symbol exdate paydate divrate))))
+            '())  
+
         csv_list
     ))
 
-
-(print (make-csv (divi-dates "2021-02-01")))