all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#25523: 25.1; rename `cl-caddr' etc. to `caddr' etc.
@ 2017-01-25  2:18 Drew Adams
  2017-01-25  4:57 ` bug#25523: 25.1; [PATCH] " Mark Oteiza
  0 siblings, 1 reply; 8+ messages in thread
From: Drew Adams @ 2017-01-25  2:18 UTC (permalink / raw)
  To: 25523

See http://lists.gnu.org/archive/html/emacs-devel/2016-02/msg01451.html

As RMS said there:

> Today, there is no need to keep Emacs so small.  So we may as
> well add c...r and c....r to Emacs Lisp.

It is ridulous that these ever got renamed to cl-*.  Lisp deserves
more respect than that.

It is doubly ridiculous that the aliases for them, which remove the
silly `cl-' prefix, are in a _completely different library_.  So even if
you require `cl-lib.el' you do not get the aliases (the aliases are in
`cl.el').

It is hard to believe that anyone implemented this.  It is high time to
fix it.  (It's now been almost a year since that emacs-devel
discussion.)

In GNU Emacs 25.1.1 (x86_64-w64-mingw32)
 of 2016-09-17 built on LAPHROAIG
Windowing system distributor 'Microsoft Corp.', version 6.1.7601
Configured using:
 'configure --without-dbus --without-compress-install CFLAGS=-static'





^ permalink raw reply	[flat|nested] 8+ messages in thread

* bug#25523: 25.1; [PATCH] rename `cl-caddr' etc. to `caddr' etc.
  2017-01-25  2:18 bug#25523: 25.1; rename `cl-caddr' etc. to `caddr' etc Drew Adams
@ 2017-01-25  4:57 ` Mark Oteiza
  2017-01-25 18:13   ` Richard Stallman
  0 siblings, 1 reply; 8+ messages in thread
From: Mark Oteiza @ 2017-01-25  4:57 UTC (permalink / raw)
  To: Drew Adams; +Cc: 25523

Drew Adams <drew.adams@oracle.com> writes:

> See http://lists.gnu.org/archive/html/emacs-devel/2016-02/msg01451.html
>
> As RMS said there:
>
>> Today, there is no need to keep Emacs so small.  So we may as
>> well add c...r and c....r to Emacs Lisp.

I'm down.

diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el
index b1db07fe16..5aa8f1bf65 100644
--- a/lisp/emacs-lisp/cl-lib.el
+++ b/lisp/emacs-lisp/cl-lib.el
@@ -413,125 +413,30 @@ cl-tenth
   (declare (gv-setter (lambda (store) `(setcar (nthcdr 9 ,x) ,store))))
   (nth 9 x))
 
-(defun cl-caaar (x)
-  "Return the `car' of the `car' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (car (car x))))
-
-(defun cl-caadr (x)
-  "Return the `car' of the `car' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (car (cdr x))))
-
-(defun cl-cadar (x)
-  "Return the `car' of the `cdr' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (cdr (car x))))
-
-(defun cl-caddr (x)
-  "Return the `car' of the `cdr' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (cdr (cdr x))))
-
-(defun cl-cdaar (x)
-  "Return the `cdr' of the `car' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (car (car x))))
-
-(defun cl-cdadr (x)
-  "Return the `cdr' of the `car' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (car (cdr x))))
-
-(defun cl-cddar (x)
-  "Return the `cdr' of the `cdr' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (cdr (car x))))
-
-(defun cl-cdddr (x)
-  "Return the `cdr' of the `cdr' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (cdr (cdr x))))
-
-(defun cl-caaaar (x)
-  "Return the `car' of the `car' of the `car' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (car (car (car x)))))
-
-(defun cl-caaadr (x)
-  "Return the `car' of the `car' of the `car' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (car (car (cdr x)))))
-
-(defun cl-caadar (x)
-  "Return the `car' of the `car' of the `cdr' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (car (cdr (car x)))))
-
-(defun cl-caaddr (x)
-  "Return the `car' of the `car' of the `cdr' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (car (cdr (cdr x)))))
-
-(defun cl-cadaar (x)
-  "Return the `car' of the `cdr' of the `car' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (cdr (car (car x)))))
-
-(defun cl-cadadr (x)
-  "Return the `car' of the `cdr' of the `car' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (cdr (car (cdr x)))))
-
-(defun cl-caddar (x)
-  "Return the `car' of the `cdr' of the `cdr' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (cdr (cdr (car x)))))
-
-(defun cl-cadddr (x)
-  "Return the `car' of the `cdr' of the `cdr' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (car (cdr (cdr (cdr x)))))
-
-(defun cl-cdaaar (x)
-  "Return the `cdr' of the `car' of the `car' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (car (car (car x)))))
-
-(defun cl-cdaadr (x)
-  "Return the `cdr' of the `car' of the `car' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (car (car (cdr x)))))
-
-(defun cl-cdadar (x)
-  "Return the `cdr' of the `car' of the `cdr' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (car (cdr (car x)))))
-
-(defun cl-cdaddr (x)
-  "Return the `cdr' of the `car' of the `cdr' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (car (cdr (cdr x)))))
-
-(defun cl-cddaar (x)
-  "Return the `cdr' of the `cdr' of the `car' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (cdr (car (car x)))))
-
-(defun cl-cddadr (x)
-  "Return the `cdr' of the `cdr' of the `car' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (cdr (car (cdr x)))))
-
-(defun cl-cdddar (x)
-  "Return the `cdr' of the `cdr' of the `cdr' of the `car' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (cdr (cdr (car x)))))
-
-(defun cl-cddddr (x)
-  "Return the `cdr' of the `cdr' of the `cdr' of the `cdr' of X."
-  (declare (compiler-macro internal--compiler-macro-cXXr))
-  (cdr (cdr (cdr (cdr x)))))
+(defalias 'cl-caaar 'caaar)
+(defalias 'cl-caadr 'caadr)
+(defalias 'cl-cadar 'cadar)
+(defalias 'cl-caddr 'caddr)
+(defalias 'cl-cdaar 'cdaar)
+(defalias 'cl-cdadr 'cdadr)
+(defalias 'cl-cddar 'cddar)
+(defalias 'cl-cdddr 'cdddr)
+(defalias 'cl-caaaar 'caaaar)
+(defalias 'cl-caaadr 'caaadr)
+(defalias 'cl-caadar 'caadar)
+(defalias 'cl-caaddr 'caaddr)
+(defalias 'cl-cadaar 'cadaar)
+(defalias 'cl-cadadr 'cadadr)
+(defalias 'cl-caddar 'caddar)
+(defalias 'cl-cadddr 'cadddr)
+(defalias 'cl-cdaaar 'cdaaar)
+(defalias 'cl-cdaadr 'cdaadr)
+(defalias 'cl-cdadar 'cdadar)
+(defalias 'cl-cdaddr 'cdaddr)
+(defalias 'cl-cddaar 'cddaar)
+(defalias 'cl-cddadr 'cddadr)
+(defalias 'cl-cdddar 'cdddar)
+(defalias 'cl-cddddr 'cddddr)
 
 ;;(defun last* (x &optional n)
 ;;  "Returns the last link in the list LIST.
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index e33a603d1b..73eb9a4e86 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -258,30 +258,6 @@ cl-unload-function
                copy-list
                ldiff
                list*
-               cddddr
-               cdddar
-               cddadr
-               cddaar
-               cdaddr
-               cdadar
-               cdaadr
-               cdaaar
-               cadddr
-               caddar
-               cadadr
-               cadaar
-               caaddr
-               caadar
-               caaadr
-               caaaar
-               cdddr
-               cddar
-               cdadr
-               cdaar
-               caddr
-               cadar
-               caadr
-               caaar
                tenth
                ninth
                eighth
diff --git a/lisp/subr.el b/lisp/subr.el
index 53774169b4..a6ba05c202 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -384,6 +384,126 @@ cddr
   (declare (compiler-macro internal--compiler-macro-cXXr))
   (cdr (cdr x)))
 
+(defun caaar (x)
+  "Return the `car' of the `car' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (car (car x))))
+
+(defun caadr (x)
+  "Return the `car' of the `car' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (car (cdr x))))
+
+(defun cadar (x)
+  "Return the `car' of the `cdr' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (cdr (car x))))
+
+(defun caddr (x)
+  "Return the `car' of the `cdr' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (cdr (cdr x))))
+
+(defun cdaar (x)
+  "Return the `cdr' of the `car' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (car (car x))))
+
+(defun cdadr (x)
+  "Return the `cdr' of the `car' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (car (cdr x))))
+
+(defun cddar (x)
+  "Return the `cdr' of the `cdr' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (cdr (car x))))
+
+(defun cdddr (x)
+  "Return the `cdr' of the `cdr' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (cdr (cdr x))))
+
+(defun caaaar (x)
+  "Return the `car' of the `car' of the `car' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (car (car (car x)))))
+
+(defun caaadr (x)
+  "Return the `car' of the `car' of the `car' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (car (car (cdr x)))))
+
+(defun caadar (x)
+  "Return the `car' of the `car' of the `cdr' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (car (cdr (car x)))))
+
+(defun caaddr (x)
+  "Return the `car' of the `car' of the `cdr' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (car (cdr (cdr x)))))
+
+(defun cadaar (x)
+  "Return the `car' of the `cdr' of the `car' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (cdr (car (car x)))))
+
+(defun cadadr (x)
+  "Return the `car' of the `cdr' of the `car' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (cdr (car (cdr x)))))
+
+(defun caddar (x)
+  "Return the `car' of the `cdr' of the `cdr' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (cdr (cdr (car x)))))
+
+(defun cadddr (x)
+  "Return the `car' of the `cdr' of the `cdr' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (car (cdr (cdr (cdr x)))))
+
+(defun cdaaar (x)
+  "Return the `cdr' of the `car' of the `car' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (car (car (car x)))))
+
+(defun cdaadr (x)
+  "Return the `cdr' of the `car' of the `car' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (car (car (cdr x)))))
+
+(defun cdadar (x)
+  "Return the `cdr' of the `car' of the `cdr' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (car (cdr (car x)))))
+
+(defun cdaddr (x)
+  "Return the `cdr' of the `car' of the `cdr' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (car (cdr (cdr x)))))
+
+(defun cddaar (x)
+  "Return the `cdr' of the `cdr' of the `car' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (cdr (car (car x)))))
+
+(defun cddadr (x)
+  "Return the `cdr' of the `cdr' of the `car' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (cdr (car (cdr x)))))
+
+(defun cdddar (x)
+  "Return the `cdr' of the `cdr' of the `cdr' of the `car' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (cdr (cdr (car x)))))
+
+(defun cddddr (x)
+  "Return the `cdr' of the `cdr' of the `cdr' of the `cdr' of X."
+  (declare (compiler-macro internal--compiler-macro-cXXr))
+  (cdr (cdr (cdr (cdr x)))))
+
 (defun last (list &optional n)
   "Return the last link of LIST.  Its car is the last element.
 If LIST is nil, return nil.





^ permalink raw reply related	[flat|nested] 8+ messages in thread

* bug#25523: 25.1; [PATCH] rename `cl-caddr' etc. to `caddr' etc.
  2017-01-25  4:57 ` bug#25523: 25.1; [PATCH] " Mark Oteiza
@ 2017-01-25 18:13   ` Richard Stallman
  2017-01-25 19:29     ` Mark Oteiza
  0 siblings, 1 reply; 8+ messages in thread
From: Richard Stallman @ 2017-01-25 18:13 UTC (permalink / raw)
  To: Mark Oteiza; +Cc: 25523

[[[ To any NSA and FBI agents reading my email: please consider    ]]]
[[[ whether defending the US Constitution against all enemies,     ]]]
[[[ foreign or domestic, requires you to follow Snowden's example. ]]]

Remember that we need to change the Emacs Lisp Reference Manual too.

-- 
Dr Richard Stallman
President, Free Software Foundation (gnu.org, fsf.org)
Internet Hall-of-Famer (internethalloffame.org)
Skype: No way! See stallman.org/skype.html.






^ permalink raw reply	[flat|nested] 8+ messages in thread

* bug#25523: 25.1; [PATCH] rename `cl-caddr' etc. to `caddr' etc.
  2017-01-25 18:13   ` Richard Stallman
@ 2017-01-25 19:29     ` Mark Oteiza
  2017-01-25 19:43       ` Drew Adams
                         ` (2 more replies)
  0 siblings, 3 replies; 8+ messages in thread
From: Mark Oteiza @ 2017-01-25 19:29 UTC (permalink / raw)
  To: Richard Stallman; +Cc: 25523

On 25/01/17 at 01:13pm, Richard Stallman wrote:
> Remember that we need to change the Emacs Lisp Reference Manual too.

Pushed as 43eba49
http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=43eba49





^ permalink raw reply	[flat|nested] 8+ messages in thread

* bug#25523: 25.1; [PATCH] rename `cl-caddr' etc. to `caddr' etc.
  2017-01-25 19:29     ` Mark Oteiza
@ 2017-01-25 19:43       ` Drew Adams
  2017-01-25 19:46       ` Lars Ingebrigtsen
  2017-01-25 22:39       ` Glenn Morris
  2 siblings, 0 replies; 8+ messages in thread
From: Drew Adams @ 2017-01-25 19:43 UTC (permalink / raw)
  To: Mark Oteiza, Richard Stallman; +Cc: 25523

> On 25/01/17 at 01:13pm, Richard Stallman wrote:
> > Remember that we need to change the Emacs Lisp Reference Manual too.
> 
> Pushed as 43eba49
> http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=43eba49

Muchas gracias.





^ permalink raw reply	[flat|nested] 8+ messages in thread

* bug#25523: 25.1; [PATCH] rename `cl-caddr' etc. to `caddr' etc.
  2017-01-25 19:29     ` Mark Oteiza
  2017-01-25 19:43       ` Drew Adams
@ 2017-01-25 19:46       ` Lars Ingebrigtsen
  2017-01-25 22:39       ` Glenn Morris
  2 siblings, 0 replies; 8+ messages in thread
From: Lars Ingebrigtsen @ 2017-01-25 19:46 UTC (permalink / raw)
  To: Mark Oteiza; +Cc: Richard Stallman, 25523

Mark Oteiza <mvoteiza@udel.edu> writes:

> On 25/01/17 at 01:13pm, Richard Stallman wrote:
>> Remember that we need to change the Emacs Lisp Reference Manual too.
>
> Pushed as 43eba49
> http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=43eba49

Great.  :-)

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no





^ permalink raw reply	[flat|nested] 8+ messages in thread

* bug#25523: 25.1; [PATCH] rename `cl-caddr' etc. to `caddr' etc.
  2017-01-25 19:29     ` Mark Oteiza
  2017-01-25 19:43       ` Drew Adams
  2017-01-25 19:46       ` Lars Ingebrigtsen
@ 2017-01-25 22:39       ` Glenn Morris
  2017-02-08  4:48         ` npostavs
  2 siblings, 1 reply; 8+ messages in thread
From: Glenn Morris @ 2017-01-25 22:39 UTC (permalink / raw)
  To: Mark Oteiza; +Cc: Richard Stallman, 25523


Given the history here, I think a longer wait would have been better; eg
http://lists.gnu.org/archive/html/emacs-devel/2015-03/msg00275.html





^ permalink raw reply	[flat|nested] 8+ messages in thread

* bug#25523: 25.1; [PATCH] rename `cl-caddr' etc. to `caddr' etc.
  2017-01-25 22:39       ` Glenn Morris
@ 2017-02-08  4:48         ` npostavs
  0 siblings, 0 replies; 8+ messages in thread
From: npostavs @ 2017-02-08  4:48 UTC (permalink / raw)
  To: Glenn Morris; +Cc: Mark Oteiza, Richard Stallman, 25523

tags 25523 fixed
close 25523 26.1
quit

Glenn Morris <rgm@gnu.org> writes:

> Given the history here, I think a longer wait would have been better; eg
> http://lists.gnu.org/archive/html/emacs-devel/2015-03/msg00275.html

Probably it would have, but it's been done, and it seems nobody opposes
this enough to complain about it, so I'm closing.





^ permalink raw reply	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2017-02-08  4:48 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-01-25  2:18 bug#25523: 25.1; rename `cl-caddr' etc. to `caddr' etc Drew Adams
2017-01-25  4:57 ` bug#25523: 25.1; [PATCH] " Mark Oteiza
2017-01-25 18:13   ` Richard Stallman
2017-01-25 19:29     ` Mark Oteiza
2017-01-25 19:43       ` Drew Adams
2017-01-25 19:46       ` Lars Ingebrigtsen
2017-01-25 22:39       ` Glenn Morris
2017-02-08  4:48         ` npostavs

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.