todo update

debug.lsp

@@ -1,8 +1,4 @@
 
-;; (benchmark "benchmark makelist 1000 : " (make-list 1000))
-;; (benchmark "benchmark range 1000 : " (range 1 1000))
-
-
 ;https://github.com/anthay/Lisp90/blob/master/lisp90.cpp
 ;http://howtowriteaprogram.blogspot.com/2010/11/lisp-interpreter-in-90-lines-of-c.html
 
@@ -27,17 +23,8 @@
 
 ;; (define first_tid (thread-create (while 1 (do (thread-under-lock "ilock" (print 1)) (thread-sleep 50)))))
 ;; (define second_tid (thread-create (while 1 (do (thread-under-lock "ilock" (print 2)) (thread-sleep 75)))))
-
 ;; (print "first thread id:" first_tid)
 ;; (print "second thread id:" second_tid)
-
-
 ;; (threads-join)
 ;; (print "ok")
 
-
-;; (define av (read-url "https://www.alphavantage.co/query?function=EARNINGS&symbol=WFC&apikey=LJ4XGQ7BQIL925RF"))
-;; (if (= (first av) 200)
-;;     (do
-;;         (define json (parse-json (second av)))
-;;     ))