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