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 @@
;;; 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/"))))
......
/*
* 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;
}
......
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