system-cmd-fork added

debug.lsp

@@ -1,18 +1 @@
-
-(def #sql_srv_address "stocksriddle.one")
-(def #sql_srv_port 5388)
-
-(defn exec-sql (sql)
-(do
-	(def r (tcp-client #sql_srv_address #sql_srv_port sql))
-	(print r)
-	(first (eval (parse r)))
-))
-
-(def sql "select distinct to_string(datetime, '%d.%m.%Y'),symbol,time,title from history_earnings_dates where datetime>=to_date('2022-03-02', '%Y-%m-%d') and datetime<=to_date('2022-03-19', '%Y-%m-%d')")
-(print "*" sql "*")
-(def row (exec-sql sql))
-(print row)
-
-(exit 1)
-
+(system-cmd-fork "ml"  "-c" "(print 123) (sleep 1) (print \"aaa\")")