Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
80 lines (72 sloc) 3.21 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))
(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.2.2"
:components ((:module "src"
:serial t
((:file "bordeaux-threads")
(:file #+(and allegro multiprocessing) "allegro"
#+armedbear "armedbear"
#+(and cmu mp) "cmu"
#+corman "corman"
#+(and digitool ccl-5.1) "mcl"
#+(and ecl threads) "ecl"
#+lispworks "lispworks"
#+(and openmcl openmcl-native-threads) "openmcl"
#+(and sbcl sb-thread) "sbcl"
#-(or (and allegro multiprocessing)
(and cmu mp)
(and digitool ccl-5.1)
(and ecl threads)
(and openmcl openmcl-native-threads)
(and sbcl sb-thread))
(:file "default-implementations")
#+(or armedbear
(and ecl threads)
(and digitool ccl-5.1))
(: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")))))
Jump to Line
Something went wrong with that request. Please try again.