From 3ef118f9efbd48279de35e10833fd2bfc4bcaa30 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 28 Jan 1993 14:08:30 +0000 Subject: [PATCH] Added standard header, and changed with-compilation-unit to with-compiler-log-file. --- tools/clmcom.lisp | 27 +++++++++++++++++++++------ 1 file changed, 21 insertions(+), 6 deletions(-) diff --git a/tools/clmcom.lisp b/tools/clmcom.lisp index 2568b14d5..6c09afc54 100644 --- a/tools/clmcom.lisp +++ b/tools/clmcom.lisp @@ -1,3 +1,16 @@ +;;; -*- Package: USER -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.2 1993/01/28 14:08:30 wlott Exp $") +;;; +;;; ********************************************************************** +;;; ;;; File for compiling the Motif toolkit and related interface ;;; stuff. ;;; @@ -6,8 +19,9 @@ (pushnew :motif-toolkit *features*) -(with-compilation-unit - (:optimize '(optimize (speed 3) (safety 1) (ext:inhibit-warnings 3))) +(with-compiler-log-file + ("target:compile-motif.log" + :optimize '(optimize (speed 3) (safety 1) (ext:inhibit-warnings 3))) (comf "target:motif/lisp/initial" :load t) (comf "target:motif/lisp/internals" :load t) @@ -15,8 +29,9 @@ (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))) +(with-compiler-log-file + ("target:compiler-motif.log" + :optimize '(optimize (speed 2) (ext:inhibit-warnings 2))) (comf "target:motif/lisp/interface-glue" :load t) (comf "target:motif/lisp/xt-types" :load t) @@ -29,8 +44,8 @@ (xt::build-toolkit-interface) -(with-compilation-unit - () +(with-compiler-log-file + ("target:compile-motif.log") (comf "target:interface/initial" :load t) (comf "target:interface/interface" :load t) (comf "target:interface/inspect" :load t) -- GitLab