From 80be4b01fd4600eac2a32bf7d8bdf21ad4e942f0 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 17 Feb 1995 12:07:49 +0000
Subject: [PATCH] Look for cmucl.orig instead of lisp.orig

---
 tools/hpux-startup.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/hpux-startup.c b/tools/hpux-startup.c
index 80482cd27..73e44ae15 100644
--- a/tools/hpux-startup.c
+++ b/tools/hpux-startup.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/hpux-startup.c,v 1.3 1994/03/11 02:02:15 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/hpux-startup.c,v 1.4 1995/02/17 12:07:49 wlott Rel $
  *
  * This file copies the lisp startup code, forks a process that will delete
  * the copy when the parent exits, and then exec's the copy of the lisp
@@ -34,7 +34,7 @@ static char *find_lisp_orig(void)
 	dst = buffer;
 	while (*src != '\0' && *src != ':')
 	    *dst++ = *src++;
-	strcpy(dst, "/lisp.orig");
+	strcpy(dst, "/cmucl.orig");
 	if (stat(buffer, &statbuf) != -1)
 	    if ((statbuf.st_mode & S_IFMT) == S_IFREG) {
 		found = TRUE;
@@ -43,7 +43,7 @@ static char *find_lisp_orig(void)
     } while (*src++ != '\0');
 
     if (!found) {
-	fprintf(stderr, "Could not find lisp.orig.  Try setting CMUCLLIB.\n");
+	fprintf(stderr, "Could not find cmucl.orig.  Try setting CMUCLLIB.\n");
 	exit(1);
     }    
 
-- 
GitLab