/[cmucl]/src/tools/clxcom.lisp
ViewVC logotype

Contents of /src/tools/clxcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.31 - (show annotations)
Wed Jun 17 18:29:23 2009 UTC (4 years, 9 months ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, intl-branch-working-2010-02-19-1000, unicode-string-buffer-impl-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, intl-2-branch-base, GIT-CONVERSION, cross-sol-x86-merged, intl-branch-working-2010-02-11-1000, RELEASE_20b, release-20a-base, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, snapshot-2010-08, cross-sol-x86-2010-12-20, intl-branch-2010-03-18-1300, RELEASE_20a, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, cross-sparc-branch-base, intl-branch-base, snapshot-2009-08, snapshot-2009-07, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, RELEASE-20A-BRANCH, amd64-dd-branch, unicode-string-buffer-impl-branch, intl-branch, cross-sol-x86-branch, intl-2-branch
Changes since 1.30: +8 -2 lines
Compile in the new files screensaver, xinerama, and xtest.  These are
completely untested.
1 ;;; -*- Package: USER -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;;
5 (ext:file-comment
6 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/clxcom.lisp,v 1.31 2009/06/17 18:29:23 rtoy Rel $")
7 ;;;
8 ;;; **********************************************************************
9 ;;;
10 (in-package "CL-USER")
11
12 #+bootstrap
13 (unless (find-package "OLD-XLIB")
14 (when (find-package "XLIB")
15 (rename-package (find-package "XLIB") "OLD-XLIB"))
16
17 (make-package "XLIB" :use '("COMMON-LISP")))
18
19 #+(and (not pcl) (not no-pcl-clx))
20 (progn
21 (load "target:pcl/pclload")
22 #+gencgc (gc :full t)
23 #-gencgc (ext:purify))
24
25 (pushnew :clx-ansi-common-lisp *features*)
26
27 ;; I (rtoy) think we need this so the condition accessors are defined.
28 ;; setup.lisp sets this to NIL, and the Pierre Mai's build scripts
29 ;; load setup.lisp before clxcom.lisp.
30 #+pcl
31 (setf conditions::*make-condition-accessor-methods* t)
32
33 (with-compiler-log-file
34 ("target:compile-clx.log"
35 :optimize
36 '(optimize (debug #-small 2 #+small .5)
37 (speed 2) (inhibit-warnings 2)
38 (safety #-small 1 #+small 0))
39 :optimize-interface
40 '(optimize-interface (debug .5))
41 :context-declarations
42 '(((:and :external :global)
43 (declare (optimize-interface (safety 2) (debug 1))))
44 ((:and :external :macro)
45 (declare (optimize (safety 2))))
46 (:macro (declare (optimize (speed 0))))))
47 (let ((c::*suppress-values-declaration* t))
48 (comf "target:clx/package" :load t)
49 ; (comf "target:clx/defsystem" :load t)
50 (comf "target:clx/depdefs" :load t)
51 (comf "target:clx/clx" :load t)
52 (comf "target:clx/dependent" :load t)
53 (comf "target:clx/macros") ; these are just macros
54 (load "target:clx/macros")
55 (comf "target:clx/bufmac") ; these are just macros
56 (load "target:clx/bufmac")
57 (comf "target:clx/buffer" :load t)
58 (comf "target:clx/display" :load t)
59 (comf "target:clx/gcontext" :load t)
60 (comf "target:clx/input" :load t)
61 (comf "target:clx/requests" :load t)
62 (comf "target:clx/fonts" :load t)
63 (comf "target:clx/graphics" :load t)
64 (comf "target:clx/text" :load t)
65 (comf "target:clx/attributes" :load t)
66 (comf "target:clx/translate" :load t)
67 (comf "target:clx/keysyms" :load t)
68 (comf "target:clx/manager" :load t)
69 (comf "target:clx/image" :load t)
70 (comf "target:clx/resource" :load t)
71 (comf "target:clx/shape" :load t)
72 (comf "target:clx/big-requests" :load t)
73 (comf "target:clx/xvidmode" :load t)
74 (comf "target:clx/xrender" :load t)
75 (comf "target:clx/glx" :load t)
76 (comf "target:clx/gl" :load t)
77 (comf "target:clx/dpms" :load t)
78 (comf "target:clx/screensaver" :load t)
79 (comf "target:clx/xinerama" :load t)
80 (comf "target:clx/xtest" :load t))
81 (comf "target:code/clx-ext")
82 (comf "target:hemlock/charmacs" :load t)
83 (comf "target:hemlock/key-event" :load t)
84 (comf "target:hemlock/keysym-defs" :load t)
85 (comf "target:clx/provide")
86
87 #+nil
88 (comf "target:code/inspect"))
89
90 (cat-if-anything-changed
91 "target:clx/clx-library"
92 "target:clx/package"
93 "target:clx/depdefs"
94 "target:clx/clx"
95 "target:clx/dependent"
96 "target:clx/macros"
97 "target:clx/bufmac"
98 "target:clx/buffer"
99 "target:clx/display"
100 "target:clx/gcontext"
101 "target:clx/input"
102 "target:clx/requests"
103 "target:clx/fonts"
104 "target:clx/graphics"
105 "target:clx/text"
106 "target:clx/attributes"
107 "target:clx/translate"
108 "target:clx/keysyms"
109 "target:clx/manager"
110 "target:clx/image"
111 "target:clx/resource"
112 "target:clx/shape"
113 "target:clx/big-requests"
114 "target:clx/xvidmode"
115 "target:clx/xrender"
116 "target:clx/glx"
117 "target:clx/gl"
118 "target:clx/dpms"
119 "target:clx/screensaver"
120 "target:clx/xinerama"
121 "target:clx/xtest"
122 "target:code/clx-ext"
123 "target:hemlock/charmacs"
124 "target:hemlock/key-event"
125 "target:hemlock/keysym-defs"
126 "target:clx/provide")

  ViewVC Help
Powered by ViewVC 1.1.5