From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 6 Sep 2002 19:46:24 +0000 (+0000)
Subject: (edmacro-subseq): Don't use cl-push/cl-pop.
X-Git-Tag: ttn-vms-21-2-B4~13338
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3922343710b6ccc60e73546874b9ef174dfa79da;p=emacs.git

(edmacro-subseq): Don't use cl-push/cl-pop.
---

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index dc538ab5f92..9eac3a29055 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -595,7 +595,7 @@ If START or END is negative, it counts from the end."
 	     (if end
 		 (let ((res nil))
 		   (while (>= (setq end (1- end)) start)
-		     (cl-push (cl-pop seq) res))
+		     (push (pop seq) res))
 		   (nreverse res))
 	       (copy-sequence seq)))
 	    (t