2008/11/17 Knut Olav Bøhmer <[EMAIL PROTECTED]>: > 2008/11/16 Attila Lendvai <[EMAIL PROTECTED]>: >> 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. > > How about makeing ensure-functionf with define-modify-macro > > (define-modify-macro ensure-functionf x > (ensure-function x))
ok, that was wrong. Sorry. "Think before act"... (define-modify-macro ensure-functionf x ensure-function x) As I can see someone else also wrote.. > then > > (defun map-ensure-functionf (list) > (mapl (lambda (fnames) > (ensure-functionf (first fnames))) > list)) > > I did not understand how you plan to use this macro. Maybe there is a > reason you made it a macro, and not a function. > Can you explain? > > -- > Knut Olav Bøhmer > -- Knut Olav Bøhmer _______________________________________________ alexandria-devel mailing list alexandria-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/alexandria-devel
