|
From: | Katsumi Yamaoka |
Subject: | Re: [Emacs-diffs] /srv/bzr/emacs/trunk r111086: gmm-utils.el (gmm-flet, gmm-labels): New macros. |
Date: | Wed, 05 Dec 2012 07:39:19 +0900 |
User-agent: | Gnus/5.130006 (真 Gnus v0.6) Emacs/24.3.50 (i686-pc-cygwin) |
Stefan Monnier wrote: >> +;; `flet' and `labels' got obsolete since Emacs 24.3. >> +(defmacro gmm-flet (bindings &rest body) [...] > Nooooooooooooooo!!!!!!!!! > Please don't! [...] > Same for gmm-labels! Ok, I'll replace both so as to use cl-flet and cl-labels soon. IIRC I didn't see neither cl-flet nor cl-letf wasn't usable as an analogue to flet (I tried them right after flet was marked obsolete). But now I confirmed it: (progn (pp (macroexpand '(cl-flet ((message (&rest args) (concat "X " (apply #'format args)))) (message "Hello")) )) nil) (let ((--cl-message-- (cl-function (lambda (&rest args) (concat "X " (apply #'format args)))))) (funcall --cl-message-- "Hello")) OTHO, as for gmm-labels I was already using cl-labels in the same way as you suggested for flet. But why I tried it so as not to depend on cl was to try to reduce the ugliness of the way cl handles the #'FUNC cases in a labels form.
[Prev in Thread] | Current Thread | [Next in Thread] |