[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SYMBOL-MACROFLET
- To: KMP@STONY-BROOK.SCRC.Symbolics.COM
- Subject: SYMBOL-MACROFLET
- From: Eric Benson <eb@lucid.com>
- Date: Tue, 13 Sep 88 11:27:10 pdt
- Cc: Moon@STONY-BROOK.SCRC.Symbolics.COM, jeff%aiai.edinburgh.ac.uk@NSS.Cs.Ucl.AC.UK, Masinter.pa@xerox.com, cl-cleanup@SAIL.STANFORD.EDU
- In-reply-to: Kent M Pitman's message of Tue, 13 Sep 88 14:06 EDT <880913140645.0.KMP@GRYPHON.SCRC.Symbolics.COM>
Doesn't this do what you want?
(defmacro fsymbolf-fmacrofletf (renamings &body body)
`(macrolet ,(mapcar #'(lambda (renaming)
`(,(first renaming) (&rest args)
`(,',(second renaming) ,@args)))
renamings)
,@body))