/
metatilities.asd
113 lines (103 loc) · 3.46 KB
/
metatilities.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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
#| copyright
See the file COPYING for details
|#
(defpackage :asdf-metatilities (:use #:asdf #:cl))
(in-package :asdf-metatilities)
;; try hard
#+(or)
;; no, too weird
(unless (find-system 'asdf-system-connections nil)
(when (find-package 'asdf-install)
(funcall (intern (symbol-name :install) :asdf-install)
'asdf-system-connections)))
;; give up with a useful (?) error message
(unless (find-system 'asdf-system-connections nil)
(print "The metatilities system works best with asdf-system-connections. See
http://www.cliki.net/asdf-system-connections for details and download
instructions."))
;; now try again
(when (find-system 'asdf-system-connections nil)
(operate 'load-op 'asdf-system-connections))
(defsystem metatilities
:author "Gary Warren King <gwking@metabang.com>"
:version "0.6.10"
:maintainer "Gary Warren King <gwking@metabang.com>"
:licence "MIT Style license"
:description "These are the rest of metabang.com's Common Lisp utilities"
:long-description "These are the rest of metabang.com's Common Lisp utilities and what not."
:properties ((:ait-timeout . 10)
(:system-applicable-p . 3))
:components ((:module
"extensions"
:pathname #.(make-pathname
:directory '(:relative "dev" "utilities"))
:components
((:file "package-additional")
(:file "anaphoric"
:depends-on ("package-additional"))
(:file "graham"
:depends-on ("anaphoric" "package-additional"))
(:file "dates-and-times"
:depends-on ("macros" "anaphoric" "package-additional"))
(:file "files"
:depends-on ("graham" "macros"))
(:file "macros"
:depends-on ("package-additional"))
(:file "sequences"
:depends-on ("package-additional"))
(:file "spy"
:depends-on ("package-additional" "macros"))
(:file "strings"
:depends-on ("package-additional"))
(:file "utilities"
:depends-on ("macros" "graham"))
(:file "searching"
:depends-on ("package-additional"))
(:file "views-and-windows"
:depends-on ("package-additional"))))
(:module
"port"
:pathname #.(concatenate
'string "dev/"
(or #+OpenMCL "openmcl"
#+DIGITOOL "mcl"
#+SBCL "sbcl"
#+allegro "allegro"
#-(or OpenMCL DIGITOOL SBCL allegro)
"unsupported")
"/")
:components ((:file "generic-lisp")
#+DIGITOOL (:file "pop-up-menu")
(:file "generic-interface-support"
:depends-on ("generic-lisp"
#+DIGITOOL "pop-up-menu"))))
(:module
"website"
:components
((:module "source"
:components ((:static-file "index.md"))))))
:in-order-to ((test-op (load-op metatilities-test)))
:perform (test-op :after (op c)
(funcall
(intern (symbol-name '#:run-tests) :lift)
:config :generic))
:depends-on (:metatilities-base
:moptilities
:cl-containers
:metabang-bind
:defsystem-compatibility
:asdf-system-connections))
(defmethod operation-done-p
((o test-op)
(c (eql (find-system 'metatilities))))
(values nil))
#+asdf-system-connections
(asdf:defsystem-connection lift-and-metatilities
:requires (lift metatilities-base)
:perform (load-op :after (op c)
(use-package (find-package :lift)
(find-package :metatilities))
(funcall (intern
(symbol-name :export-exported-symbols)
'metatilities)
:lift :metatilities)))