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