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

diff --git a/usr/src/cmd/lisp/subbig.c b/usr/src/cmd/lisp/subbig.c
index 5927778eb2..82a62dd47c 100644
--- 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
@@ -8,8 +10,9 @@ lispval pos, neg;
 	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;