load-nq-clim.lisp 1.63 KB
Newer Older
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
;;;
;;; load-nq-clim.lisp
;;;
;;; A (temporary) way to build and load nq-clim.
;;;

(require :clx)

;; KLUDGE: While I'd much prefer to use something like the quick-build
;; system that I put together for the (SYMBOL-VALUE '*DAYJOB*), for
;; now I'm just going to use a hand-maintained linearization of the
;; file dependencies and a DOLIST.  Aside from the maintenance
;; problems, this also ignores warnings (including style-warnings)
;; from building various files, which is not an idea that I'm in favor
;; of.  I'd far rather have hard build failure in such cases.

(dolist (file '("layout/space-requirement"
                "clx-interface"
                "medium/medium"
                "medium/drawing"
                "medium/basic-medium"
                "geometry/bounding-rectangle-protocol"
                "geometry/coordinate"
                "geometry/region"
                "geometry/rectangle-protocol"
                "geometry/rectangle-api"
                "geometry/standard-bounding-rectangle"
                "geometry/standard-rectangle"
                "geometry/transformation"
                "geometry/transformation-protocol"
                "geometry/bounding-rectangle-api"
                "geometry/identity-transformation"
                "geometry/scaling-transformation"
34
                "geometry/transformation-composition"
35
                "sheet/sheet"
36
                "sheet/sheet-notification-protocol"
37
38
39
40
41
42
43
                "sheet/sheet-hierarchy-protocol"
                "sheet/sheet-multiple-child-mixin"
                "sheet/sheet-parent-mixin"
                "backend/clx/medium"))
  (load (compile-file file)))

;;; EOF