Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 26 lines (19 sloc) 0.648 kb
8f10c1d Initial version imported from my private repository.
Jeff Palmucci authored
1 (in-package :asdf)
2
3 (defpackage future
4 (:use :cl)
06d4dc4 Export *total-slaves*, fix some doc
Jeff Palmucci authored
5 (:export #:terminate-children #:future #:get-future-value #:future-mapcar
cae0e1d @jpalmucci support for *current-slave*
authored
6 #:*total-slaves* #:*current-slave* #:*spawn-child-hooks*))
8f10c1d Initial version imported from my private repository.
Jeff Palmucci authored
7
8 (defvar *future-path* *load-truename*)
9
a644d7b Oops, defsystem used old name
Jeff Palmucci authored
10 (defsystem cl-future
8f10c1d Initial version imported from my private repository.
Jeff Palmucci authored
11 :depends-on (osicat cl-store)
12 :components
13 ((:file "future"))
14 :perform (asdf:load-op :after (op c)
15 (if (find-package 'swank)
16 (load (make-pathname :name "future-swank"
17 :type "lisp"
a1db1c0 Add support for clsql
Jeff Palmucci authored
18 :defaults *future-path*)))
19 (if (find-package 'clsql)
20 (load (make-pathname :name "future-clsql"
21 :type "lisp"
8f10c1d Initial version imported from my private repository.
Jeff Palmucci authored
22 :defaults *future-path*)))))
23
24
25
26
Something went wrong with that request. Please try again.