From 847435ccff7090527cfbdd480e913c405c71f0a0 Mon Sep 17 00:00:00 2001 From: layer <layer> Date: Tue, 11 Nov 2003 05:34:56 +0000 Subject: [PATCH] 2003-08-29 Kevin Layer <layer@crikey> --- ChangeLog.n | 7 +++++++ buildclim.cl | 15 ++++++++------- 2 files changed, 15 insertions(+), 7 deletions(-) diff --git a/ChangeLog.n b/ChangeLog.n index 05427245..b7a41b89 100644 --- a/ChangeLog.n +++ b/ChangeLog.n @@ -10,6 +10,13 @@ If there are user-visible changes in this commit, then list the <standard changelog date stamp> * <changes go here...> +******************************************************************************* +<no version change> + +2003-08-29 Kevin Layer <layer@crikey> + + * buildclim.cl: make more like buildcomposer.cl + ******************************************************************************* join from acl62 to trunk on 7/3/03 command: diff --git a/buildclim.cl b/buildclim.cl index faa95416..51f51af9 100644 --- a/buildclim.cl +++ b/buildclim.cl @@ -1,5 +1,5 @@ ;; Load this file to make a clim image. -;; $Id: buildclim.cl,v 1.6 2002/07/09 20:57:14 layer Exp $ +;; $Id: buildclim.cl,v 1.7 2003/11/11 05:34:56 layer Exp $ (excl:build-lisp-image #+ics "sys:clim.dxl" #-ics "sys:clim8.dxl" @@ -23,10 +23,11 @@ :discard-source-file-info t :discard-xref-info t) -(sys:copy-file - (excl::curpgmname) +(let ((dest + #+(and mswindows ics) "sys:clim.exe" + #+(and mswindows (not ics)) "sys:clim8.exe" + #+(and (not mswindows) ics) "sys:clim" + #+(and (not mswindows) (not ics)) "sys:clim8")) + (ignore-errors (delete-file dest)) + (sys:copy-file (excl::curpgmname) dest)) - #+(and mswindows ics) "sys:clim.exe" - #+(and mswindows (not ics)) "sys:clim8.exe" - #+(and (not mswindows) ics) "sys:clim" - #+(and (not mswindows) (not ics)) "sys:clim8") -- GitLab