X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/a22cc83208b2e3d839dfd2e48e427d032dcfa10c..31cef89cb428866f787983e68246030321893df4:/usr/src/cmd/lisp/lisp.c

diff --git a/usr/src/cmd/lisp/lisp.c b/usr/src/cmd/lisp/lisp.c
index 04c28372e5..d73dc05cda 100644
--- a/usr/src/cmd/lisp/lisp.c
+++ b/usr/src/cmd/lisp/lisp.c
@@ -1,3 +1,5 @@
+static char *sccsid = "@(#)lisp.c	34.1 10/3/80";
+
 #include	"global.h"
 
 /* main *****************************************************************/
@@ -11,14 +13,19 @@ extern int rlevel;
 static int virgin = 0;
 int	Xargc;
 char	**Xargv;
+extern int environ;
 
-main(argc,argv)
+main(argc,argv,arge)
 char **argv;
 {
 	lispval temp, matom();
 	extern int errp;
+	extern int holbeg,holend,usehole;
+	extern int *curhbeg;
+
 	snpand(0);
 	
+	environ = arge;
 	setbuf(stdout,_sobuf);
 	Xargc = argc;
 	Xargv = argv;
@@ -50,11 +57,11 @@ char **argv;
 }
 Ntpl()
 {
-	lispval Lread();
+	lispval Lread(),Istsrch();
 	snpand(0);
 
 	if (virgin == 0) {
-		fputs("Franz Lisp, Opus 32",poport);
+		fputs(Istsrch(matom("version"))->d.cdr->d.cdr->d.cdr,poport);
 		virgin = 1;
 	}
 	lbot = np;
@@ -70,6 +77,7 @@ Ntpl()
 		}
 	}
 
+#ifndef VMS
 exit(code)
 {
 	extern int fvirgin;
@@ -79,3 +87,4 @@ exit(code)
 	proflush();
 	_exit(code);
 }
+#endif