Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
9 lines (6 sloc) 242 Bytes
(in-package :future)
;; If we are using clsql, make sure to close the connections in the child lest the server get confused.
(defun close-clsql-connections ()
(clsql:disconnect)
)
(pushnew #'close-clsql-connections *spawn-child-hooks*)