ew-util.el

   1 (provide 'ew-util)
   2
   3 (defmacro ew-cons* (seed &rest rest)
   4   (setq rest (nreverse (cons seed rest))
   5         seed (car rest)
   6         rest (cdr rest))
   7   (while rest
   8     (setq seed `(cons ,(car rest) ,seed)
   9           rest (cdr rest)))
  10   seed)
  11
  12 (defmacro ew-rcons* (seed &rest rest)
  13   (while rest
  14     (setq seed `(cons ,(car rest) ,seed)
  15           rest (cdr rest)))
  16   seed)
  17
  18 (defmacro ew-rappend (a b)
  19   `(append (reverse ,b) ,a))