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

Contents of /src/tools/clmcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Thu Jan 28 14:08:30 1993 UTC (21 years, 2 months ago) by wlott
Branch: MAIN
Changes since 1.1: +21 -6 lines
Added standard header, and changed with-compilation-unit to
with-compiler-log-file.
1 wlott 1.2 ;;; -*- Package: USER -*-
2     ;;;
3     ;;; **********************************************************************
4     ;;; This code was written as part of the CMU Common Lisp project at
5     ;;; Carnegie Mellon University, and has been placed in the public domain.
6     ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7     ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8     ;;;
9     (ext:file-comment
10     "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/clmcom.lisp,v 1.2 1993/01/28 14:08:30 wlott Exp $")
11     ;;;
12     ;;; **********************************************************************
13     ;;;
14 garland 1.1 ;;; File for compiling the Motif toolkit and related interface
15     ;;; stuff.
16     ;;;
17    
18     (in-package "USER")
19    
20     (pushnew :motif-toolkit *features*)
21    
22 wlott 1.2 (with-compiler-log-file
23     ("target:compile-motif.log"
24     :optimize '(optimize (speed 3) (safety 1) (ext:inhibit-warnings 3)))
25 garland 1.1
26     (comf "target:motif/lisp/initial" :load t)
27     (comf "target:motif/lisp/internals" :load t)
28     (comf "target:motif/lisp/transport" :load t)
29     (comf "target:motif/lisp/events" :load t)
30     (comf "target:motif/lisp/conversion" :load t))
31    
32 wlott 1.2 (with-compiler-log-file
33     ("target:compiler-motif.log"
34     :optimize '(optimize (speed 2) (ext:inhibit-warnings 2)))
35 garland 1.1
36     (comf "target:motif/lisp/interface-glue" :load t)
37     (comf "target:motif/lisp/xt-types" :load t)
38     (comf "target:motif/lisp/string-base" :load t)
39     (comf "target:motif/lisp/prototypes" :load t)
40     (comf "target:motif/lisp/interface-build" :load t)
41     (comf "target:motif/lisp/callbacks" :load t)
42     (comf "target:motif/lisp/widgets" :load t)
43     (comf "target:motif/lisp/main" :load t))
44    
45     (xt::build-toolkit-interface)
46    
47 wlott 1.2 (with-compiler-log-file
48     ("target:compile-motif.log")
49 garland 1.1 (comf "target:interface/initial" :load t)
50     (comf "target:interface/interface" :load t)
51     (comf "target:interface/inspect" :load t)
52     ;; We don't want to fall into the Motif debugger while compiling.
53     ;; It may be that the motifd server hasn't been (re)compiled yet.
54     (let ((interface:*interface-style* :tty))
55     (comf "target:interface/debug" :load t)))

  ViewVC Help
Powered by ViewVC 1.1.5