BSD 4 release

[unix-history] / usr / src / cmd / lisp / lisp.c

diff --git a/usr/src/cmd/lisp/lisp.c b/usr/src/cmd/lisp/lisp.c
index 04c2837..d73dc05 100644 (file)
--- 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 *****************************************************************/
 #include       "global.h"
 
 /* main *****************************************************************/


@@ -11,14 +13,19 @@ extern int rlevel;
 static int virgin = 0;
 int    Xargc;
 char   **Xargv;
 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;
 char **argv;
 {
        lispval temp, matom();
        extern int errp;

+       extern int holbeg,holend,usehole;
+       extern int *curhbeg;
+

        snpand(0);
        
        snpand(0);
        

+       environ = arge;

        setbuf(stdout,_sobuf);
        Xargc = argc;
        Xargv = argv;
        setbuf(stdout,_sobuf);
        Xargc = argc;
        Xargv = argv;


@@ -50,11 +57,11 @@ char **argv;
 }
 Ntpl()
 {
 }
 Ntpl()
 {

-       lispval Lread();
+       lispval Lread(),Istsrch();

        snpand(0);
 
        if (virgin == 0) {
        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;
                virgin = 1;
        }
        lbot = np;


@@ -70,6 +77,7 @@ Ntpl()
                }
        }
 
                }
        }
 

+#ifndef VMS

 exit(code)
 {
        extern int fvirgin;
 exit(code)
 {
        extern int fvirgin;


@@ -79,3 +87,4 @@ exit(code)
        proflush();
        _exit(code);
 }
        proflush();
        _exit(code);
 }

+#endif