Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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.