[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
- To: RICH at MIT-AI
- From: "Guy L. Steele, Jr." <GLS at MIT-AI>
- Date: Fri, 18 Jul 80 20:59:00 GMT
- Cc: BUG-LISPM at MIT-AI, BUG-LISP at MIT-AI, DANNY at MIT-AI, GJS at MIT-AI
- Original-date: 18 July 1980 16:59-EDT
How about
(DEFMACRO MAPF (STRUCT FIELDS LIST)
(DO ((F FIELDS (CDR F))
(J 0 (+ J 1))
(SETS '() (CONS `(SETF (,(CAR F) %%STRUCT%%) (NTH ,J %%LIST%%)) SETS)))
((NULL F)
`(LET ((%%STRUCT%% ,STRUCT) (%%LIST%% ,LIST)) ,@SETS))))
(MAPF A-FOO (FOO-REG FOO-VAL FOO-INDEX) (HACK-UP-A-3-LIST))
?