3 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; This software is derived from the CMU CL system, which was
7 ;;;; written at Carnegie Mellon University and released into the
8 ;;;; public domain. The software is in the public domain and is
9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
10 ;;;; files for more information.
14 (asdf:defsystem :sb-concurrency
15 :components ((:file "package")
16 (:file "queue" :depends-on ("package"))
17 (:file "mailbox" :depends-on ("package" "queue"))
18 (:file "gate" :depends-on ("package"))))
20 (asdf:defsystem :sb-concurrency-tests
21 :depends-on (:sb-concurrency :sb-rt)
26 (:file "test-utils" :depends-on ("package"))
27 (:file "test-queue" :depends-on ("package" "test-utils"))
28 (:file "test-mailbox" :depends-on ("package" "test-utils"))
29 (:file "test-gate" :depends-on ("package" "test-utils"))))))
31 (defmethod asdf:perform :after ((o asdf:load-op)
32 (c (eql (asdf:find-system :sb-concurrency))))
33 (provide 'sb-concurrency))
35 (defmethod asdf:perform ((o asdf:test-op)
36 (c (eql (asdf:find-system :sb-concurrency))))
37 (asdf:oos 'asdf:load-op :sb-concurrency-tests)
38 (asdf:oos 'asdf:test-op :sb-concurrency-tests))
40 (defmethod asdf:perform ((o asdf:test-op)
41 (c (eql (asdf:find-system :sb-concurrency-tests))))
42 (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
43 (error "~S failed" 'asdf:test-op)))