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