From 0f760c43640934b732822acad572c12b865cf87f Mon Sep 17 00:00:00 2001 From: garland <garland> Date: Wed, 11 Nov 1992 15:31:40 +0000 Subject: [PATCH] Initial revision --- tools/clmcom.lisp | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 tools/clmcom.lisp diff --git a/tools/clmcom.lisp b/tools/clmcom.lisp new file mode 100644 index 000000000..2568b14d5 --- /dev/null +++ b/tools/clmcom.lisp @@ -0,0 +1,40 @@ +;;; File for compiling the Motif toolkit and related interface +;;; stuff. +;;; + +(in-package "USER") + +(pushnew :motif-toolkit *features*) + +(with-compilation-unit + (:optimize '(optimize (speed 3) (safety 1) (ext:inhibit-warnings 3))) + + (comf "target:motif/lisp/initial" :load t) + (comf "target:motif/lisp/internals" :load t) + (comf "target:motif/lisp/transport" :load t) + (comf "target:motif/lisp/events" :load t) + (comf "target:motif/lisp/conversion" :load t)) + +(with-compilation-unit + (:optimize '(optimize (speed 2) (ext:inhibit-warnings 2))) + + (comf "target:motif/lisp/interface-glue" :load t) + (comf "target:motif/lisp/xt-types" :load t) + (comf "target:motif/lisp/string-base" :load t) + (comf "target:motif/lisp/prototypes" :load t) + (comf "target:motif/lisp/interface-build" :load t) + (comf "target:motif/lisp/callbacks" :load t) + (comf "target:motif/lisp/widgets" :load t) + (comf "target:motif/lisp/main" :load t)) + +(xt::build-toolkit-interface) + +(with-compilation-unit + () + (comf "target:interface/initial" :load t) + (comf "target:interface/interface" :load t) + (comf "target:interface/inspect" :load t) + ;; We don't want to fall into the Motif debugger while compiling. + ;; It may be that the motifd server hasn't been (re)compiled yet. + (let ((interface:*interface-style* :tty)) + (comf "target:interface/debug" :load t))) -- GitLab