From b335ab4f0327c8bcd3b3c8dcdf5dea4039bfa27b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 22 Jul 1993 21:24:36 +0000 Subject: [PATCH] Make a library file of all the fasls. Don't call build-toolkit-interface when it isn't defined. --- tools/clmcom.lisp | 27 +++++++++++++++++++++++++-- 1 file changed, 25 insertions(+), 2 deletions(-) diff --git a/tools/clmcom.lisp b/tools/clmcom.lisp index 90f9dd71c..5073f8767 100644 --- a/tools/clmcom.lisp +++ b/tools/clmcom.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.5 1993/05/15 18:24:06 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.6 1993/07/22 21:24:36 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -49,7 +49,8 @@ (comf "target:motif/lisp/widgets" :load t) (comf "target:motif/lisp/main" :load t)) -(xt::build-toolkit-interface) +(when (fboundp 'xt::build-toolkit-interface) + (xt::build-toolkit-interface)) ;;; Make sure that the INTERFACE package is defined before we start ;;; talking about it. @@ -67,3 +68,25 @@ ;; It may be that the motifd server hasn't been (re)compiled yet. (let ((interface:*interface-style* :tty)) (comf "target:interface/debug" :load t))) + +(cat-if-anything-changed + "target:interface/clm-library" + + "target:motif/lisp/initial" + "target:motif/lisp/internals" + "target:motif/lisp/transport" + "target:motif/lisp/events" + "target:motif/lisp/conversion" + + "target:motif/lisp/interface-glue" + "target:motif/lisp/xt-types" + "target:motif/lisp/string-base" + "target:motif/lisp/prototypes" + ;"target:motif/lisp/interface-build" + "target:motif/lisp/callbacks" + "target:motif/lisp/widgets" + "target:motif/lisp/main" + "target:interface/initial" + "target:interface/interface" + "target:interface/inspect" + "target:interface/debug") -- GitLab