4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
|
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
|
+
+
+
|
(let ((db (cdr *task-db*)))
(if (sqlite3:database? db)
(begin
(sqlite3:interrupt! db)
(sqlite3:finalize! db #t)
;; (vector-set! *task-db* 0 #f)
(set! *task-db* #f)))))
(if (and *no-sync-db*
(sqlite3:database? *no-sync-db*))
(sqlite3:finalize! *no-sync-db* #t))
(if (and (not (args:get-arg "-server"))
*runremote*)
(begin
(debug:print-info 0 *default-log-port* "Closing all client connections...")
(http-transport:close-connections *runremote*)
#;(http-client#close-all-connections!)))
;; (if (and *runremote*
|