readme update

Readme.md

@@ -4,7 +4,7 @@
 
 ### TODO
 - use file suffix .lsp instead of .lisp
-- make-list
+- support for (), nil, t
 - print-table
 - download 1 year of data from api.nasdaq.com into test dir
 - support for including lisp libs at startup from dir

debug.lisp

@@ -1,18 +1,22 @@
 (print "Debug starts")
 
-; (print (make-csv '(("r1c1" "r1c2") ("r2c1" "r2c2"))))
-
-(define path '("/usr/local/var/mlisp"))
-
-(for d path
-    (if (is-dir? d)
-        (for f (ls-dir d)
-            (if (regex-search? f "^.*\.l(i)?sp$")
-                (include (+ d "/" f))
-                '())
+(define csv_list '())
+(for f (ls-dir "tests/divi")
+     (if (regex-search? f "^divi.*\.csv$")
+        (do 
+            (define filename (+ "tests/divi/" f))
+            ; (print filename)
+            (define csv_str (read-file filename))
+            (define csv_file_list (parse-csv csv_str))
+            (define csv_list (+ csv_list csv_file_list))
         )
-        ()))
+     ))
 
-(print (regex-search? "test.lsp" "^.*\.l(i)?sp$"))
+;; (for x csv_list
+;;     (print x))
+
+(print (len csv_list))
+
+(print (filter (lambda (x) (= (first x) "CLX")) csv_list))
 
 (print "Debug ends")