[elpa] externals/seq 6beb2cd8d0 07/20: Update seq.el to 2.16

[Stefan Monnier]

branch: externals/seq
commit 6beb2cd8d0df9bca5e0aa2c88659d989e2e543c7
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Update seq.el to 2.16
    
    * packages/seq/seq-24.el:
    * packages/seq/seq-25.el: Better implementation of seq-drop for lists.
    * packages/seq/seq.el: Bump version number.
---
 seq-24.el | 5 +----
 seq-25.el | 5 +----
 seq.el    | 2 +-
 3 files changed, 3 insertions(+), 9 deletions(-)

diff --git a/seq-24.el b/seq-24.el
index 3b08855421..d0aa618bd3 100644
--- a/seq-24.el
+++ b/seq-24.el
@@ -374,10 +374,7 @@ SEQUENCE must be a sequence of numbers or markers."
 (defun seq--drop-list (list n)
   "Return a list from LIST without its first N elements.
 This is an optimization for lists in `seq-drop'."
-  (while (and list (> n 0))
-    (setq list (cdr list)
-          n (1- n)))
-  list)
+  (nthcdr n list))
 
 (defun seq--take-list (list n)
   "Return a list from LIST made of its first N elements.
diff --git a/seq-25.el b/seq-25.el
index b6cdb061c4..b2f5c98dd1 100644
--- a/seq-25.el
+++ b/seq-25.el
@@ -440,10 +440,7 @@ SEQUENCE must be a sequence of numbers or markers."
 
 (cl-defmethod seq-drop ((list list) n)
   "Optimized implementation of `seq-drop' for lists."
-  (while (and list (> n 0))
-    (setq list (cdr list)
-          n (1- n)))
-  list)
+  (nthcdr n list))
 
 (cl-defmethod seq-take ((list list) n)
   "Optimized implementation of `seq-take' for lists."
diff --git a/seq.el b/seq.el
index ee029f0452..9f96ec861b 100644
--- a/seq.el
+++ b/seq.el
@@ -4,7 +4,7 @@
 
 ;; Author: Nicolas Petton <nicolas@petton.fr>
 ;; Keywords: sequences
-;; Version: 2.15
+;; Version: 2.16
 ;; Package: seq
 
 ;; Maintainer: emacs-devel@gnu.org