Commit 04e80861 authored by wlott's avatar wlott
Browse files

Use /usr/local/cmucl instead of /usr/misc/.cmucl on hpux.

parent 407e9297
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -93,7 +93,8 @@
(setf (search-list "library:") (setf (search-list "library:")
(or (parse-unix-search-list :cmucllib) (or (parse-unix-search-list :cmucllib)
'("/usr/misc/.cmucl/lib/")))) '(#-hpux "/usr/misc/.cmucl/lib/"
#+hpux "/usr/local/cmucl/lib/"))))
......
/* /*
* 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.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[]) ...@@ -135,7 +135,11 @@ void main(int argc, char *argv[], char *envp[])
} while (*lib++ == ':'); } while (*lib++ == ':');
} }
if (core == NULL) { if (core == NULL) {
#ifdef hpux
strcpy(buf, "/usr/local/cmucl/lib/");
#else
strcpy(buf, "/usr/misc/.cmucl/lib/"); strcpy(buf, "/usr/misc/.cmucl/lib/");
#endif
strcat(buf, default_core); strcat(buf, default_core);
core = buf; core = buf;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment