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

Contents of /src/tools/clmcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Wed Nov 11 15:31:40 1992 UTC (21 years, 5 months ago) by garland
Branch: MAIN
Initial revision
1 garland 1.1 ;;; File for compiling the Motif toolkit and related interface
2     ;;; stuff.
3     ;;;
4    
5     (in-package "USER")
6    
7     (pushnew :motif-toolkit *features*)
8    
9     (with-compilation-unit
10     (:optimize '(optimize (speed 3) (safety 1) (ext:inhibit-warnings 3)))
11    
12     (comf "target:motif/lisp/initial" :load t)
13     (comf "target:motif/lisp/internals" :load t)
14     (comf "target:motif/lisp/transport" :load t)
15     (comf "target:motif/lisp/events" :load t)
16     (comf "target:motif/lisp/conversion" :load t))
17    
18     (with-compilation-unit
19     (:optimize '(optimize (speed 2) (ext:inhibit-warnings 2)))
20    
21     (comf "target:motif/lisp/interface-glue" :load t)
22     (comf "target:motif/lisp/xt-types" :load t)
23     (comf "target:motif/lisp/string-base" :load t)
24     (comf "target:motif/lisp/prototypes" :load t)
25     (comf "target:motif/lisp/interface-build" :load t)
26     (comf "target:motif/lisp/callbacks" :load t)
27     (comf "target:motif/lisp/widgets" :load t)
28     (comf "target:motif/lisp/main" :load t))
29    
30     (xt::build-toolkit-interface)
31    
32     (with-compilation-unit
33     ()
34     (comf "target:interface/initial" :load t)
35     (comf "target:interface/interface" :load t)
36     (comf "target:interface/inspect" :load t)
37     ;; We don't want to fall into the Motif debugger while compiling.
38     ;; It may be that the motifd server hasn't been (re)compiled yet.
39     (let ((interface:*interface-style* :tty))
40     (comf "target:interface/debug" :load t)))

  ViewVC Help
Powered by ViewVC 1.1.5