From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 28 Jan 2000 17:31:00 +0000 (+0000)
Subject: (cl-parse-loop-clause): Recognize
X-Git-Tag: emacs-pretest-21.0.90~5216
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae1aa776d6e10ec30ff76b89ed71ff5ad1b752af;p=emacs.git

(cl-parse-loop-clause): Recognize
`collecting' as synonym for `collect'.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index af2d31cf216..85287507f58 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -888,7 +888,7 @@ Valid clauses are:
 	(cl-push (list (list temp (cl-pop args))) loop-bindings)
 	(cl-push (list '>= (list 'setq temp (list '1- temp)) 0) loop-body)))
 
-     ((eq word 'collect)
+     ((memq word '(collect collecting))
       (let ((what (cl-pop args))
 	    (var (cl-loop-handle-accum nil 'nreverse)))
 	(if (eq var loop-accum-var)