"Attila Lendvai" <[EMAIL PROTECTED]> writes: > 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.
It's leaky. Better consider adopting CALLF &c http://common-lisp.net/pipermail/alexandria-devel/2007-September/000259.html You'd then write ENSURE-FUNCTIONF as (defmacro ensure-functionf (&rest places) (loop for place in places collect `(CALLF #'ENSURE-FUNCTION ,place))) -T. PS: Available in my alexandria branch. _______________________________________________ alexandria-devel mailing list alexandria-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/alexandria-devel
