From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Mark Oteiza Newsgroups: gmane.emacs.devel Subject: [PATCH] * lisp/emacs-lisp/seq.el (seq-drop): Use nthcdr for lists. Date: Sat, 11 Jun 2016 20:29:42 -0400 Message-ID: <20160612002942.GA27235@holos.localdomain> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1465691405 17770 80.91.229.3 (12 Jun 2016 00:30:05 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 12 Jun 2016 00:30:05 +0000 (UTC) Cc: Nicolas Petton To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Jun 12 02:29:57 2016 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1bBtHo-0002Sd-IP for ged-emacs-devel@m.gmane.org; Sun, 12 Jun 2016 02:29:56 +0200 Original-Received: from localhost ([::1]:49140 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bBtHn-0002vk-A8 for ged-emacs-devel@m.gmane.org; Sat, 11 Jun 2016 20:29:55 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34137) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bBtHh-0002vT-8L for emacs-devel@gnu.org; Sat, 11 Jun 2016 20:29:50 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bBtHe-0005cg-25 for emacs-devel@gnu.org; Sat, 11 Jun 2016 20:29:49 -0400 Original-Received: from mail-qg0-x242.google.com ([2607:f8b0:400d:c04::242]:36206) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bBtHd-0005cc-Rj for emacs-devel@gnu.org; Sat, 11 Jun 2016 20:29:45 -0400 Original-Received: by mail-qg0-x242.google.com with SMTP id k43so7773906qgk.3 for ; Sat, 11 Jun 2016 17:29:45 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=udel-edu.20150623.gappssmtp.com; s=20150623; h=date:from:to:cc:subject:message-id:mime-version:content-disposition :user-agent; bh=FjXF96yUYVtQsUgiYk1DzGjh3jlFAR8vu0s7OG6homg=; b=Fl0sY4xOpjpiHPvze4G4kt/2ykhMiONkWqZ4HubvRxX4HkOpP/uW24c6C4xPClYjed YttAbFAT1rY3+hXGVppP5Vp2WlUKMLm7gjO7POts6oUW+vTnpf+DLf0VyrIiaxxybNwl zDD+EMDLrtH0pozhQiO8ADA0oEl77uECXtb1071y/ha8n0g4iZslixWZIa4O416eUW4X z6n//Un5Ymv12nQ9ATyHGSlRVC7dx1gIHYD2vxwG+EqDm3mdYZ4Ae5Y26Mq3QZOQ9hXM 2gwROdZ6fpkG/7M3DS7ivpkzOO1JiC/yN/qxNMn05m5wU0E/lrZcEHA7YjI0RLOyP30k z+Rw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:date:from:to:cc:subject:message-id:mime-version :content-disposition:user-agent; bh=FjXF96yUYVtQsUgiYk1DzGjh3jlFAR8vu0s7OG6homg=; b=GC9nTq5WQfYUb6CJIoLQ8ewJjZ3StqI6iPapPBwk0XZCE+aNj9kiYfxAjfVOY43mbi aMGcMkW3MqjVhyUS9tWtL4qK4R9G9AbsgijFgcd3nruvMpD2yxFqq4iTAdljPdEhyLqD Qb6rZu50WJmFfHo8xmJYm0VaiKyIs0s4HJnqhZ/h59FjLalFGHI7hvq8VZPhtmTwdUTG C1AtqPXZ/O2jSZoDum4L2oFIJmgjEAgAH9JiVu/le8YKyO3JGTABgOnKrKR+NXLk8hfY nRCm1A8qzZ+V84a+wYv4hyOy/22Ej2LlH1vjIKkrcmjbE0AS9M4Ody0f9nV85QyWxKuY dogw== X-Gm-Message-State: ALyK8tLBoH5op/HBmwyoQUyTdUXa5weZZ4S1xNWkrwivLuyTCyyvH/Sj7xj8g8W6nxw6jQJG X-Received: by 10.140.180.79 with SMTP id b76mr8516086qha.10.1465691384811; Sat, 11 Jun 2016 17:29:44 -0700 (PDT) Original-Received: from holos.localdomain (ip68-100-200-121.dc.dc.cox.net. [68.100.200.121]) by smtp.gmail.com with ESMTPSA id u53sm5101383qtc.23.2016.06.11.17.29.43 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 11 Jun 2016 17:29:43 -0700 (PDT) Original-Received: by holos.localdomain (Postfix, from userid 1000) id F285D69683; Sat, 11 Jun 2016 20:29:42 -0400 (EDT) Content-Disposition: inline User-Agent: Mutt/1.6.1+26 (8e342d73159b) (2016-04-27) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2607:f8b0:400d:c04::242 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:204301 Archived-At: --- lisp/emacs-lisp/seq.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 8362dda..2bb1381 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -449,10 +449,7 @@ seq--elt-safe (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." -- 2.8.3