2008/11/16 Attila Lendvai attila.lendvai@gmail.com:
dear list,
i've got this patch pending:
(defmacro ensure-functionf (&rest places) "Call ENSURE-FUNCTION for each place in PLACES and store back the results." `(progn ,@(mapcar (lambda (place) `(setf ,place (ensure-function ,place))) places)))
it might be controversial, so i'll first send it here. if noone complains for a week or two, then i'll push it eventually.
Shouldn't you be using define-modify-macro and/or setf-macro-expander for that?
e.g. (define-macro-expander ensure-functionf/1 (x) ensure-function) (defmacro ensure-functionf (&rest places) `(progn ,@(mapcar (lambda (x) `(ensure-functionf/1 ,x)))))
[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] Suicidal terrorists may have short shelf lives. -- John McCarthy