From 72ead7dbe348d746d1bd45cbfee5da9efe694495 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 10 Mar 1994 16:34:14 +0000
Subject: [PATCH] Changed the default for lisp.core under hpux to be
 /usr/local/lib/cmucl/lib.

---
 lisp/lisp.c | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/lisp/lisp.c b/lisp/lisp.c
index a6f8a8dfb..3f5e1dc27 100644
--- a/lisp/lisp.c
+++ b/lisp/lisp.c
@@ -1,7 +1,7 @@
 /*
  * main() entry point for a stand alone lisp image.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.5 1994/01/28 17:22:29 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.6 1994/03/10 16:34:14 wlott Exp $
  *
  */
 
@@ -109,9 +109,6 @@ void main(int argc, char *argv[], char *envp[])
     if (default_core == NULL)
 	default_core = "lisp.core";
 
-    /* Note: the /usr/misc/.cmucl/lib/ default path is also wired into */
-    /* the lisp code in .../code/save.lisp. */
-
     if (core == NULL) {
 	extern char *getenv(char *var);
 	static char buf[MAXPATHLEN];
@@ -135,8 +132,10 @@ void main(int argc, char *argv[], char *envp[])
 	    } while (*lib++ == ':');
 	}
 	if (core == NULL) {
+	    /* Note: the /usr/misc/.cmucl/lib/ default path is also wired
+	    /* into the lisp code in .../code/save.lisp. */
 #ifdef hpux
-	    strcpy(buf, "/usr/local/cmucl/lib/");
+	    strcpy(buf, "/usr/local/lib/cmucl/lib/");
 #else
 	    strcpy(buf, "/usr/misc/.cmucl/lib/");
 #endif
-- 
GitLab