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"))))
19 (asdf:defsystem :sb-concurrency-tests
20 :depends-on (:sb-concurrency :sb-rt)
25 (:file "test-utils" :depends-on ("package"))
26 (:file "test-queue" :depends-on ("package" "test-utils"))
27 (:file "test-mailbox" :depends-on ("package" "test-utils"))))))
29 (defmethod asdf:perform :after ((o asdf:load-op)
30 (c (eql (asdf:find-system :sb-concurrency))))
31 (provide 'sb-concurrency))
33 (defmethod asdf:perform ((o asdf:test-op)
34 (c (eql (asdf:find-system :sb-concurrency))))
35 (asdf:oos 'asdf:load-op :sb-concurrency-tests)
36 (asdf:oos 'asdf:test-op :sb-concurrency-tests))
38 (defmethod asdf:perform ((o asdf:test-op)
39 (c (eql (asdf:find-system :sb-concurrency-tests))))
40 (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
41 (error "~S failed" 'asdf:test-op)))