Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
81 lines (72 sloc) 3.11 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)
(and cmu mp)
(and digitool ccl-5.1)
(and ecl threads)
(and openmcl openmcl-native-threads)
(and sbcl sb-thread))
(pushnew :thread-support *features*))
(defsystem bordeaux-threads
:description ""
:long-description ""
:author "Greg Pfeil <>"
;; based on original Bordeaux-MP spec by Dan Barlow <>
;; contributors:
;; Attila Lendvai <>
;; - better handling of unsupported Lisps
;; Vladimir Sekissov <>
;; - fixes for CMUCL implementation
;; Pierre Thierry <>
;; - added license information
;; Stelian Ionescu <>
;; - finished conversion from generic functions
;; - enabled running thread-safe code in unthreaded lisps
:licence "MIT"
:version "0.3.0"
:components ((:module "src"
:serial t
((:file "bordeaux-threads")
(:file #+(and thread-support allegro) "allegro"
#+(and thread-support armedbear) "armedbear"
#+(and thread-support cmu) "cmu"
#+(and thread-support corman) "corman"
#+(and thread-support digitool) "mcl"
#+(and thread-support ecl) "ecl"
#+(and thread-support lispworks) "lispworks"
#+(and thread-support openmcl) "openmcl"
#+(and thread-support sbcl) "sbcl"
#-thread-support "unsupported")
(:file "default-implementations")
#+(and thread-support
(or armedbear ecl lispworks digitool))
(:file "condition-variables"))))
:in-order-to ((test-op (load-op bordeaux-threads-test)))
:perform (test-op :after (op c)
(intern (symbol-name (read-from-string "run-tests"))
:suite (intern
(read-from-string "test-bordeaux-threads"))
(defmethod operation-done-p ((op test-op)
(c (eql (find-system :bordeaux-threads))))
(values nil))
(defsystem bordeaux-threads-test
:depends-on (bordeaux-threads lift)
:components ((:module "test" :components ((:file "bordeaux-threads-test")))))
Something went wrong with that request. Please try again.