Re: [Emacs-diffs] /srv/bzr/emacs/trunk r102760: * lisp/emacs-lisp/rx.el (rx-repeat): Replace CL function.

[Stefan Monnier]

> +     * emacs-lisp/rx.el (rx-repeat): Replace CL function.
[...]
> @@ -664,7 +664,7 @@
>    (if (> (length form) 4)
>        (setq form (rx-trans-forms form 2)))
>    (if (null (nth 2 form))
> -      (setq form (list* (nth 0 form) (nth 1 form) (nthcdr 3 form))))
> +      (setq form (cons (nth 0 form) (cons (nth 1 form) (nthcdr 3 form)))))
>    (cond ((= (length form) 3)
>        (unless (and (integerp (nth 1 form))
>                     (> (nth 1 form) 0))

AFAIK this is not needed, since list* has a compiler macro that
does the above replacement for you during byte-compilation.


        Stefan