Skip to content
Snippets Groups Projects
Commit 72ead7db authored by wlott's avatar wlott
Browse files

Changed the default for lisp.core under hpux to be /usr/local/lib/cmucl/lib.

parent c17e1ca3
Branches
Tags
No related merge requests found
/* /*
* main() entry point for a stand alone lisp image. * 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[]) ...@@ -109,9 +109,6 @@ void main(int argc, char *argv[], char *envp[])
if (default_core == NULL) if (default_core == NULL)
default_core = "lisp.core"; 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) { if (core == NULL) {
extern char *getenv(char *var); extern char *getenv(char *var);
static char buf[MAXPATHLEN]; static char buf[MAXPATHLEN];
...@@ -135,8 +132,10 @@ void main(int argc, char *argv[], char *envp[]) ...@@ -135,8 +132,10 @@ void main(int argc, char *argv[], char *envp[])
} while (*lib++ == ':'); } while (*lib++ == ':');
} }
if (core == NULL) { if (core == NULL) {
/* Note: the /usr/misc/.cmucl/lib/ default path is also wired
/* into the lisp code in .../code/save.lisp. */
#ifdef hpux #ifdef hpux
strcpy(buf, "/usr/local/cmucl/lib/"); strcpy(buf, "/usr/local/lib/cmucl/lib/");
#else #else
strcpy(buf, "/usr/misc/.cmucl/lib/"); strcpy(buf, "/usr/misc/.cmucl/lib/");
#endif #endif
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment