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.