[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SYMBOL-MACROFLET
- To: eb@lucid.com
- Subject: SYMBOL-MACROFLET
- From: Kent M Pitman <KMP@STONY-BROOK.SCRC.Symbolics.COM>
- Date: Tue, 13 Sep 88 15:05 EDT
- Cc: KMP@STONY-BROOK.SCRC.Symbolics.COM, 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: <8809131827.AA00321@blacksox.lucid.com>
Date: Tue, 13 Sep 88 11:27:10 pdt
From: Eric Benson <eb@lucid.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))
No: think about #' .
In my experience, a common reason to use DEFUN-IN-FLAVOR (rather than
DEFMETHOD) is to make the name suitable for MAPCAR. That is, to be
able to do (MAPCAR #'local-function things) rather than
(MAPCAR #'method-name (CIRCULAR-LIST SELF) things).