BSD 4 release

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

diff --git a/usr/src/cmd/lisp/subbig.c b/usr/src/cmd/lisp/subbig.c
index 5927778..82a62dd 100644 (file)
--- a/usr/src/cmd/lisp/subbig.c
+++ b/usr/src/cmd/lisp/subbig.c
@@ -1,3 +1,5 @@
+static char *sccsid = "@(#)subbig.c    34.1 10/3/80";
+

 #include "global.h"
 
 lispval
 #include "global.h"
 
 lispval


@@ -8,8 +10,9 @@ lispval pos, neg;
        int *sp(); lispval adbig();
        register int *mysp = sp() - 2;
        register int *ersatz = mysp;
        int *sp(); lispval adbig();
        register int *mysp = sp() - 2;
        register int *ersatz = mysp;

+       snpand(3);

 
 

-       for(work = neg; work!=0; work = work->CDR) {
+       for(work = neg; work!=0; work = work->s.CDR) {

                stack(-work->i, (mysp -= 2));
        }
        mysp[3] = 0;
                stack(-work->i, (mysp -= 2));
        }
        mysp[3] = 0;