Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
68 lines (60 sloc) 2.53 KB
#|
Copyright 2006,2007 Greg Pfeil
Distributed under the MIT license (see LICENSE file)
|#
(defpackage bordeaux-threads-system
(:use #:cl #:asdf))
(in-package :bordeaux-threads-system)
(eval-when (:compile-toplevel :load-toplevel :execute)
#+allegro (require :process)
#+corman (require :threads))
(eval-when (:compile-toplevel :load-toplevel :execute)
#+(or (and allegro multiprocessing)
armedbear
(and cmu mp)
scl
corman
(and digitool ccl-5.1)
(and ecl threads)
lispworks
(and openmcl openmcl-native-threads)
(and sbcl sb-thread)
(and clisp mt))
(pushnew :thread-support *features*))
(defsystem :bordeaux-threads
:author "Greg Pfeil <greg@technomadic.org>"
:licence "MIT"
:version #.(with-open-file
(vers (merge-pathnames "version.lisp-expr" *load-truename*))
(read vers))
:depends-on (:alexandria)
:components ((:module "src"
:serial t
:components
((:file "pkgdcl")
(:file "bordeaux-threads")
(:file #+(and thread-support armedbear) "impl-abcl"
#+(and thread-support allegro) "impl-allegro"
#+(and thread-support clisp) "impl-clisp"
#+(and thread-support openmcl) "impl-clozure"
#+(and thread-support cmu) "impl-cmucl"
#+(and thread-support corman) "impl-corman"
#+(and thread-support ecl) "impl-ecl"
#+(and thread-support lispworks) "impl-lispworks"
#+(and thread-support digitool) "impl-mcl"
#+(and thread-support sbcl) "impl-sbcl"
#+(and thread-support scl) "impl-scl"
#-thread-support "unsupported")
(:file "default-implementations")
#+(and thread-support
(or armedbear digitool ecl lispworks))
(:file "condition-variables"))))
:in-order-to ((test-op (load-op bordeaux-threads-test)))
:perform (test-op :after (op c)
(describe
(funcall (intern (string '#:run-tests) :lift)
:suite (intern (string '#:test-bordeaux-threads)
:bordeaux-threads-test)))))
(defmethod operation-done-p ((op test-op)
(c (eql (find-system :bordeaux-threads))))
(values nil))
Something went wrong with that request. Please try again.