diff --git a/code/save.lisp b/code/save.lisp index 4920c22e31dc8fd4bd7fb2a3813a77dac88188ba..3cb865e7570d2e814171eed7248c966548d2a3e2 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 ea500561ad3dadc1553d0883e21c0699dd3c79f3..a6f8a8dfb95cdd8cfb3b8340fb927f7812b1a5e3 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; }