From 04e80861b250baa5b7964f00cb3750f8266c9c75 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 28 Jan 1994 17:22:59 +0000
Subject: [PATCH] Use /usr/local/cmucl instead of /usr/misc/.cmucl on hpux.

---
 code/save.lisp | 5 +++--
 lisp/lisp.c    | 6 +++++-
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/code/save.lisp b/code/save.lisp
index 4920c22e3..3cb865e75 100644
--- a/code/save.lisp
+++ b/code/save.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.18 1993/08/22 11:06:04 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.19 1994/01/28 17:22:59 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -93,7 +93,8 @@
 
   (setf (search-list "library:")
 	(or (parse-unix-search-list :cmucllib)
-	    '("/usr/misc/.cmucl/lib/"))))
+	    '(#-hpux "/usr/misc/.cmucl/lib/"
+	      #+hpux "/usr/local/cmucl/lib/"))))
 
 
 
diff --git a/lisp/lisp.c b/lisp/lisp.c
index ea500561a..a6f8a8dfb 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.4 1993/04/28 01:58:33 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.5 1994/01/28 17:22:29 wlott Exp $
  *
  */
 
@@ -135,7 +135,11 @@ void main(int argc, char *argv[], char *envp[])
 	    } while (*lib++ == ':');
 	}
 	if (core == NULL) {
+#ifdef hpux
+	    strcpy(buf, "/usr/local/cmucl/lib/");
+#else
 	    strcpy(buf, "/usr/misc/.cmucl/lib/");
+#endif
 	    strcat(buf, default_core);
 	    core = buf;
 	}
-- 
GitLab