|
From: | Stefan Monnier |
Subject: | Re: [Emacs-diffs] trunk r113497: lisp/desktop.el: Simplify. |
Date: | Mon, 22 Jul 2013 21:25:19 -0400 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) |
> (defun desktop-list* (&rest args) > - (if (null (cdr args)) > - (car args) > - (setq args (nreverse args)) > - (let ((value (cons (nth 1 args) (car args)))) > - (setq args (cdr (cdr args))) > - (while args > - (setq value (cons (car args) value)) > - (setq args (cdr args))) > - value))) > + (and args (cl-list* args))) Doesn't look right. Shouldn't it be (and args (apply #'cl-list* args)) or more simply (apply #'cl-list* args) which boils down to (defalias 'desktop-list* 'cl-list*) -- Stefan
[Prev in Thread] | Current Thread | [Next in Thread] |