Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
00010	BEGIN
00020	
00030	MACRO ?&FOR(X);       ?&FOR1(F2(F2(X)),F2(F3(X)),F4(X),F5(X),F6(X));
00040	
00050	MACRO ?&DOUNTIL(X);   ?&LOOP1(F1(X),F2(F2(X)),F2(F3(X)));
00060	
00070	MACRO ?&LISTUNTIL(X); ?&LOOP1(F1(X),F2(F2(X)),F2(F3(X)));
00080	
00090	MACRO ?&WHILEDO(X);   ?&LOOP1(F1(X),F2(F2(X)),F2(F3(X)));
00100	
00110	MACRO ?&WHILELIST(X); ?&LOOP1(F1(X),F2(F2(X)),F2(F3(X)));
00120	
00130	MACRO ?&FORLOOP(X);   ?&FORLOOP1(F2(F2(X)),F2(F3(X)),F4(X),F5(X),F6(X));
00140	
00150	MACRO F1(X);   'CAR CONS CDR(X);
00160	
00170	MACRO F2(X);   'CADR CONS CDR(X);
00180	
00190	MACRO F3(X);   'CADDR CONS CDR(X);
00200	
00210	MACRO F4(X);   'CADDDR CONS CDR(X);
00220	
00230	END.