@@ -33,13 +33,14 @@ (defvar inflection-uncountables nil) (defmacro define-inflectors (&rest specs) - (loop for (type . rest) in specs do - (case type - (:singular (push rest inflection-singulars)) - (:plural (push rest inflection-plurals)) - (:irregular (push rest inflection-irregulars)) - (:uncountable (setf inflection-uncountables - (append rest inflection-uncountables)))))) + `(progn + ,@(loop for (type . rest) in specs collect + (case type + (:singular `(push ',rest inflection-singulars)) + (:plural `(push ',rest inflection-plurals)) + (:irregular `(push ',rest inflection-irregulars)) + (:uncountable `(setf inflection-uncountables + (append ',rest inflection-uncountables))))))) (define-inflectors (:plural "$" "s") inflections.el f2c4f8f4c0f728d7b37e2d1e2e15c9a6164428f1 Rémi Vanicat vanicat@debian.org http://github.com/remvee/emacs-rails/commit/e6de74aee55710ee9090ab52df3db6487a2631d4 e6de74aee55710ee9090ab52df3db6487a2631d4 2008-09-19T14:59:24-07:00 2008-04-29T06:29:43-07:00 [#13306] Defer construction of the inflections list at evaluation The define-inflectors macro use to compute the inflection-uncountables, inflection-irregulars and others at compile time, doing nothing of the result. We now defer this evaluation at evaluation time. 2dfcdfae4fe169ef28068322094392c9dcf1d0c2 Rémi Vanicat vanicat@debian.org