Add support for clsql

README

@@ -8,4 +8,6 @@ Interface:
 
 (get-future-value <expr>): walk the list structure "expr", replacing any futures with their evaluated values. Blocks if a future is still running.
 
-*total-slaves*: The maximum number of slaves to run at any one time.
+*total-slaves*: The maximum number of slaves to run at any one time.
+
+(terminate-children): Kill all currently running children.

cl-future.asd

@@ -14,6 +14,10 @@
   :perform (asdf:load-op :after (op c)
 			 (if (find-package 'swank)
 			     (load (make-pathname :name "future-swank"
+						  :type "lisp"
+						  :defaults *future-path*)))
+			 (if (find-package 'clsql)
+			     (load (make-pathname :name "future-clsql"
 						  :type "lisp"
 						  :defaults *future-path*)))))
 

future-clsql.lisp

@@ -0,0 +1,8 @@
+(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*)

future.lisp

@@ -59,7 +59,7 @@ When wait comes around and reaps them, we remove them from the table"
 
 
 (defun terminate-children ()
-  "Kill all currently runnint children"
+  "Kill all currently running children."
   (maphash #'(lambda (key value)
 	       (with-slots (pid result code) value
 		 (ignore-errors (nix:kill (pid value) 9))