-
Notifications
You must be signed in to change notification settings - Fork 0
/
portable-threads.asd
92 lines (80 loc) · 3.14 KB
/
portable-threads.asd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
;;;; -*- Mode:Common-Lisp; Package:Portable-Threads-System; Syntax:common-lisp -*-
;;;; *-* File: /usr/local/gbbopen/portable-threads.asd *-*
;;;; *-* Edited-By: cork *-*
;;;; *-* Last-Edit: Wed Apr 7 10:24:26 2010 *-*
;;;; *-* Machine: cyclone.cs.umass.edu *-*
;;;; **************************************************************************
;;;; **************************************************************************
;;;; *
;;;; * Stand-Alone ASDF for Portable Threads
;;;; *
;;;; **************************************************************************
;;;; **************************************************************************
;;;
;;; Written by: Attila Lendvai
;;;
;;; Part of the GBBopen Project.
;;; Licensed under Apache License 2.0 (see LICENSE for license information).
;;;
;;; Note: This ASDF system definition is for stand-alone Portable Threads
;;; use. The current gbbopen.asd interface does not play nice with
;;; this one.
;;;
;;; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
;;;
;;; 11-15-07 File created. (Lendvai)
;;; 11-23-07 Replaced non-portable :pathnames with :modules. (Costanza)
;;;
;;; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
(require :asdf)
(eval-when (:compile-toplevel :load-toplevel :execute)
(unless (find-package :portable-threads-system)
(defpackage :portable-threads-system
(:use :common-lisp :asdf))))
(in-package :portable-threads-system)
;;; ---------------------------------------------------------------------------
(defsystem :portable-threads
:author "The GBBopen Project <gbbopen@GBBopen.org>"
:maintainer "Dan Corkill <corkill@GBBopen.org>"
:licence
"Part of the GBBopen Project. Licensed under Apache License 2.0 (see LICENSE for license information)."
:description "Portable Threads"
:components ((:static-file "COPYING")
(:static-file "LICENSE")
(:module
"source"
:components
((:module
"tools"
:components
((:file "portable-threads")
(:module
"test"
:components
((:static-file "portable-threads-test.lisp")))))))))
;;; ---------------------------------------------------------------------------
(defsystem :portable-threads-test
:depends-on (:portable-threads)
:components ((:module
"source"
:components
((:module
"tools"
:components
((:module
"test"
:components
((:file "portable-threads-test")))))))))
;;; ---------------------------------------------------------------------------
(defmethod perform ((op test-op)
(system (eql (find-system :portable-threads))))
(operate 'load-op ':portable-threads-test)
(funcall (intern (symbol-name '#:portable-threads-tests)
:portable-threads-user))
(values))
(defmethod operation-done-p ((op test-op)
(system (eql (find-system :portable-threads))))
nil)
;;; ===========================================================================
;;; End of File
;;; ===========================================================================