Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

57 lines (50 sloc) 2.448 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>
:licence "MIT"
:version "0.0.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"
#+sbcl "sbcl"
#-(or allegro armedbear cmu corman
(and digitool ccl-5.1) ecl
lispworks openmcl sbcl)
"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.