Skip to content
Snippets Groups Projects
Commit 9d1ac35a authored by wlott's avatar wlott
Browse files

Only call mach_init under mach.

parent b07eaff9
No related branches found
No related tags found
No related merge requests found
/*
* main() entry point for a stand alone lisp image.
*
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.1 1992/07/28 20:14:38 wlott Exp $
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.2 1992/09/08 20:25:21 wlott Exp $
*
*/
......@@ -97,7 +97,9 @@ void main(int argc, char *argv[], char *envp[])
char *core = NULL, *default_core;
boolean restore_state, monitor;
#ifdef MACH
mach_init();
#endif
#ifdef parisc
printf("lisp running, pid=%d\n", getpid());
#endif
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment