From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Daniel Colascione Newsgroups: gmane.emacs.devel Subject: [PATCH] inline CL list functions Date: Mon, 10 Aug 2009 13:45:46 -0400 Organization: Merrill Print Message-ID: <200908101345.46352.danc@merrillprint.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: Text/Plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1249929379 31262 80.91.229.12 (10 Aug 2009 18:36:19 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 10 Aug 2009 18:36:19 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Aug 10 20:36:12 2009 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MaZj9-0008Uc-Ef for ged-emacs-devel@m.gmane.org; Mon, 10 Aug 2009 20:36:11 +0200 Original-Received: from localhost ([127.0.0.1]:47004 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MaZj8-0003J7-H4 for ged-emacs-devel@m.gmane.org; Mon, 10 Aug 2009 14:36:10 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MaYwU-0006Cv-BV for emacs-devel@gnu.org; Mon, 10 Aug 2009 13:45:54 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MaYwP-0006Bp-1W for emacs-devel@gnu.org; Mon, 10 Aug 2009 13:45:53 -0400 Original-Received: from [199.232.76.173] (port=53050 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MaYwO-0006Bm-Pz for emacs-devel@gnu.org; Mon, 10 Aug 2009 13:45:48 -0400 Original-Received: from mx20.gnu.org ([199.232.41.8]:65419) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MaYwO-0008C0-Bz for emacs-devel@gnu.org; Mon, 10 Aug 2009 13:45:48 -0400 Original-Received: from vpn.merrillpress.com ([64.61.107.78]) by mx20.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MaYwN-0006Yz-B8 for emacs-devel@gnu.org; Mon, 10 Aug 2009 13:45:47 -0400 Original-Received: from pluto.merrillpress.net ([10.136.5.5] helo=pluto.localnet) by mars.merrillpress.net with esmtpsa (TLSv1:DHE-RSA-AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1MaYwN-0002X7-4k for emacs-devel@gnu.org; Mon, 10 Aug 2009 13:45:47 -0400 User-Agent: KMail/1.11.4 (Linux/2.6.29.6-217.2.3.fc11.i586; KDE/4.2.4; i686; ; ) X-Face: 9VC; >}hM+`K4j{H4n=pq/!61'7Rt"vEaPUdCwpS'=; @B7Ll,~Q.xb(|A>; 8M[\UzKQi{>Q Iptc6NY\M(0<{W?ob}e/91Y!k|XE:2SA2LU"cni>#Dmw4siEWG7|L9zkOZ\[nQPe9[PG|s P2n_jW\TzsG2N1Z0q:E#NmWU~0i]JE)gqB|4{jCjolaX6)KO[@k\:>01.58.Pk5Nb\5s": R,Q78_s; 6+vLj\V1y(`]\G3("(Y!G^79x}q[4L8w[.qEs|+ZN0R`Hk,>y; d7!SFx%M2M39 y[/Kc!p!:.E3Zx')v*l6IlR Content-Disposition: inline X-Detected-Operating-System: by mx20.gnu.org: GNU/Linux 2.6 (newer, 3) X-detected-operating-system: by monty-python.gnu.org: Genre and OS details not recognized. X-Mailman-Approved-At: Mon, 10 Aug 2009 14:35:16 -0400 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:113992 Archived-At: I can't see any reason these shouldn't be defsubsts. --- /net/home/danc/software/emacs/lisp/emacs-lisp/cl.el 2009-08-10 13:40:59.000000000 -0400 +++ new-cl.el 2009-08-10 13:43:30.000000000 -0400 @@ -369,131 +369,131 @@ (defalias 'rest 'cdr) (defalias 'endp 'null) -(defun third (x) +(defsubst third (x) "Return the third element of the list X." (car (cdr (cdr x)))) -(defun fourth (x) +(defsubst fourth (x) "Return the fourth element of the list X." (nth 3 x)) -(defun fifth (x) +(defsubst fifth (x) "Return the fifth element of the list X." (nth 4 x)) -(defun sixth (x) +(defsubst sixth (x) "Return the sixth element of the list X." (nth 5 x)) -(defun seventh (x) +(defsubst seventh (x) "Return the seventh element of the list X." (nth 6 x)) -(defun eighth (x) +(defsubst eighth (x) "Return the eighth element of the list X." (nth 7 x)) -(defun ninth (x) +(defsubst ninth (x) "Return the ninth element of the list X." (nth 8 x)) -(defun tenth (x) +(defsubst tenth (x) "Return the tenth element of the list X." (nth 9 x)) -(defun caaar (x) +(defsubst caaar (x) "Return the `car' of the `car' of the `car' of X." (car (car (car x)))) -(defun caadr (x) +(defsubst caadr (x) "Return the `car' of the `car' of the `cdr' of X." (car (car (cdr x)))) -(defun cadar (x) +(defsubst cadar (x) "Return the `car' of the `cdr' of the `car' of X." (car (cdr (car x)))) -(defun caddr (x) +(defsubst caddr (x) "Return the `car' of the `cdr' of the `cdr' of X." (car (cdr (cdr x)))) -(defun cdaar (x) +(defsubst cdaar (x) "Return the `cdr' of the `car' of the `car' of X." (cdr (car (car x)))) -(defun cdadr (x) +(defsubst cdadr (x) "Return the `cdr' of the `car' of the `cdr' of X." (cdr (car (cdr x)))) -(defun cddar (x) +(defsubst cddar (x) "Return the `cdr' of the `cdr' of the `car' of X." (cdr (cdr (car x)))) -(defun cdddr (x) +(defsubst cdddr (x) "Return the `cdr' of the `cdr' of the `cdr' of X." (cdr (cdr (cdr x)))) -(defun caaaar (x) +(defsubst caaaar (x) "Return the `car' of the `car' of the `car' of the `car' of X." (car (car (car (car x))))) -(defun caaadr (x) +(defsubst caaadr (x) "Return the `car' of the `car' of the `car' of the `cdr' of X." (car (car (car (cdr x))))) -(defun caadar (x) +(defsubst caadar (x) "Return the `car' of the `car' of the `cdr' of the `car' of X." (car (car (cdr (car x))))) -(defun caaddr (x) +(defsubst caaddr (x) "Return the `car' of the `car' of the `cdr' of the `cdr' of X." (car (car (cdr (cdr x))))) -(defun cadaar (x) +(defsubst cadaar (x) "Return the `car' of the `cdr' of the `car' of the `car' of X." (car (cdr (car (car x))))) -(defun cadadr (x) +(defsubst cadadr (x) "Return the `car' of the `cdr' of the `car' of the `cdr' of X." (car (cdr (car (cdr x))))) -(defun caddar (x) +(defsubst caddar (x) "Return the `car' of the `cdr' of the `cdr' of the `car' of X." (car (cdr (cdr (car x))))) -(defun cadddr (x) +(defsubst cadddr (x) "Return the `car' of the `cdr' of the `cdr' of the `cdr' of X." (car (cdr (cdr (cdr x))))) -(defun cdaaar (x) +(defsubst cdaaar (x) "Return the `cdr' of the `car' of the `car' of the `car' of X." (cdr (car (car (car x))))) -(defun cdaadr (x) +(defsubst cdaadr (x) "Return the `cdr' of the `car' of the `car' of the `cdr' of X." (cdr (car (car (cdr x))))) -(defun cdadar (x) +(defsubst cdadar (x) "Return the `cdr' of the `car' of the `cdr' of the `car' of X." (cdr (car (cdr (car x))))) -(defun cdaddr (x) +(defsubst cdaddr (x) "Return the `cdr' of the `car' of the `cdr' of the `cdr' of X." (cdr (car (cdr (cdr x))))) -(defun cddaar (x) +(defsubst cddaar (x) "Return the `cdr' of the `cdr' of the `car' of the `car' of X." (cdr (cdr (car (car x))))) -(defun cddadr (x) +(defsubst cddadr (x) "Return the `cdr' of the `cdr' of the `car' of the `cdr' of X." (cdr (cdr (car (cdr x))))) -(defun cdddar (x) +(defsubst cdddar (x) "Return the `cdr' of the `cdr' of the `cdr' of the `car' of X." (cdr (cdr (cdr (car x))))) -(defun cddddr (x) +(defsubst cddddr (x) "Return the `cdr' of the `cdr' of the `cdr' of the `cdr' of X." (cdr (cdr (cdr (cdr x)))))