Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

63 lines (56 sloc) 2.717 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)
(defsystem bordeaux-threads
:description ""
:long-description ""
:author "Greg Pfeil <greg@technomadic.org>"
;; based on original Bordeaux-MP spec by Dan Barlow <dan@telent.net>
;; contributors:
;; Attila Lendvai <attila.lendvai@gmail.com>
;; - better handling of unsupported Lisps
;; Vladimir Sekissov <svg@surnet.ru>
;; - fixes for CMUCL implementation
:licence "MIT"
:version "0.1.2"
:serial t
:components ((:module "src"
:components ((:file "bordeaux-threads")
(:file #+allegro "allegro"
#+armedbear "armedbear"
#+cmu "cmu"
#+corman "corman"
#+(and digitool ccl-5.1) "mcl"
#+ecl "ecl"
#+lispworks "lispworks"
#+openmcl "openmcl"
#+(and sbcl sb-thread) "sbcl"
#-(or allegro armedbear cmu corman
(and digitool ccl-5.1) ecl
lispworks openmcl
(and sbcl sb-thread))
"unsupported"
:depends-on ("bordeaux-threads"))
#+(or armedbear ecl lispworks)
(:file "condition-variables"
#+armedbear #+armedbear :depends-on ("armedbear")))))
:in-order-to ((test-op (load-op bordeaux-threads-test)))
:perform (test-op :after (op c)
(describe
(funcall
(intern (symbol-name (read-from-string "run-tests"))
:lift)
:suite (intern
(symbol-name
(read-from-string "test-bordeaux-threads"))
:bordeaux-threads-test)))))
(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.